VBA 코드를 통해 Word 문서의 페이지 번호를 얻는 방법-사무용 소프트웨어-php.cn

VBA 코드를 통해 Word 문서의 페이지 번호를 얻는 방법

WBOY

풀어 주다： 2024-01-23 15:18:24

앞으로

1524명이 탐색했습니다.

1. Word 문서의 페이지 번호를 가져오는 VBA 코드

VBA 코드를 통해 Word 문서의 페이지 번호를 가져오려면 아래와 같이 ActiveDocument.ComputeStatistics 메서드를 사용할 수 있습니다. ActiveDocument.ComputeStatistics方法，如下所示：

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

로그인 후 복사

这段代码通过wdStatisticPages参数计算Word文档的页数，并通过MsgBox弹窗显示页数信息。

二、Word中分节后关于页码共几页的问题

在Word中，分节后关于页码共几页的问题可以通过以下步骤解决：

1. 在需要分节的位置插入分节符（例如，断点符号）。
2. 在每个分节的页脚中插入页码，并选择“格式页码”。
3. 在“页码格式”对话框中，选择“续前节”或“从上一节开始”来设置页码的起始位置。

这样，每个分节的页码都将独立计数，从而解决了分节后关于页码共几页的问题。

三、在Word中使用VBA得出每一页都多少行文字

要通过VBA在Word中得出每一页有多少行文字，可以使用以下代码：

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

    &#39; 获取当前页数
    currentPage = Selection.Information(wdActiveEndAdjustedPageNumber)

    &#39; 移动到文档末尾
    Selection.EndKey Unit:=wdStory

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

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

로그인 후 복사

这段代码首先获取当前页数，然后通过向上移动光标直到页数变化，从而计算出每一页的行数，并通过MsgBox弹窗显示结果。

总结