VBA宏定位Word中的空白页

Sub 跳转到空白页面()
    Dim pages As Integer, page As Integer, oRng As Range, content As String
    Dim i As Integer
    
    With Selection
        .StartOf wdStory
        pages = .Information(wdNumberOfPagesInDocument)
        
        For page = 1 To pages
            Set oRng = .GoTo(wdGoToPage, Which:=wdGoToAbsolute, count:=page)
            oRng.SetRange oRng.Start, oRng.Bookmarks("\page").End
            content = oRng.Text
            
            ' 检测不可打印字符
            For i = 9 To 32
                content = Replace(content, Chr(i), "")
            Next
            
            ' 如果页面内容为空，则跳转到该页面
            If Len(Trim(content)) = 0 Then
                oRng.Select ' 选择空白页面
                MsgBox "跳转到空白页面: 第 " & page & " 页"
                Exit For ' 如果只需找到第一个空白页面，添加此行
            End If
        Next page
    End With
End Sub