Word VBA怎樣獲取分頁符的總數

Question

Word VBA怎樣獲取分頁符的總數

匿名

請教各位老師：不通過查找的方式，Word VBA能獲取Word中分頁符的總數嗎？就像獲取分節符總數一樣（ActiveDocument.Sections.Count），謝謝！

锁定的问题。此问题已从 Microsoft 支持社区迁移。你可投票决定它是否有用，但不能添加评论或回复，也不能关注问题。

0 个注释

问题作者接受的答案

0 个其他答案

Answer 1

您好，陈梓浩-Kiwi

歡迎來到微軟社區。

從您的描述來看，通常在Word VBA中獲取文檔中分頁符（Page Breaks）的總數並不像獲取章節總數那樣直接。Word VBA沒有內置的屬性來直接計數分頁符，但可以通過遍歷文檔中的所有段落和範圍來計算分頁符的數量。

下面是一個示例VBA代碼，它可以幫助您計算文檔中分頁符的總數：

Function CountPageBreaks() As Long Dim para As Paragraph Dim rng As Range Dim count As Long count = 0 For Each para In ActiveDocument.Paragraphs Set rng = para.Range rng.MoveEnd wdCharacter, -1 ' 移除段落标记 If rng.Information(wdActiveEndAdjustedPageNumber) <> _ rng.Information(wdActiveEndPageNumber) Then count = count + 1 End If Next para CountPageBreaks = count End Function

這將會檢查段落的起始頁碼和結束頁碼是否不同，如果不同，則表示此處存在一個分頁符。這個方法不是完全準確的，因為它依賴於段落分佈和頁面佈局，但在大多數常見情況下應該能夠正常工作。

要使用這個函數，您可以在VBA編輯器中的任何位置調用 CountPageBreaks 函數，比如在Immediate Window中輸入 ?CountPageBreaks() 並按Enter鍵來查看結果。

此致，

Icelynn |微軟社羣支援專員