WORD VBA 每一页第一段文字

最新推荐文章于 2025-05-14 11:10:11 发布

拙数

最新推荐文章于 2025-05-14 11:10:11 发布

阅读量5.5k

点赞数 1

CC 4.0 BY-SA版权

分类专栏： VBA 文章标签： VBA WORD

本文链接：https://blog.youkuaiyun.com/qq_39239990/article/details/86551457

VBA 专栏收录该内容

2 篇文章

订阅专栏

本文介绍了一种使用VBA脚本自动化处理Word文档的方法，包括遍历所有页码，检查特定字体和大小的段落，并进行格式调整。此过程涉及字体名称、大小的检查以及页面的插入。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'所有页码

pages = ActiveDocument.ActiveWindow.Panes(1).Pages.Count
   For i = 1 To pages

      '下一页，选中
       ActiveDocument.GoTo(wdGoToPage, wdGoToAbsolute, i).Select
        p = 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.Text
         
        If font_name = "黑体" Then
            If font_size = 16 Then
            
                 Selection.InsertNewPage
                 i = i + 1
                 
    If bl = False Then
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    End If
    
    
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeText Text:="*****"
    
    
            End If
        End If