Can VBA open docs from filepath and run an action?

[Sydney]

Hi all

I am trying to open all documents from a filepath, run a macro that deletes
the watermark, save and close the document. Is this possible.

What I have so far errors as marked below:

Sub Test()

Dim Odoc As Word.Documents

Set fs = Application.FileSearch
With fs
.LookIn = path '"C:\"
.FileName = "*.doc"
' ' .Open (fail)

End With

For Each Odoc In fs ' I get an error here, Object doesnt support
this property
Call DeleteGraphic
Odoc.save
Odoc.close
Next Odoc

'End With
End Sub

Thanks in advance

 

[Helmut Weber]

Hi Sydney,

http://www.word.mvps.org/FAQs/MacrosVBA/BatchFR.htm

 

[Edward Thrashcort]

Use the Dir() statement and open the document by name something like this

ChangeFileOpenDirectory "C:\My Documents"
f = Dir("*.doc")
While f <> ""
Documents.Open Filename:=f
'do the business
ActiveDocument.Close SaveChanges:=wdSaveChanges
f = Dir()
Wend


Eddie

 

[Sydney]

These work like a charm!
Thank you so much Edward and Helmut.