merging files!

[via135 via OfficeKB.com]

i am receiving a text file, in a particular name, daily, in a different
folder
named on the particular date.

ex: folder names > 010606, 020606, 030606, 040606 etc.
file name > aaa, aaa, aaa, aaa, ......

is there any way to make all the text files merging into a single text file
at the end of the month?..ie) i have to merge all the 30/31 txt files
which is in the same name but in different folders into a
single consolidated text file?

-via135

 

[Graham Mayor]

This was an amusing little problem, but assuming that the foldernames are
all dates, then provided you prepare the document on the last day of the
month in question, you could use a series of includetext fields eg

{ IncludeText "D:\\My Documents\\Test\\010606\\settings.txt" }
{ IncludeText "D:\\My Documents\\Test\\020606\\settings.txt" }

The following macro will create the correct number of entries for the month
in question. All you have to do is put the source path (to the folder that
contains your sub folders) and the common document name, in place of the
sample path and name where indicated. See
http://www.gmayor.com/installing_macro.htm

Sub PrepReport()
Dim strPath As String
Dim strDocName As String
Dim strMonth As String
Dim strCount As Long
Dim strYear As String
Dim strDays As String
Dim strLeap As String

'enter path of containing folder
strPath = "D:\\My Documents\\Test\\"
'enter name of document
strDocName = "Settings.txt"

strMonth = InputBox("Enter Month in format: " & Format(Date, "MM"), _
"Month", Format(Date, "MM"))
strYear = Format(Date, "yy")
If strMonth = "04" Or strMonth = "06" Or strMonth = "09" _
Or strMonth = "11" Then
strDays = 30
Else: strDays = 31
End If

If strMonth = "02" Then
strLeap = InputBox("Is this a leap year? ", "February", "NO")
If strLeap <> "NO" Then
strDays = 29
Else: strDays = 28
End If
End If

For strCount = 1 To strDays
If strCount <> 1 Then
Selection.TypeParagraph
End If
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
PreserveFormatting:=False
With Selection
.TypeText Text:="INCLUDETEXT " & Chr(34) & strPath &
Format(strCount, "00") _
& strMonth & strYear & "\\" & strDocName & Chr(34)
End With
Selection.EndKey Unit:=wdLine
Next
With Selection
.WholeStory
.Fields.Update
.HomeKey
End With
End Sub


--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[Graham Mayor]

This was an amusing little problem, but assuming that the foldernames are
all dates, then provided you prepare the document on the last day of the
month in question, you could use a series of includetext fields eg

{ IncludeText "D:\\My Documents\\Test\\010606\\settings.txt" }
{ IncludeText "D:\\My Documents\\Test\\020606\\settings.txt" }

The following macro will create the correct number of entries for the month
in question. All you have to do is put the source path (to the folder that
contains your sub folders) and the common document name, in place of the
sample path and name where indicated. See
http://www.gmayor.com/installing_macro.htm

Sub PrepReport()
Dim strPath As String
Dim strDocName As String
Dim strMonth As String
Dim strCount As Long
Dim strYear As String
Dim strDays As String
Dim strLeap As String

'enter path of containing folder
strPath = "D:\\My Documents\\Test\\"
'enter name of document
strDocName = "Settings.txt"

strMonth = InputBox("Enter Month in format: " & Format(Date, "MM"), _
"Month", Format(Date, "MM"))
strYear = Format(Date, "yy")
If strMonth = "04" Or strMonth = "06" Or strMonth = "09" _
Or strMonth = "11" Then
strDays = 30
Else: strDays = 31
End If

If strMonth = "02" Then
strLeap = InputBox("Is this a leap year? ", "February", "NO")
If strLeap <> "NO" Then
strDays = 29
Else: strDays = 28
End If
End If

For strCount = 1 To strDays
If strCount <> 1 Then
Selection.TypeParagraph
End If
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
PreserveFormatting:=False
With Selection
.TypeText Text:="INCLUDETEXT " & Chr(34) & strPath &
Format(strCount, "00") _
& strMonth & strYear & "\\" & strDocName & Chr(34)
End With
Selection.EndKey Unit:=wdLine
Next
With Selection
.WholeStory
.Fields.Update
.HomeKey
End With
End Sub


--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[via135 via OfficeKB.com]

