Edit a publisher text box with VBA?

[wackywoo105]

I'm currently using the following to edit a publisher document using access VBA.

 For Each pubShape In pubDoc.Pages(1).Shapes
    If pubShape.HasTextFrame Then
        If pubShape.Name = "Text Box 440" Then pubShape.TextFrame.TextRange.Text = Item1
        If pubShape.Name = "Text Box 441" Then pubShape.TextFrame.TextRange.Text = Item2
        If pubShape.Name = "Text Box 442" Then pubShape.TextFrame.TextRange.Text = Item3
        If pubShape.Name = "Text Box 443" Then pubShape.TextFrame.TextRange.Text = Item4
        If pubShape.Name = "Text Box 444" Then pubShape.TextFrame.TextRange.Text = Item5
        If pubShape.Name = "Text Box 445" Then pubShape.TextFrame.TextRange.Text = Item6
        If pubShape.Name = "Text Box 446" Then pubShape.TextFrame.TextRange.Text = Item7
        If pubShape.Name = "Text Box 447" Then pubShape.TextFrame.TextRange.Text = Item8
    End If
Next

Obviously there are a lot of shapes/boxes etc in the document and this code is very inefficient and takes a few moments to complete. Is there a way to directly reference a text box and change its value. For word I have been using bookmarks but this doesn’t seem to work with publisher.

I’m looking for something like pubshape.Value(“text Box 440”) = Item1 but cannot find the correct syntax.

[Missinglinq]

Are you trying to do this from within an MS Access database?

[wackywoo105]

Yes. I'm using vba in an access form. I want to add data to a publisher file, save it as pdf and then reopen it. It works fine but takes a while as it cycles through every shape in the publisher document and there are quite a lot. I just want to put data in the required shapes (text boxes) directly but don't know how to reference them with vba code.

[June7]

Best I can find so far http://msdn.microsoft.com/en-us/libr...ffice.11).aspx

"... if the value of the Name property for a shape is Rectangle 2, then .Shapes("Rectangle 2") will return a reference to that shape."

[wackywoo105]

Thank you. That was just the push I needed. I now have:

pubDoc.Pages(1).Shapes("Text Box 440").TextFrame.TextRange.Text = Item1

and it works fine.