'所有頁碼pages?= ActiveDocument.ActiveWindow.Panes(1).Pages.CountFor i = 1 To pages'下一頁，選中ActiveDocument.GoTo(wdGoToPage, wdGoToAbsolute, i).Selectp = Selection.Information(wdActiveEndPageNumber) '當前頁碼‘所在頁第一段選中ActiveDocument.Bookmarks("\page").Range.Paragraphs.Item(1).Range.Select‘字體font_name = ActiveDocument.Bookmarks("\page").Range.Paragraphs.Item(1).Range.Font.Name’大小font_size = ActiveDocument.Bookmarks("\page").Range.Paragraphs.Item(1).Range.Font.Size‘內容txt = ActiveDocument.Bookmarks("\page").Range.Paragraphs.Item(1).Range.TextIf font_name = "黑體" ThenIf font_size = 16 ThenSelection.InsertNewPagei = i + 1If bl = False ThenSelection.MoveLeft Unit:=wdCharacter, Count:=1End IfSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeParagraphSelection.TypeText Text:="*****"End IfEnd If

?

總結

以上是生活随笔為你收集整理的WORD VBA 每一页第一段文字的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。