yes..that's it!
your code works perfectly!

one more small clarification!
if the folder names are in "yyyymmdd" format,
what change should i make in the code??

kindly advise!

thks

-via135

This was an amusing little problem, but assuming that the foldernames are
all dates, then provided you prepare the document on the last day of the
month in question, you could use a series of includetext fields eg

{ IncludeText "D:\\My Documents\\Test\\010606\\settings.txt" }
{ IncludeText "D:\\My Documents\\Test\\020606\\settings.txt" }

The following macro will create the correct number of entries for the month
in question. All you have to do is put the source path (to the folder that
contains your sub folders) and the common document name, in place of the
sample path and name where indicated. See
http://www.gmayor.com/installing_macro.htm

Sub PrepReport()
Dim strPath As String
Dim strDocName As String
Dim strMonth As String
Dim strCount As Long
Dim strYear As String
Dim strDays As String
Dim strLeap As String

'enter path of containing folder
strPath = "D:\\My Documents\\Test\\"
'enter name of document
strDocName = "Settings.txt"

strMonth = InputBox("Enter Month in format: " & Format(Date, "MM"), _
"Month", Format(Date, "MM"))
strYear = Format(Date, "yy")
If strMonth = "04" Or strMonth = "06" Or strMonth = "09" _
Or strMonth = "11" Then
strDays = 30
Else: strDays = 31
End If

If strMonth = "02" Then
strLeap = InputBox("Is this a leap year? ", "February", "NO")
If strLeap <> "NO" Then
strDays = 29
Else: strDays = 28
End If
End If

For strCount = 1 To strDays
If strCount <> 1 Then
Selection.TypeParagraph
End If
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
PreserveFormatting:=False
With Selection
.TypeText Text:="INCLUDETEXT " & Chr(34) & strPath &
Format(strCount, "00") _
& strMonth & strYear & "\\" & strDocName & Chr(34)
End With
Selection.EndKey Unit:=wdLine
Next
With Selection
.WholeStory
.Fields.Update
.HomeKey
End With
End Sub

i am receiving a text file, in a particular name, daily, in a
different folder

[quoted text clipped - 10 lines]

-via135

 

[Graham Mayor]

The includetext fields are written to the document with the line:

With Selection
.TypeText Text:="INCLUDETEXT " & Chr(34) & strPath &
Format(strCount, "00") _
& strMonth & strYear & "\\" & strDocName & Chr(34)
End With

strYear is the year
styMonth is the month
and Format(strCount, "00") is the incremented day
you can change the order thus:

With Selection
.TypeText Text:="INCLUDETEXT " & Chr(34) & strPath _
& strYear & strMonth & Format(strCount, "00") & _
"\\" & strDocName & Chr(34)
End With

The following contains the code for both versions (also some additional
prompts in which you will have to change the defaults - document name and
path - to your own requirements)

Sub PrepReport()
Dim strPath As String
Dim strDocName As String
Dim strMonth As String
Dim strCount As Long
Dim strYear As String
Dim strDays As String
Dim strLeap As String

Documents.Add

'enter path of containing folder
strPath = InputBox("Enter Path in format: " & vbCr & _
"Drive:\\path\\", "Path", "D:\\My Documents\\Test\\")

'enter name of document
strDocName = InputBox("Enter Name of document" & vbCr & _
"in format: docname.ext", "Document name", "Settings.txt")

strMonth = InputBox("Enter Month in format: " & Format(Date, "MM"), _
"Month", Format(Date, "MM"))
If strMonth = "04" Or strMonth = "06" Or strMonth = "09" _
Or strMonth = "11" Then
strDays = 30
Else: strDays = 31
End If
If strMonth = "02" Then
strLeap = InputBox("Is this a leap year? ", "February", "NO")
If strLeap <> "NO" Then
strDays = 29
Else: strDays = 28
End If
End If
strYear = InputBox("Enter Year in format: " & Format(Date, "yy"), _
"Year", Format(Date, "yy"))

For strCount = 1 To strDays
If strCount <> 1 Then
Selection.TypeParagraph
End If
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
PreserveFormatting:=False

With Selection
.TypeText Text:="INCLUDETEXT " & Chr(34) & strPath _
& Format(strCount, "00") & strMonth & strYear _
& "\\" & strDocName & Chr(34)
End With

