macro - find object text and replace

Here's an example where it walks through all the pages in the document.

On each page, it looks for only one shape named, "PAGENUMBERS".

It assumes that shape is text, and sets it to be, for example, "Page 1 of 7".

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11

Sub update_my_page_numbers()
Dim pageThis As Page
Dim s As Shape

    For Each pageThis In ActiveDocument.Pages
        Set s = pageThis.Shapes.FindShape("PAGENUMBERS")
        If Not s Is Nothing Then
            s.Text.Story = "Page " & CStr(pageThis.Index) & " of " & CStr(ActiveDocument.Pages.Count)
        End If
    Next pageThis
End Sub

Even if that's not exactly what you want to do, it might provide some clues.

wonderful.  Thank you so much!

I have this in my globalmacro storage section of the macro but something is wrong.  I need it to run the macro Module1.Update upon page add or delete.

Private Sub GlobalMacroStorage_PageCreate()
    Module1.update
End Sub
Private Sub GlobalMacroStorage_PageDelete()
    Module1.update
End Sub

Be aware when you do this sort of thing that you are setting up something that runs automatically - all the time, in any document that is active.

You might want to give some thought to having some sort of "switch" that you can use to set whether you want this code to be executing automatically.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21

Public blnMyPageNumbers_active As Boolean

Sub update_my_page_numbers()
Dim pageThis As Page
Dim s As Shape

    For Each pageThis In ActiveDocument.Pages
        Set s = pageThis.Shapes.FindShape("PAGENUMBERS")
        If Not s Is Nothing Then
            s.Text.Story = "Page " & CStr(pageThis.Index) & " of " & CStr(ActiveDocument.Pages.Count)
        End If
    Next pageThis
End Sub

Sub set_MyPageNumbers_active()
    blnMyPageNumbers_active = True
End Sub

Sub set_MyPageNumbers_inactive()
    blnMyPageNumbers_active = False
End Sub

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21

Dim WithEvents CurDoc As Document

Private Sub GlobalMacroStorage_WindowActivate(ByVal Doc As Document, ByVal Window As Window)
    Set CurDoc = Doc
End Sub

Private Sub GlobalMacroStorage_WindowDeactivate(ByVal Doc As Document, ByVal Window As Window)
    Set CurDoc = Nothing
End Sub

Private Sub CurDoc_PageCreate(ByVal Page As Page)
    If blnMyPageNumbers_active Then
        update_my_page_numbers
    End If
End Sub

Private Sub CurDoc_PageDelete(ByVal Count As Long)
    If blnMyPageNumbers_active Then
        update_my_page_numbers
    End If
End Sub

thanks.  how do you post code this proper way?

also, here is the 'thismacrostorage' code and the module that is not running on page add or delete.

Dim WithEvents CurDoc As Document

Private Sub GlobalMacroStorage_WindowActivate(ByVal Doc As Document, ByVal Window As Window)
    Set CurDoc = Doc
End Sub

Private Sub GlobalMacroStorage_WindowDeactivate(ByVal Doc As Document, ByVal Window As Window)
    Set CurDoc = Nothing
End Sub

Private Sub CurDoc_PageCreate(ByVal Page As Page)
    update
End Sub

Private Sub CurDoc_PageDelete(ByVal Count As Long)
    update
End Sub

Sub update()
Dim pageThis As Page
Dim s As Shape

    For Each pageThis In ActiveDocument.Pages
        Set sPageNumThis = pageThis.Shapes.FindShape("pnumtot")
        If Not sPageNumThis Is Nothing Then
            sPageNumThis.Text.Story = CStr(ActiveDocument.Pages.Count)
        End If
    Next pageThis
End Sub