VBA コードを使用して Word 文書のページ番号を取得する方法

1. Word 文書のページ番号を取得するための VBA コード

VBA コードを通じて Word 文書のページ番号を取得するには、ActiveDocument を使用できます。 .ComputeStatistics メソッドを次のように実行します。 表示:

Sub GetPageCount()
    Dim pageCount As Integer
    ' 计算文档页数
    pageCount = ActiveDocument.ComputeStatistics(wdStatisticPages)
    MsgBox "文档共 " & pageCount & " 页。"
End Sub

このコードは、wdStatisticPages パラメーターを使用して Word 文書のページ数を計算し、## パラメーターを使用してページ番号情報を表示します。 #MsgBox ポップアップ ウィンドウ。

2. Word で、セクション分割後の合計ページ数について質問がある場合は、次の手順を実行できます。セクションを区切る必要がある場所にセクション区切り (ブレークポイント記号など) を挿入します。 2. 各セクションのフッターにページ番号を挿入し、[ページ番号の書式設定] を選択します。

3. [ページ番号の形式] ダイアログ ボックスで、[前のセクションから続ける] または [前のセクションから開始] を選択して、ページ番号の開始位置を設定します。

1. このようにして、各セクションのページ数が独立してカウントされるため、セクション化後の合計ページ数の問題が解決されます。
2. 3. Word で VBA を使用して、各ページのテキストの行数を確認します。

Word で VBA を使用して、各ページのテキストの行数を確認するには各ページでは、次のコードを使用できます。

Sub GetLinesPerPage()
    Dim i As Integer
    Dim linesCount As Integer
    Dim currentPage As Integer

    ' 获取当前页数
    currentPage = Selection.Information(wdActiveEndAdjustedPageNumber)

    ' 移动到文档末尾
    Selection.EndKey Unit:=wdStory

    ' 循环向上查找直到页数变化
    Do
        Selection.MoveUp Unit:=wdLine
        i = i + 1
    Loop Until Selection.Information(wdActiveEndAdjustedPageNumber) <> currentPage

    &#39; 计算每一页的行数
    linesCount = i - 1
    MsgBox "每一页有 " & linesCount & " 行文字。"
End Sub

このコードは、まず現在のページ番号を取得し、次にページ番号が変わるまでカーソルを上に移動して各ページの行数を計算し、

MsgBox ポップアップ ウィンドウに結果が表示されます。

概要

(1)

ActiveDocument.ComputeStatistics

メソッドを使用して、VBA コードを通じて Word 文書のページ数を取得します。 。 (2) Wordでセクション分けした後、ページ番号が何ページになるかという問題は、セクション区切りにセクション区切りを挿入し、ページ番号の開始位置を設定することで解決できます。

(3) Word の VBA を使用して、ページ数が変わるまでカーソルを移動して、各ページにあるテキストの行数を計算します。

以上がVBA コードを使用して Word 文書のページ番号を取得する方法の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。