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

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

Sub PicCenter()Dim myS As InlineShapeApplication.ScreenUpdating = FalseFor Each myS in ActiveDocument.InlineShapesIf Len(myS.Range.Paragraphs(1).Range.Text) = 2 ThenmyS.Range.Paragraphs.Alignment = wdAlignParagraphCenterEnd IfNextApplication.ScreenUpdating = True
End Sub

按F5键执行即可

【vba-1】vba操作word所有图片居中相关推荐

(转)Excel VBA 操作 Word（入门篇）
原文地址本文的对象是:有一定Excel VBA基础,对Word VBA还没有什么认识,想在Excel中通过VBA操作Word还有困难的人. 一.新建Word引用需要首先创建一个对 Word App ...
VBA操作word生成sql语句
项目开始一般都是用word保存下数据库的文档但是从表单一个一个的建表实在是很困难乏味,查查资料 1.可以生成一个html或者xml,检索结构生成sql.但是这个方式也蛮麻烦 2.查到vba可以操作w ...
jacob.jar 操作word文件添加水印、图片（附查阅Microsoft Office VBA参考文档方式）
jacob.jar 操作word文件添加水印.图片 1.准备jacob.jar包和dll文件将jacob.jar引入到工程, 64位: 将jacob-1.17-M2-x64.dll 放在C:\Wi ...
VBA提高篇35 VBA操作Word/PPT/Access_CreateObject/GetObject
文章目录 1. Word参数 2. PPt/Access 3. office的互相调用 3.1 工程创建CrateObject 3.2 对比上面速度高,效率快GetObject 1. Word参数参 ...
AutoCAD VBA面域操作
AutoCAD VBA面域操作,和图案填充类似,代码如下. Public Function AddRegion(ByRef objList() As AcadEntity) As Variant On ...
AutoCAD VBA简单文字操作
AutoCAD VBA简单文字操作,包括几个简单的文字操作函数,代码如下. Public Function AddText(ByVal text As String, ByVal ptinsert A ...
AutoCAD VBA选择集操作
AutoCAD VBA选择集操作,示例代码如下. Public Sub Test() Dim pt1(0 To 2) As Double Dim pt2(0 To 2) As Double Dim p ...
ChatGPT与VBA：Excel操作一键搞定的全能助手
摘要 Excel是一款广泛应用于数据处理和分析的工具,而VBA(Visual Basic for Applications)是一种用于编程自动化Excel操作的语言.然而,对于非专业的Excel用户来 ...
浅谈Word.Application，关于js操作word文档的使用
这篇文章只是说个人放个笔记在这里,并没有讲解的意思,但为了进来的朋友能知道我在说啥,写的过程中我还是简单介绍一下. 官网地址:https://docs.microsoft.com/zh-cn/offi ...
Python操作word基础
在办公自动化的操作,往往可能会存在Word的操作.因为在办公时,对文档的操作是必不可少的.而在Python操作Word时,可以使用一个三方的模块库 Python-docx 安装 pip insta ...

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

【vba-1】vba操作word所有图片居中相关推荐

最新文章

热门文章