Word宏应用实例.doc

Word宏应用实例 一、宏的录制 在这里举一实例。例如，在Word 97中，要插入字符，则往往要到符号框中查找半天。对于一些常用的符号，如“￥”，便可以使用宏来使工作简化。 1.单击“工具”选单中“宏”子选单，再单击“录制新宏”选项。 2.给宏取名为“Yuan”，再单击“键盘”。 3.在弹出的对话框中指定快捷键，可指定为“CtrlY”，再关闭该对话框回到“录制宏”对话框。单击“确定”按钮启动记录器。 4.运行“插入”选单中的“符号”子选单，从弹出的“符号”框中选择“￥”，插入后再关闭。另外，也可以指定到工具栏，从弹出的“自定义”对话框中的“命令”栏中把“Normal.NewMacro1.Yuan”拖放到工具栏中。 5.单击“停止录制”工具栏中的“停止录制”按钮。 6.单击“工具”选单中“宏”子选单，再单击“宏”命令。 7.选择第二步中的宏名称，再单击“编辑”按钮。 这时我们可以从中看到以下代码： Sub Yuan() Selection.InsertSymbol Font:=楷体GB2312,CharacterNumber:=27,Unicode:=True End Sub 以后，当你需要插入字符“￥”时，只需按下快捷键“CtrlY”，或者是在工具栏点击“Normal.NewMacrol.Yuan”便可以了。 二、宏的编辑 宏录制器将以上宏操作翻译为Visual Basic代码。但是，录制宏时会受到一些限制。许多复杂的宏，例如，要用到循环语句，便无法录制。为了提高录制的宏的功能，就可能需要修改录制到模块中的代码。 具体操作为：单击“工具”选单中“宏”子选单，再单击“宏”命令。选择第二步中的宏名称，再单击“编辑”按钮。 然后便加载Visual Basic编辑器，我们可以看到所录制的宏自动生成的Visual Basic代码。 例如，在C:My Document中有200个Word文档，依次命名为“1.doc”，“2.doc”，“3.doc”，“200.doc”，我们需要把文件格式改变为文本文件，即txt文件。 先以1.doc为例，录制一个宏，打开文档，另存为txt文件，再关闭该活动文档。生成的Visual Basic代码如下： Sub Macro1() ChangeFileOpenDirectory C:My document Documents.Open FileName:=1.doc ActiveDocument.SaveAs FileName:=1.txt,FileFormat:=wdFormatText ActiveWindow.Close End Sub 下一步便进行编辑，用一个循环语句依次打开各个文件，转化后再关闭。代码如下： Sub Macro1() dim i for i=1 to 200 ChangeFileOpenDirectory C:My document Documents.Open FileName:=i .doc ActiveDocument.SaveAs FileName: =i .txt, FileFormat:=wdFormatText ActiveWindow.Close next i End Sub 再次运行该宏，便可以轻松完成任务。宏的作用由此可略见一斑您正在看的Word教程是:Word统计文字出现次数 Word宏应用实例。有的时候，我们要在一个文档中查找某个文本出现的总次数，也就是查找该文本的总数量，例如在一份违纪登记表格中查找一个姓名被记载的总数，类似的应用还有很多。但Word没有这样的功能，我编写了一个宏，使Word具有统计单个文本总数量的功能。下面介绍实现方法。 第二步 在弹出的VisualBasic编辑器的代码窗口中完成以下内容：Sub FindText()Text = InputBox(请输入要查找的文本：, 提示)With ActiveDocument.Content.FindDo While .Execute(FindText:=Text) = Truetim = tim + 1LoopEnd WithMsgBox (当前文档查找到 + Str(tim) + 个 + Text), 48, 完成End Sub第三步 录入完毕后，单击菜单文件关闭并返回到Micrcsoft后Word。第四步 单击菜单工具自定义，单击“命令”选项卡，在“类别”中选择“宏”，将右边的“Normal.NewMacros.FindText”命令拖入“编辑”菜单中，并右击拖入的命令，在“命名”框中重命名为“查找文本数量”(如图)。以后要统计文本数量时，只要单击编辑查找文本数量，按提示输入要查找的内容，单击确定就得到统计结果。宏应用实例三：将大量的Word文档.doc文件转换为.htm文件2007-11-15 14:12【分析】我们知道，利用word可以将.doc文件转换为.htm文件，方法是：在Doc文件编辑窗口中，选择菜单“文件/另存为”，在“保存类型”下列列表中选择“html document”，按“保存”。单独进行几个doc文件的转换还不算繁琐，但要大批量地进行转换工作时，比如：按章节输入了一本书，形成了几十个.doc文件，要对这些文件进行转换成.htm文件的工作，这时，就不能采用手工一个个处理的笨办法了！怎么实现呢？请往下看。【实现步骤】假设大批量.doc文档所在目录为c:docs，文件名为1.1.doc，1.2.doc .1、 启动word2、 关闭当前默认打开的空文档3、 选择菜单“工具/宏/录制新宏”，输入宏名称“doctohtml”，按“确定”，进入了宏录制过程。4、 选择菜单“文件/打开”，选择目录c:docs，选择文件1.1.doc，按“确定”。5、 选择菜单“文件/另存为”，在“保存类型”下列列表中选择“html document”， 按“保存”。6、 选择菜单“文件/关闭”7、 选择菜单“工具/宏/停止录制”8、 选择菜单“工具/宏/宏”9、 在出现的“宏”窗口左部选中doctohtml，单击右边的按钮“编辑”10、宏代码改造：在出现的“Microsoft Visual Basic”窗口中，可以看到如下的宏代码：Sub doctohtml() doctohtml Macro 宏在 99-11-8 由 xxx 录制 ChangeFileOpenDirectory C:docs Documents.Open FileName:=1.1.doc, ConfirmConversions:=False, ReadOnly:= _ False, AddToRecentFiles:=False, PasswordDocument:=, PasswordTemplate:= _ , Revert:=False, WritePasswordDocument:=, WritePasswordTemplate:=, _ Format:=wdOpenFormatAuto ActiveDocument.SaveAs FileName:=1.1.htm, FileFormat:=100, LockComments:= _ False, Password:=, AddToRecentFiles:=True, WritePassword:=, _ ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _ SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _ False ActiveDocument.CloseEnd Sub对上面的代码进行改造，如下：Sub doctohtml(myfile as string) doctohtml Macro 宏在 99-11-8 由 xxx 录制 ChangeFileOpenDirectory C:docs If FileExists(gwfile + .doc) Then Documents.Open FileName:=myfile+.doc, ConfirmConversions:=False, ReadOnly:= _ False, AddToRecentFiles:=False, PasswordDocument:=, PasswordTemplate:= _ , Revert:=False, WritePasswordDocument:=, WritePasswordTemplate:=, _ Format:=wdOpenFormatAuto ActiveDocument.SaveAs FileName:=myfile+.htm, FileFormat:=100, LockComments:= _ False, Password:=, AddToRecentFiles:=True, WritePassword:=, _ ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _ SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _ False ActiveDocument.Close end if End Sub并加入下面两个过程：判断文件是否存在的函数Function FileExists(ByVal FileName As String) As Boolean On Error Resume Next FileExists = Dir$(FileName) If Err.Number 0 Then FileExists = False End If On Error GoTo 0End Function实际的转换函数Sub mydoctohtml() If MsgBox(确认执行转换doc到html文件吗？, vbOKCancel + vbDefaultButton2) = _ vbCancel Then GoTo eeeddd Call doctohtml(conver) Call doctohtml(content) Call doctohtml(qianyan) Call doctohtml(fl) Call doctohtml(1.1) Call doctohtml(1.2) . Call doctohtml(1.10) . Call doctohtml(2.1) . Call doctohtml(3.1) . . Call doctohtml(9.1) . eeeddd:End Sub至此，全部代码改造完毕！关闭“Microsoft Visual Basic”窗口，回到Word窗口。11、选择菜单“工具/宏/宏”，出现“宏”窗口，在左边的宏列表中，可以看到“mydoctohtml”一项，选中它，按右边的按钮“运行”，出现提示窗口“确认执行转换doc到html文件吗？”，选择“确定”，批量转换工作开始了！【后记】上面应用宏的例子，看起来虽然步骤很多，其实做起来却非常简单，技术上关键在于2个环节：第一、根据某个任务录制初始的宏；第二、对初始的宏代码进行改造，已满足满足特殊的需求Word宏命令巧妙应用一例文章出处：/course/5_office/word/wordshl/2007214/23377.html由于工作和学习的需要，笔者经常在网上阅读大量的信息，但由于网上的文字格式不一，所以笔者喜欢将它保存下来，并且用Word打开，精心设置其字体与背景后再阅读。可这样每次阅读都需重新设置一番，挺麻烦的。不久前看到了Word里的宏命令，仔细研究后发现，它可以帮我的大忙呢。只需进行如下设置，以后这样的事情一个按钮就可以搞定。1. 任意打开一篇文挡，用鼠标任选一段文字。2. 执行“工具宏录制新宏”命令，打开如图1所示对话框。3. 在“录制宏”对话框的“宏名”文本框中输入宏的名称“读前设置”，在“将宏保存在”下拉列表框中选择“所有文档（normal.dot）”，然后单击工具栏按钮，打开图2所示“自定义”对话框。4. 在“自定义”对话框中选择“命令”选项卡，在“命令”列表框中将显示输入的宏名。在该名称上按下鼠标左键将其拖到“常用”工具栏上，这样工具栏上就多了一个读前设置按钮了。 图1录制新宏5. 单击关闭进入宏的录制过程。此时，“停止”浮动工具栏将出现在屏幕上，此工具栏上有两个按钮，左边是停止，右边是暂停（如图3）。6. 执行“格式字体”命令，在打开的“字体”对话框中选择“字体”选项卡，在对话框的“中文字体”下拉列表中选择“宋体”，在“字形”下拉列表中选择“常规”，在“字号”下拉列表中选择“小四”，在“字体颜色”下拉列表中选择“灰度-80%”，单击确定。7. 执行“格式背景其他颜色”命令，在打开的“颜色”框中选择一种很浅的灰色，单击确定。8. 单击“停止”工具栏上的停止按钮结束录制。 图2 “自定义”对话框 图3“停止”工具栏这样，以后只要在网上阅读文字，在Word里打开，先用“Ctrl+A”全选后，单击“常用”工具栏上的宏按钮读前设置，就可以看到很舒服的文字效果了。文章出处：/course/5_office/word/wordshl/2007214/23377.html一些Word快捷编辑、特殊输入操作的域、宏应用实例代码2008-04-26 08:50本文大部分代码来自于顾经宇其实你还没懂word及其网站或论坛，部分代码经过本人修改，对于方便应用word很有好处。具体应用，请查看原书（右键点击用迅雷下载pdf版本）。发布于此，一为保留自用，二为共享他人。标题中说是“域、宏应用实例代码”，实际上，把一些域的操作也编制成了宏，所以，以下全是宏代码。至于word如何添加宏，不在本文叙述范围，请自行搜索网络。1. 打开文档时光标返回上次关闭时最后编辑处Sub AutoOpen() AutoOpen Macro宏名称一定要是AutoOpen（大小写无所谓） 宏在 2008-4-16 由 * 创建Application.GoBackEnd Sub2. 无格式粘贴Sub 无格式粘贴() 无格式粘贴 Macro 宏在 2006-11-2 由 * 创建 Selection.PasteSpecial Link:=False, DataType:=wdPasteText, Placement:= _ wdInLine, DisplayAsIcon:=FalseEnd Sub3. 匹配目标格式粘贴Sub 匹配目标格式粘贴() 匹配目标格式粘贴 Macro，这个宏的功能与上一个好像是一样的，虽然代码不同，都是匹配目标格式粘贴 宏在 2006-11-3 由 * 创建Selection.PasteAndFormat (wdFormatSurroundingFormattingWithEmphasis)End Sub4. 删除连续两个换行符Sub 删除连续两个换行符() 删除连续两个换行符 Macro 宏在 2006-11-2 由 * 创建Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWith Selection.Find .Text = ll .Replacement.Text = .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAllSelection.MoveDown Unit:=wdLine, Count:=1End Sub5. 合并连续两个段落标记为一个Sub 替换连续两个段落标记为一个() 替换连续两个段落标记为一个 Macro 宏在 2006-11-2 由 * 创建Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWith Selection.Find .Text = pp .Replacement.Text = p .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAllSelection.MoveDown Unit:=wdLine, Count:=1End Sub6. 替换换行符为段落标记Sub 替换换行符为段落标记()Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWith Selection.Find .Text = l .Replacement.Text = p .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAllSelection.MoveDown Unit:=wdLine, Count:=1End Sub7. 段前空半行Sub 段前空半行() 段前空半行 Macro 宏在 2006-11-3 由 * 创建With Selection.ParagraphFormat.LineUnitBefore = 0.5End WithEnd Sub8. 段前空一行Sub 段前空一行() 段前空一行 Macro 宏在 2006-11-3 由 * 创建With Selection.ParagraphFormat.LineUnitBefore = 1End WithEnd Sub9. 文献标号上标化Sub 文献标号上标化() 参考文献上标化 Macro 宏在 2006-11-3 由 * 创建 Selection.HomeKey Unit:=wdStory Selection.Find.Replacement.ClearFormatting With Selection.Find.Replacement.Font .Superscript = True End With With Selection.Find .Text = -，0-9,- .Replacement.Text = .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.Replacement.ClearFormatting With Selection.Find.Replacement.Font .Superscript = True End With With Selection.Find .Text = -，0-9,- .Replacement.Text = .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAllEnd Sub10. 箭头上方加文字Sub 箭头上方加文字() 箭头上方加文字 Macro 宏在 2008-4-16 由 * 创建 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False Selection.TypeBackspace Selection.Delete Unit:=wdCharacter, Count:=1 Selection.TypeText Text:=eq o(sdo2(),sup5(敲击Delete键清除此段文字，改填所需文字，酌情增减箭头长度，最后同时按下shift和F9) Selection.MoveLeft Unit:=wdCharacter, Count:=2 Selection.MoveLeft Unit:=wdWord, Count:=25, Extend:=wdExtend 顾经宇的代码是26，改成25更好End Sub11. 输入分式Sub 分式() 公式 Macro 宏在 2008-4-16 由 * 创建 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False Selection.TypeBackspace Selection.Delete Unit:=wdCharacter, Count:=1 Selection.TypeText Text:=eq f(分子,分母)End Sub12. 输入平均值Sub 平均值() 平均值 Macro 没有在顾经宇的书和网站中找到这个宏，是本人录制编辑的 宏在 2008-4-17 由 * 创建 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False Selection.TypeBackspace Selection.Delete Unit:=wdCharacter, Count:=1 Selection.TypeText Text:=eq o( Selection.Font.Italic = wdToggle Selection.TypeText Text:=x Selection.Font.Italic = wdToggle Selection.TypeText Text:=,sdo1( Selection.InsertSymbol Font:=宋体, CharacterNumber:=175, Unicode:=True Selection.TypeText Text:=)End Sub13. 插入无空格的域Sub插入域()word的插入域命令，输入光标前后会有空格，有时候转换成域的结果时，后面的空格也会显示，这个宏会先删除掉空格再让你编辑域代码 宏在 2008-4-17 由 * 录制 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False Selection.TypeBackspace Selection.Delete Unit:=wdCharacter, Count:=1End Sub-简单分割线-以下5个宏为添加使用参考文献提供方便14. 添加参考文献格式一，参考文献在文档末尾以1 2 3 格式排列Sub 添加参考文献格式一() 添加参考文献 Macro 宏在 2008-4-17 由 * 创建 Selection.Style = ActiveDocument.Styles(尾注引用) Selection.TypeText Text:= Selection.MoveLeft Unit:=wdCharacter, Count:=1 With ActiveDocument.Endnotes .StartingNumber = 1 .NumberStyle = wdNoteNumberStyleArabic End With ActiveDocument.Endnotes.Add Range:=Selection.Range, Reference:= Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend Selection.Style = ActiveDocument.Styles(默认段落字体) Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.TypeText Text:= End Sub15. 添加参考文献格式二，参考文献在文档末尾以1 2 3 格式排列，修改自格式一的代码Sub 添加参考文献格式二() 添加参考文献 Macro 宏在 2008-4-17 由 * 创建 Selection.Style = ActiveDocument.Styles(尾注引用) Selection.TypeText Text:= Selection.MoveLeft Unit:=wdCharacter, Count:=1 With ActiveDocument.Endnotes .StartingNumber = 1 .NumberStyle = wdNoteNumberStyleArabic End With ActiveDocument.Endnotes.Add Range:=Selection.Range, Reference:= Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend Selection.Style = ActiveDocument.Styles(默认段落字体) Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.TypeText Text:= Selection.MoveLeft Unit:=wdCharacter + 2, Count:=1 Selection.TypeText Text:= End Sub16. 返回正文Sub 返回正文()返回正文 Macro宏在 2008-4-16 由 * 创建If ActiveWindow.ActivePane.View.Type = wdPageView Or ActiveWindow. _ ActivePane.View.Type = wdOnlineView Or ActiveWindow.ActivePane.View.Type _ = wdPrintPreview Then ActiveWindow.View.SeekView = wdSeekMainDocument Else ActiveWindow.Panes(2).Close End If Selection.MoveRight Unit:=wdCharacter, Count:=2End Sub17. 再次引用已有参考文献Sub 引用编号()引用编号 Macro宏在 2008-4-16 由 * 创建 Selection.Font.Superscript = wdToggle Selection.TypeText Text:= Selection.MoveLeft Unit:=wdCharacter, Count:=1 With Dialogs(wdDialogInsertCrossReference) .InsertAsHyperlink = True .Show End With Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.Font.Superscript = wdToggleEnd Sub18. 查找被删参考文献遗留引用，Sub 查找被删编号()要删除某个参考文献，应该在原始引用处删除引用，这样可以一并删除参考文献，而不是在文档末尾文献列表处删除 Selection.WholeStory Selection.Fields.Update Selection.Find.ClearFormatting With Selection.Find .Text = 错误！未定义书签。 End With Selection.Find.Execute Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtendEnd Sub以上宏除第一个打开word文档自动运行之外，为了方便应用，建议自己编辑设置工具按钮，想用的时候点击即可，不需要繁琐的菜单、对话框寻找动作。我自己设置的按钮如下图，从左至右，分别对应宏2-18。至于如何把宏设置成按钮，请查看原书或搜索百度、google。附：Sub 合并所选多个段落为一段() 合并所选段落为一段，即删除选择范围内的所有段落标记。一定要选中某几个段落才可以使用，否则把从当前光标开始的所有段落都合并为一段 Macro 宏在 2008-4-19 由 * 录制 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = p .Replacement.Text = .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub妙用word实现“复印”功能2008-04-26 08:55一个同事愁眉苦脸地拿着一张表格来请我帮忙，原来这是一张省级先进的呈报表，只有这么一份，必须一次填好，不允许涂改，没有多余表格备用。可这位老兄不知怎的，偏偏填错了，省先进呀，千载难逢的好机会啊！你说他急不急！ 如果能在计算机上模拟一张全新的表格就好了，给Word添加一个1:1全真显示的工具按钮吧!说做就做，取得了打印结果与屏幕显示对应关系的比例数据后，编写了一个宏命令。同事的苦恼随之烟消云散，现将方法写出来，或许对大家有所帮助。 取得与打印完全一致的屏幕显示比例 由于各人使用的显示器尺寸不同及画幅调整的习惯不同，因此在此无法给出一个具体的数据。请先将显示器的画幅调整妥当，以能够最大限度地显示出完整的全屏幕窗口为准。找到你要使用的纸型，用尺子量取纸的宽度，精确到毫米。因为标称开本的纸张，其实际大小并不一定与标称值相同。然后，打开Word新建一空白文档，并设置为“页面”视图，在文件页面设置选定纸型，再将“纸型”选项卡中的纸张宽度设置为精确值。 再以这张纸为依据，确定屏幕显示比例。在视图显示比例输入框中反复手工调整显示比例，系统本身只提供几种固定的比例，其实我们完全可以直接输入任意一个整数。比如我的17英寸显示器在设置为81%后，屏幕上的页面大小与真实纸张完全一致，这个“81”就是下一步需要的数据。 编写宏命令 在Word的编辑界面按Alt+F8，打开“宏”对话框，在“宏名”编辑框中输入“全真1:1显示”，然后单击创建按钮，打开VisualBasic编辑器，在代码编辑窗口输入下列代码： PublicSub全真1:1显示() ActiveWindow.ActivePane.View Zoom.Percentage=81 EndSub 注意：Zoom.Percentage的值应灵活更改为与你的显示器对应的真实比例数字。 创建1:1全真显示的工具栏按钮 按Alt+V+T+C，调出工具栏“自定义”对话框，选择“命令/宏”，右边的列表框中会显示出所有已经存在的宏。找到刚才编辑的那个“全真1:1显示”的宏，将它拖入Word主界面的工具栏中的任意位置，这时工具栏中会出现一个与宏名对应的按钮，右击新按钮，在弹出的快捷菜单的“命名”编辑框中更改按钮名称为“1:1”。按关闭按钮退出设置。用宏批量定位word中图片位置2008-04-26 08:46用宏批量定位word中图片位置悬赏分：200 - 解决时间 2008-4-17 16:54我有一个word文档，里面有多幅图，但图片的缩进位置不统一，有些靠右，有些居中，有些靠左等等。能否通过编制宏一次完成调整，让所有图片靠左，或居中。我知道通过宏可以批量完成一个word中所有图片大小的修改，在次与大家共享，也希望可以给大家参考。1、Alt+F8调出宏编辑窗口2、点创建按钮，创建新宏，setpicsize,内容如下：Sub setpicsize()设置图片大小 宏在 2008-3-31 由 hero_thm 录制Dim j 计数图片个数For j = 1 To ActiveDocument.InlineShapes.Count 文件中图片总个数，图片类型为inlineshapesActiveDocument.InlineShapes(j).Height = 362 设置高度ActiveDocument.InlineShapes(j).Width = 481.87 设置宽度Next jEnd Sub3、保存退出，点运行setpicsize宏，word中所有的图片统一调整为宽17cm，高12.77cm问题补充：TO 2楼word 2003应该可以支持的，我提供的宏批量处理图片大小就可以实现To 3楼、5楼感谢两位的回答试了两位的方法，正常图片没有首行缩进的都能够实现，但我的图片都是有首行缩进的，两位的方法我都试了，都无法解决缩进的问题此外3楼的方法会在图片周围添加一个虚框，不知是否有办法去除5楼的我试着添加了 ActiveDocument.InlineShapes(i).FirstLineIndent = CentimetersToPoints(0)也是没有效果因此麻烦2位看看能否解决首行缩进的问题详细信息请看链接/thread-5425-1-1.html 提问者：hero_thm最佳答案帮你稍微修改了一下，使所有嵌入式图片居中。对于所有图片，可以用ActiveDocument.Shapes.Count注意：这里的Shapes（InlineShapes）不仅仅是指图片，也包含其它的，自选图形、任意多边形、OLE 对象、ActiveX 控件、图片等。Sub setpicsize()设置图片大小 宏在 2008-3-31 由 hero_thm 录制Dim j 计数图片个数For j = 1 To ActiveDocument.InlineShapes.Count 文件中图片总个数，图片类型为inlineshapesActiveDocument.InlineShapes(j).Select 选中图片Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter 图片居中；wdAlignParagraphLeft左对齐Next jEnd Sub上面，我补充的语句，其实也是录制宏的方式，生成的。（先选