' With Selection
' .TypeText Text:="INCLUDETEXT " & Chr(34) & strPath _
& strYear & strMonth & Format(strCount, "00") & _
"\\" & strDocName & Chr(34)
' End With

Selection.EndKey Unit:=wdLine
Next
With Selection
.WholeStory
.Fields.Update
.HomeKey
End With
End Sub


--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

yes..that's it!
your code works perfectly!

one more small clarification!
if the folder names are in "yyyymmdd" format,
what change should i make in the code??

kindly advise!

thks

-via135

This was an amusing little problem, but assuming that the
foldernames are all dates, then provided you prepare the document on
the last day of the month in question, you could use a series of
includetext fields eg

{ IncludeText "D:\\My Documents\\Test\\010606\\settings.txt" }
{ IncludeText "D:\\My Documents\\Test\\020606\\settings.txt" }

The following macro will create the correct number of entries for
the month in question. All you have to do is put the source path (to
the folder that contains your sub folders) and the common document
name, in place of the sample path and name where indicated. See
http://www.gmayor.com/installing_macro.htm

Sub PrepReport()
Dim strPath As String
Dim strDocName As String
Dim strMonth As String
Dim strCount As Long
Dim strYear As String
Dim strDays As String
Dim strLeap As String

'enter path of containing folder
strPath = "D:\\My Documents\\Test\\"
'enter name of document
strDocName = "Settings.txt"

strMonth = InputBox("Enter Month in format: " & Format(Date, "MM"), _
"Month", Format(Date, "MM"))
strYear = Format(Date, "yy")
If strMonth = "04" Or strMonth = "06" Or strMonth = "09" _
Or strMonth = "11" Then
strDays = 30
Else: strDays = 31
End If

If strMonth = "02" Then
strLeap = InputBox("Is this a leap year? ", "February", "NO")
If strLeap <> "NO" Then
strDays = 29
Else: strDays = 28
End If
End If

For strCount = 1 To strDays
If strCount <> 1 Then
Selection.TypeParagraph
End If
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
PreserveFormatting:=False
With Selection
.TypeText Text:="INCLUDETEXT " & Chr(34) & strPath &
Format(strCount, "00") _
& strMonth & strYear & "\\" & strDocName & Chr(34)
End With
Selection.EndKey Unit:=wdLine
Next
With Selection
.WholeStory
.Fields.Update
.HomeKey
End With
End Sub

i am receiving a text file, in a particular name, daily, in a
different folder

[quoted text clipped - 10 lines]

-via135

 

[via135 via OfficeKB.com]

yes..the code works well for text files!!!

unfortunately my files are in gzip format...and i am getting the error msg
"error in opening the files"

is there any way to overcome this??

hlp pl??

-via135

The includetext fields are written to the document with the line:

With Selection
.TypeText Text:="INCLUDETEXT " & Chr(34) & strPath &
Format(strCount, "00") _
& strMonth & strYear & "\\" & strDocName & Chr(34)
End With

strYear is the year
styMonth is the month
and Format(strCount, "00") is the incremented day
you can change the order thus:

With Selection
.TypeText Text:="INCLUDETEXT " & Chr(34) & strPath _
& strYear & strMonth & Format(strCount, "00") & _
"\\" & strDocName & Chr(34)
End With

The following contains the code for both versions (also some additional
prompts in which you will have to change the defaults - document name and
path - to your own requirements)

Sub PrepReport()
Dim strPath As String
Dim strDocName As String
Dim strMonth As String
Dim strCount As Long
Dim strYear As String
Dim strDays As String
Dim strLeap As String

Documents.Add

'enter path of containing folder
strPath = InputBox("Enter Path in format: " & vbCr & _
"Drive:\\path\\", "Path", "D:\\My Documents\\Test\\")

'enter name of document
strDocName = InputBox("Enter Name of document" & vbCr & _
"in format: docname.ext", "Document name", "Settings.txt")

