WORD VBA 每一页第一段文字
生活随笔
收集整理的這篇文章主要介紹了
WORD VBA 每一页第一段文字
小編覺得挺不錯(cuò)的,現(xiàn)在分享給大家,幫大家做個(gè)參考.
'所有頁碼pages?= ActiveDocument.ActiveWindow.Panes(1).Pages.CountFor i = 1 To pages'下一頁，選中ActiveDocument.GoTo(wdGoToPage, wdGoToAbsolute, i).Selectp = Selection.Information(wdActiveEndPageNumber) '當(dāng)前頁碼‘所在頁第一段選中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‘內(nèi)容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
?
總結(jié)
以上是生活随笔為你收集整理的WORD VBA 每一页第一段文字的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問題。
- 上一篇： 全国计算机软考程序员考试大纲（2012）
- 下一篇： bp神经网络人口预测 C语言,BP神经网