利用VBA 判斷word 每一頁中是否存在 票據狀態 這個文本 比如 第一頁中存在 票據狀態 這個文本時 在第一頁頁眉中插入小豬這個文本 第二頁中不存在 票據狀態 這個文本 在第二頁頁眉中插入小狗這個文本

Sub InsertTextInHeader()

    Dim doc As Document

    Set doc = ActiveDocument

    Dim i As Integer

    Dim pageNum As Integer

    Dim text As String

    For i = 1 To doc.Content.End - 1

        If doc.Range(i, i + 3).Text = "票據狀態" Then

            pageNum = doc.Range(i).Information(wdActiveEndAdjustedPageNumber)

            text = "小豬"

            If pageNum Mod 2 = 0 Then

                text = "小狗"

            End If

            doc.Sections(pageNum).Headers(wdHeaderFooterPrimary).Range.Text = text

        End If

    Next i

End Sub