strMonth = InputBox("Enter Month in format: " & Format(Date, "MM"), _
"Month", Format(Date, "MM"))
If strMonth = "04" Or strMonth = "06" Or strMonth = "09" _
Or strMonth = "11" Then
strDays = 30
Else: strDays = 31
End If
If strMonth = "02" Then
strLeap = InputBox("Is this a leap year? ", "February", "NO")
If strLeap <> "NO" Then
strDays = 29
Else: strDays = 28
End If
End If
strYear = InputBox("Enter Year in format: " & Format(Date, "yy"), _
"Year", Format(Date, "yy"))

For strCount = 1 To strDays
If strCount <> 1 Then
Selection.TypeParagraph
End If
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
PreserveFormatting:=False

With Selection
.TypeText Text:="INCLUDETEXT " & Chr(34) & strPath _
& Format(strCount, "00") & strMonth & strYear _
& "\\" & strDocName & Chr(34)
End With

' With Selection
' .TypeText Text:="INCLUDETEXT " & Chr(34) & strPath _
& strYear & strMonth & Format(strCount, "00") & _
"\\" & strDocName & Chr(34)
' End With

Selection.EndKey Unit:=wdLine
Next
With Selection
.WholeStory
.Fields.Update
.HomeKey
End With
End Sub

yes..that's it!
your code works perfectly!

[quoted text clipped - 79 lines]

 

[via135 via OfficeKB.com]

yes..the code works well for text files!!!

unfortunately my files are in gzip format...and i am getting the error msg
"error in opening the files"

is there any way to overcome this??

hlp pl??

-via135

The includetext fields are written to the document with the line:

With Selection
.TypeText Text:="INCLUDETEXT " & Chr(34) & strPath &
Format(strCount, "00") _
& strMonth & strYear & "\\" & strDocName & Chr(34)
End With

strYear is the year
styMonth is the month
and Format(strCount, "00") is the incremented day
you can change the order thus:

With Selection
.TypeText Text:="INCLUDETEXT " & Chr(34) & strPath _
& strYear & strMonth & Format(strCount, "00") & _
"\\" & strDocName & Chr(34)
End With

The following contains the code for both versions (also some additional
prompts in which you will have to change the defaults - document name and
path - to your own requirements)

Sub PrepReport()
Dim strPath As String
Dim strDocName As String
Dim strMonth As String
Dim strCount As Long
Dim strYear As String
Dim strDays As String
Dim strLeap As String

Documents.Add

'enter path of containing folder
strPath = InputBox("Enter Path in format: " & vbCr & _
"Drive:\\path\\", "Path", "D:\\My Documents\\Test\\")

'enter name of document
strDocName = InputBox("Enter Name of document" & vbCr & _
"in format: docname.ext", "Document name", "Settings.txt")

strMonth = InputBox("Enter Month in format: " & Format(Date, "MM"), _
"Month", Format(Date, "MM"))
If strMonth = "04" Or strMonth = "06" Or strMonth = "09" _
Or strMonth = "11" Then
strDays = 30
Else: strDays = 31
End If
If strMonth = "02" Then
strLeap = InputBox("Is this a leap year? ", "February", "NO")
If strLeap <> "NO" Then
strDays = 29
Else: strDays = 28
End If
End If
strYear = InputBox("Enter Year in format: " & Format(Date, "yy"), _
"Year", Format(Date, "yy"))

For strCount = 1 To strDays
If strCount <> 1 Then
Selection.TypeParagraph
End If
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
PreserveFormatting:=False

With Selection
.TypeText Text:="INCLUDETEXT " & Chr(34) & strPath _
& Format(strCount, "00") & strMonth & strYear _
& "\\" & strDocName & Chr(34)
End With

' With Selection
' .TypeText Text:="INCLUDETEXT " & Chr(34) & strPath _
& strYear & strMonth & Format(strCount, "00") & _
"\\" & strDocName & Chr(34)
' End With

Selection.EndKey Unit:=wdLine
Next
With Selection
.WholeStory
.Fields.Update
.HomeKey
End With
End Sub

yes..that's it!
your code works perfectly!

[quoted text clipped - 79 lines]

 

[Graham Mayor]

I wish you had mentioned that earlier. It would have saved me a lot of time
and effort
This method will only work with files that Word can open. You are going to
have to extract the text from these presumably compressed files first.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

yes..the code works well for text files!!!

unfortunately my files are in gzip format...and i am getting the
error msg "error in opening the files"

is there any way to overcome this??

hlp pl??

