【vba-1】vba操作word所有图片居中

最新推荐文章于 2025-04-26 19:37:01 发布

王乾峰 2016

最新推荐文章于 2025-04-26 19:37:01 发布

阅读量2.7k

点赞数 1

文章标签： vba

本文链接：https://blog.youkuaiyun.com/u013305830/article/details/120065149

版权

该博客介绍了如何通过使用VBA宏代码，在Word文档中批量将所有两字符的段落居中对齐。通过按下Alt+F11打开VBA编辑器，创建名为'PicCenter'的子程序，关闭屏幕更新，遍历文档中的每一个内联形状，检查其段落长度，若为2则设置段落对齐方式为居中。最后，重新开启屏幕更新并运行子程序完成操作。

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

alt+F11 组合键打开VBA窗口，双击左侧“工程资源管理器”窗口的“ThisDocument”，在弹窗中键入以下代码

Sub PicCenter()
    Dim myS As InlineShape
    Application.ScreenUpdating = False
    For Each myS in ActiveDocument.InlineShapes
        If Len(myS.Range.Paragraphs(1).Range.Text) = 2 Then
            myS.Range.Paragraphs.Alignment = wdAlignParagraphCenter
        End If
    Next
    Application.ScreenUpdating = True
End Sub

按F5键执行即可