backing up word files using VBA

[shantanuo]

Hi,
Here is the simple macro I have recorded in Word.
It creats a backup.doc file after inserting the contents of all the .doc files saved in My Documents. It is working fine.
BUT
I want to include the sub-directories in my documents as well.

Sub Macro3()
'
' Macro3 Macro
' Macro recorded 04/06/02 by shantanu


Dim MyFile, MyDir
MyDir = "C:\My Documents\"

Documents.Add DocumentType:=wdNewBlankDocument
ChangeFileOpenDirectory MyDir

MyFile = Dir(MyDir & "*.doc&quot

While MyFile <> &quot;&quot;
Selection.InsertFile FileName:=MyFile
'Selection.InsertFile FileName:=&quot;doc4.doc&quot;

MyFile = Dir
Wend
ActiveDocument.SaveAs FileName:=&quot;backup.doc&quot;


End Sub

Thanks
Shantanu Oak
shantanuoak.com

 

[ratman]

Ratman's lock of the day ! (I used in Excel)

Sub LoopThruAllDocFilesInSubsToo()
Set fs = Application.FileSearch
With fs
.LookIn = &quot;C:\My Documents&quot;
.FileName = &quot;*.doc&quot;
.SearchSubFolders = True
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
'DO YOUR BAD SELF STUFF HERE
Next i
End If
End With
End Sub

 

[shantanuoak]

Hi,
I have already managed this. The code is as follows.
Now I want to add the name of each file at the beginning of each text block and format it as Heading 1.

Sub Backup()
Documents.Add DocumentType:=wdNewBlankDocument
Set fs = Application.FileSearch
With fs
    .LookIn = "C:\My Documents"
    .SearchSubFolders = True
    .FileName = "*.doc"
    If .Execute() > 0 Then
        MsgBox "There were " & .FoundFiles.Count & _
         " file(s) found."
        For i = 1 To .FoundFiles.Count
              Selection.InsertFile FileName:=.FoundFiles(i)
        Next i
    Else
        MsgBox "There were no files found."
    End If
End With
ActiveDocument.SaveAs FileName:="c:\backup.doc"
End Sub