-via135

The includetext fields are written to the document with the line:

With Selection
.TypeText Text:="INCLUDETEXT " & Chr(34) & strPath &
Format(strCount, "00") _
& strMonth & strYear & "\\" & strDocName & Chr(34)
End With

strYear is the year
styMonth is the month
and Format(strCount, "00") is the incremented day
you can change the order thus:

With Selection
.TypeText Text:="INCLUDETEXT " & Chr(34) & strPath _
& strYear & strMonth & Format(strCount, "00") & _
"\\" & strDocName & Chr(34)
End With

The following contains the code for both versions (also some
additional prompts in which you will have to change the defaults -
document name and path - to your own requirements)

Sub PrepReport()
Dim strPath As String
Dim strDocName As String
Dim strMonth As String
Dim strCount As Long
Dim strYear As String
Dim strDays As String
Dim strLeap As String

Documents.Add

'enter path of containing folder
strPath = InputBox("Enter Path in format: " & vbCr & _
"Drive:\\path\\", "Path", "D:\\My Documents\\Test\\")

'enter name of document
strDocName = InputBox("Enter Name of document" & vbCr & _
"in format: docname.ext", "Document name", "Settings.txt")

strMonth = InputBox("Enter Month in format: " & Format(Date, "MM"), _
"Month", Format(Date, "MM"))
If strMonth = "04" Or strMonth = "06" Or strMonth = "09" _
Or strMonth = "11" Then
strDays = 30
Else: strDays = 31
End If
If strMonth = "02" Then
strLeap = InputBox("Is this a leap year? ", "February", "NO")
If strLeap <> "NO" Then
strDays = 29
Else: strDays = 28
End If
End If
strYear = InputBox("Enter Year in format: " & Format(Date, "yy"), _
"Year", Format(Date, "yy"))

For strCount = 1 To strDays
If strCount <> 1 Then
Selection.TypeParagraph
End If
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
PreserveFormatting:=False

With Selection
.TypeText Text:="INCLUDETEXT " & Chr(34) & strPath _
& Format(strCount, "00") & strMonth & strYear _
& "\\" & strDocName & Chr(34)
End With

' With Selection
' .TypeText Text:="INCLUDETEXT " & Chr(34) & strPath _
& strYear & strMonth & Format(strCount, "00") & _
"\\" & strDocName & Chr(34)
' End With

Selection.EndKey Unit:=wdLine
Next
With Selection
.WholeStory
.Fields.Update
.HomeKey
End With
End Sub

yes..that's it!
your code works perfectly!

[quoted text clipped - 79 lines]

-via135

 

[Graham Mayor]

I wish you had mentioned that earlier. It would have saved me a lot of time
and effort
This method will only work with files that Word can open. You are going to
have to extract the text from these presumably compressed files first.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

yes..the code works well for text files!!!

unfortunately my files are in gzip format...and i am getting the
error msg "error in opening the files"

is there any way to overcome this??

hlp pl??

-via135

The includetext fields are written to the document with the line:

With Selection
.TypeText Text:="INCLUDETEXT " & Chr(34) & strPath &
Format(strCount, "00") _
& strMonth & strYear & "\\" & strDocName & Chr(34)
End With

strYear is the year
styMonth is the month
and Format(strCount, "00") is the incremented day
you can change the order thus:

With Selection
.TypeText Text:="INCLUDETEXT " & Chr(34) & strPath _
& strYear & strMonth & Format(strCount, "00") & _
"\\" & strDocName & Chr(34)
End With

The following contains the code for both versions (also some
additional prompts in which you will have to change the defaults -
document name and path - to your own requirements)

Sub PrepReport()
Dim strPath As String
Dim strDocName As String
Dim strMonth As String
Dim strCount As Long
Dim strYear As String
Dim strDays As String
Dim strLeap As String

Documents.Add

'enter path of containing folder
strPath = InputBox("Enter Path in format: " & vbCr & _
"Drive:\\path\\", "Path", "D:\\My Documents\\Test\\")

'enter name of document
strDocName = InputBox("Enter Name of document" & vbCr & _
"in format: docname.ext", "Document name", "Settings.txt")

