View Full Version : Add text box to every file

07-25-2007, 02:12 PM
I have 100 Publisher Files.pub on my company network located on Z:\ Drive. I would like to add a text box to each one of those files. So basically it will open the first file add a text box then save and close file and open the second file add text box and then save and close file and so on. Is there a code could do that for you?

This what I got so far.

Sub AddTextToShape()
With ActiveDocument.Pages(1).Shapes.AddShape(Type:=msoShapeRectangle, _
Left:=55, Top:=200, Width:=500, Height:=150)
.TextFrame.TextRange.Text = "Here is some test text"
End With
End Sub