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...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.