strMonth = InputBox("Enter Month in format: " & Format(Date, "MM"), _
"Month", Format(Date, "MM"))
If strMonth = "04" Or strMonth = "06" Or strMonth = "09" _
Or strMonth = "11" Then
strDays = 30
Else: strDays = 31
End If
If strMonth = "02" Then
strLeap = InputBox("Is this a leap year? ", "February", "NO")
If strLeap <> "NO" Then
strDays = 29
Else: strDays = 28
End If
End If
strYear = InputBox("Enter Year in format: " & Format(Date, "yy"), _
"Year", Format(Date, "yy"))

For strCount = 1 To strDays
If strCount <> 1 Then
Selection.TypeParagraph
End If
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
PreserveFormatting:=False

With Selection
.TypeText Text:="INCLUDETEXT " & Chr(34) & strPath _
& Format(strCount, "00") & strMonth & strYear _
& "\\" & strDocName & Chr(34)
End With

' With Selection
' .TypeText Text:="INCLUDETEXT " & Chr(34) & strPath _
& strYear & strMonth & Format(strCount, "00") & _
"\\" & strDocName & Chr(34)
' End With

Selection.EndKey Unit:=wdLine
Next
With Selection
.WholeStory
.Fields.Update
.HomeKey
End With
End Sub

yes..that's it!
your code works perfectly!

[quoted text clipped - 79 lines]

-via135

 

[via135 via OfficeKB.com]

extremely sorry..!

when i opened the files, they opened in notepad as like a simple txt file.
that's why i thougt that there would be a way to merge them instead of
copying the text in each file and pasting into a single file..!!

i don't know much abt the compressed files.!

once again i feel regret much for having troubled you!!

-via135

I wish you had mentioned that earlier. It would have saved me a lot of time
and effort
This method will only work with files that Word can open. You are going to
have to extract the text from these presumably compressed files first.

yes..the code works well for text files!!!

[quoted text clipped - 99 lines]

 

[via135 via OfficeKB.com]

extremely sorry..!

when i opened the files, they opened in notepad as like a simple txt file.
that's why i thougt that there would be a way to merge them instead of
copying the text in each file and pasting into a single file..!!

i don't know much abt the compressed files.!

once again i feel regret much for having troubled you!!

-via135

I wish you had mentioned that earlier. It would have saved me a lot of time
and effort
This method will only work with files that Word can open. You are going to
have to extract the text from these presumably compressed files first.

yes..the code works well for text files!!!

[quoted text clipped - 99 lines]

 

[Graham Mayor]

If you can open the files in Notepad, you may still be able to open them in
Word. Can you send me a sample to the link on my web site? Note that
broadband has not yet reached this remote outpost so if the file is large
maybe we need to think again

I will be away for three weeks from Tuesday so if you want me to look into
this, you'll have to be quick - or patient

Don't feel too guilty, it was an amusing exercise that may come in useful
again.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

extremely sorry..!

when i opened the files, they opened in notepad as like a simple txt
file. that's why i thougt that there would be a way to merge them
instead of copying the text in each file and pasting into a single
file..!!

i don't know much abt the compressed files.!

once again i feel regret much for having troubled you!!

-via135

I wish you had mentioned that earlier. It would have saved me a lot
of time and effort
This method will only work with files that Word can open. You are
going to have to extract the text from these presumably compressed
files first.

yes..the code works well for text files!!!

[quoted text clipped - 99 lines]

-via135

 

[Graham Mayor]

If you can open the files in Notepad, you may still be able to open them in
Word. Can you send me a sample to the link on my web site? Note that
broadband has not yet reached this remote outpost so if the file is large
maybe we need to think again

I will be away for three weeks from Tuesday so if you want me to look into
this, you'll have to be quick - or patient

Don't feel too guilty, it was an amusing exercise that may come in useful
again.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

extremely sorry..!

when i opened the files, they opened in notepad as like a simple txt
file. that's why i thougt that there would be a way to merge them
instead of copying the text in each file and pasting into a single
file..!!

i don't know much abt the compressed files.!

once again i feel regret much for having troubled you!!

-via135

I wish you had mentioned that earlier. It would have saved me a lot
of time and effort
This method will only work with files that Word can open. You are
going to have to extract the text from these presumably compressed
files first.

yes..the code works well for text files!!!

[quoted text clipped - 99 lines]

-via135