【vba-3】vba操作word所有表格居中

最新推荐文章于 2024-07-12 12:33:02 发布

王乾峰 2016

最新推荐文章于 2024-07-12 12:33:02 发布

阅读量1.2k

点赞数

文章标签： vba

本文链接：https://blog.csdn.net/u013305830/article/details/120065395

版权

本文详细讲解如何使用VBA编程实现Word中的所有表格内容自动居中对齐，帮助提升文档格式处理效率。

摘要由CSDN通过智能技术生成

Sub addTz()
    Word.Application.ScreenUpdating = False
    Dim oRng As Range
    Dim oDoc As Document
    Dim oCL As CaptionLabel
    Dim oIS As InlineShape
    Set oDoc = Word.ActiveDocument
    With oDoc
        Set oCL = Word.CaptionLabels.Add("图")
        '设置新增的题注样式
        With oCL
            .ChapterStyleLevel = 1
            .IncludeChapterNumber = True
            .NumberStyle = wdCaptionNumberStyleArabic
        End With
        i = 1
        For Each oIS In .InlineShapes
            Set oRng = .Range(oIS.Range.End + 1, oIS.Range.End + 1)
                With oRng
                    '防止影响下段格式
                    .InsertAfter (vbCrLf)
                    '将oRng对象按照整个段落选中，oRng对象自动变为整个段落的Range对象
                    oRng.Expand wdParagraph
                    '如果有自动编号 删除
                    oRng.ListFormat.RemoveNumbers
                    '读取标题的文本内容