vba - 特定のページに文字が表示されないことを確認する

Question

Word 文書に空白ページが断続的に散らばる可能性に直面していますが、これは破棄したいと考えています。しかし、最初に VBA でそれらを識別する必要があります。シートをクリックすると、それぞれにキャレットが着地するスポットがあります。

でも、そこから先の展開がわからない。シートにコンテンツが含まれているかどうかを識別するようにVBA経由でWordに指示する方法は?

Answer 1

これらの線の何かが合うかもしれません。

ActiveDocument.Repaginate
j = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)

For i = j To 1 Step -1
    NotEmpty = True
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=CStr(i)
    Selection.GoTo What:=wdGoToBookmark, Name:="\page"
    If Selection.Characters.Count < 3 Then
        NotEmpty = False
        For Each c In Selection.Characters
            If Asc(c) > 13 Then
                ''Possibly not empty
                NotEmpty = True
            End If
        Next
    End If
    If NotEmpty = False Then
        Selection.Delete
    End If
Next