#1
|
|||
|
|||
Merging multiple .txt's
I have hundreds, short .txt files and I'm looking for a fast way to merge them into one .doc file. Is there any way to do that? Last edited by Bartestokles; 12-28-2010 at 03:53 AM. |
#2
|
||||
|
||||
Hi Bartestokles,
Are these all just plain text files? Are they all in the same folder? Do they need to be inserted in any particular order? Is some form of separator needed between insertions in the document?
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#3
|
|||
|
|||
Hi,
Yup. Same folder, plain text and it looks like that: Quote:
For separator just one "free line", would be enough. |
#4
|
||||
|
||||
Hi Bartestokles,
Try the following 'InsertTextFiles' macro: Code:
Sub InsertTextFiles() Application.ScreenUpdating = False Dim strFolder As String, strFile As String, strTxt As String strFolder = GetFolder If strFolder = "" Then Exit Sub strFile = Dir(strFolder & "\*.txt", vbNormal) While strFile <> "" Open strFolder & "\" & strFile For Input As #1 strTxt = Input(LOF(1), 1) Close #1 ActiveDocument.Range.InsertAfter vbCr & strTxt strFile = Dir() Wend Application.ScreenUpdating = True End Sub Function GetFolder() As String Dim oFolder As Object Set oFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Choose a folder", 0) If (Not oFolder Is Nothing) Then GetFolder = oFolder.Items.Item.Path Else GetFolder = "" End If Set oFolder = Nothing End Function
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#5
|
|||
|
|||
Wooah! That script is sweet Thank You very much!
As we are in that topic, let me jump in not so similar one.. sadly not even connected witch Office tools I have 400 photos which are titled like that: 18-182-10, 21-53, 21-154 etc. I also have 400 .txt files matched to that photos. Those titles are the same as photos titles. In those .txt's there are Quote:
Not so clearly written.. Nonetheless I hope it's possible. |
#6
|
||||
|
||||
Hi Bartestokles,
It seems like we have some serious scope creep here! As you say: Quote:
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Merging or Cut and Paste | AnnieM | Word | 1 | 06-24-2010 03:03 AM |
Help with merging? | yazakib | Mail Merge | 0 | 04-11-2010 01:24 PM |
Merging Multiple Word files into One | Stattovic | Word | 0 | 01-06-2010 07:19 AM |
Merging Multiple Copies of the Same Document | bshatto | Word | 0 | 10-19-2009 06:22 AM |
2007 merging multiple documents into one master | hugheso | Word | 0 | 04-02-2009 04:31 AM |