1、1Word 宏应用实例 一、宏的录制 在这里举一实例。例如，在 Word 97 中，要插入字符，则往往要到符号框中查找半天。对于一些常用的符号，如“￥”，便可以使用宏来使工作简化。 1.单击“工具” 选单中“宏”子选单，再单击“ 录制新宏”选项。 2.给宏取名为“Yuan”，再单击“键盘” 。 3.在弹出的对话框中指定快捷键，可指定为“Ctrl Y”，再关闭该对话框回到“ 录制宏”对话框。单击“确定” 按钮启动记录器。 4.运行“插入” 选单中的“符号”子选单，从弹出的“ 符号”框中选择“ ￥”，插入后再关闭。另外，也可以指定到工具栏，从弹出的“自定义” 对话框中的“命令”栏中把“Normal
2、.NewMacro1.Yuan”拖放到工具栏中。 5.单击“停止录制”工具栏中的“停止录制”按钮。 6.单击“工具” 选单中“宏”子选单，再单击“ 宏”命令。 7.选择第二步中的宏名称，再单击“编辑” 按钮。 这时我们可以从中看到以下代码： Sub Yuan() Selection.InsertSymbol Font:=楷体GB2312,CharacterNumber:=27,Unicode:=True End Sub 以后，当你需要插入字符“￥ ”时，只需按下快捷键“CtrlY”，或者是在工具栏点击“Normal.NewMacrol.Yuan”便可以了。 二、宏的编辑 宏录制器将以上宏操作翻
3、译为 Visual Basic 代码。但是，录制宏时会受到一些限制。许多复杂的宏，例如，要用到循环语句，便无法录制。为了提高录制的宏的功能，就可能需要修改录制到模块中的代码。 具体操作为：单击“工具”选单中“宏” 子选单，再单击“宏”命令。选择第二步中的宏名称，再单击“编辑” 按钮。 2然后便加载 Visual Basic 编辑器，我们可以看到所录制的宏自动生成的 Visual Basic 代码。例如，在 C:My Document 中有 200 个 Word 文档，依次命名为“1.doc” ， “2.doc”， “3.doc”，“200.doc”，我们需要把文件格式改变为文本文件，即 txt
4、 文件。 先以 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
5、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 3再次运行该宏，便可以轻松完成任务。宏的作用由此可略见一斑您正在看的 Word 教程是:Word 统计文字出现次数 Word 宏应用实例。有的时候，我们要在一个文档中查找某个文本出现的总次数，也就是查找该文本的总数量，例如在一份
6、违纪登记表格中查找一个姓名被记载的总数，类似的应用还有很多。但 Word 没有这样的功能，我编写了一个宏，使 Word 具有统计单个文本总数量的功能。下面介绍实现方法。 第二步 在弹出的 VisualBasic 编辑器的代码窗口中完成以下内容：Sub FindText()Text = InputBox(“请输入要查找的文本：“, “提示“)With ActiveDocument.Content.FindDo While .Execute(FindText:=Text) = Truetim = tim + 1LoopEnd WithMsgBox (“当前文档查找到 “ + Str(tim) +
7、“ 个 “ + Text), 48, “完成“End Sub第三步 录入完毕后，单击菜单文件关闭并返回到 Micrcsoft 后 Word。第四步 单击菜单工具自定义，单击“命令”选项卡，在“类别”中选择“宏”，将右边的“Normal.NewMacros.FindText”命令拖入“编辑”菜单中，并右击拖入的命令，在“命名”框中重命名为“查找文本数量”(如图)。以后要统计文本数量时，只要单击编辑查找文本数量，按提示输入要查找的内容，单击确定就得到统计结果。宏应用实例三：将大量的 Word 文档.doc 文件转换为.htm 文件2007-11-15 14:12【分析】我们知道，利用 word 可
8、以将.doc 文件转换为.htm 文件，方法是：在 Doc 文件编辑窗口中，选择菜单“文件/另存为”，在“保存类型”下列列表中选择“html document”，按“保存”。单独进行几个 doc 文件的转换还不算繁琐，但要大批量地进行转换工作时，比如：按章节输入了一本书，形成了几十个.doc 文件，要对这些文件进行转换成.htm 文件的工作，这时，就不能采用手工一个个处理的笨办法了！怎么实现呢？请往下看。【实现步骤】假设大批量.doc 文档所在目录为 c:docs，文件名为 1.1.doc，1.2.doc .1、 启动 word2、 关闭当前默认打开的空文档43、 选择菜单“工具/宏/录制新宏
9、”，输入宏名称“doctohtml”，按“确定”，进入了宏录制过程。4、 选择菜单“文件/打开”，选择目录 c:docs，选择文件 1.1.doc，按“确定”。5、 选择菜单“文件/另存为”，在“保存类型”下列列表中选择“html document”， 按“保存”。6、 选择菜单“文件/关闭”7、 选择菜单“工具/宏/停止录制”8、 选择菜单“工具/宏/宏”9、 在出现的“宏”窗口左部选中 doctohtml，单击右边的按钮“编辑”10、宏代码改造：在出现的“Microsoft Visual Basic”窗口中，可以看到如下的宏代码：Sub doctohtml() doctohtml Macr
10、o 宏在 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:=wdOpenFormatAutoActi
11、veDocument.SaveAs FileName:=“1.1.htm“, FileFormat:=100, LockComments:= _False, Password:=“, AddToRecentFiles:=True, WritePassword:=“, _ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _FalseActiveDocument.CloseEnd Sub对上面
12、的代码进行改造，如下：5Sub doctohtml(myfile as string) doctohtml Macro 宏在 99-11-8 由 xxx 录制ChangeFileOpenDirectory “C:docs“If FileExists(gwfile + “.doc“) ThenDocuments.Open FileName:=myfile+“.doc“, ConfirmConversions:=False, ReadOnly:= _False, AddToRecentFiles:=False, PasswordDocument:=“, PasswordTemplate:= _“,
13、 Revert:=False, WritePasswordDocument:=“, WritePasswordTemplate:=“, _Format:=wdOpenFormatAutoActiveDocument.SaveAs FileName:=myfile+“.htm“, FileFormat:=100, LockComments:= _False, Password:=“, AddToRecentFiles:=True, WritePassword:=“, _ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _SaveNati
14、vePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _FalseActiveDocument.Closeend if End Sub并加入下面两个过程：判断文件是否存在的函数Function FileExists(ByVal FileName As String) As BooleanOn Error Resume NextFileExists = Dir$(FileName) 0 ThenFileExists = FalseEnd IfOn Error GoTo 0End Function实际的转换函数Sub my
15、doctohtml()If MsgBox(“确认执行转换 doc 到 html 文件吗？“, vbOKCancel + vbDefaultButton2) = _vbCancel Then GoTo eeeddd6Call 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 doctoh
16、tml(“3.1“). Call doctohtml(“9.1“).eeeddd:End Sub至此，全部代码改造完毕！关闭“Microsoft Visual Basic”窗口，回到Word 窗口。11、选择菜单“工具/宏/宏”，出现“宏”窗口，在左边的宏列表中，可以看到“mydoctohtml”一项，选中它，按右边的按钮“运行”，出现提示窗口“确认执行转换 doc 到 html 文件吗？”，选择“确定”，批量转换工作开始了！【后记】上面应用宏的例子，看起来虽然步骤很多，其实做起来却非常简单，技术上关键在于 2 个环节：第一、根据某个任务录制初始的宏；第二、对初始的宏代码进行改造，已满足满足特
17、殊的需求Word 宏命令巧妙应用一例文章出处：http:/ Word 打开，精心设置其字体与背景后再阅读。可这样每次阅读都需重新设置一番，挺麻烦的。不久前看到了 Word 里的宏命令，仔细研究后发现，它可以帮我的大忙呢。只需进行如下设置，以后这样的事情一个按钮就可以搞定。1. 任意打开一篇文挡，用鼠标任选一段文字。72. 执行“工具宏录制新宏”命令，打开如图 1 所示对话框。3. 在“录制宏”对话框的“宏名”文本框中输入宏的名称“读前设置” ，在“将宏保存在”下拉列表框中选择“所有文档（normal.dot） ”，然后单击工具栏按钮，打开图2 所示“自定义”对话框。4. 在“自定义”对话框中选
18、择“命令”选项卡，在“命令”列表框中将显示输入的宏名。在该名称上按下鼠标左键将其拖到“常用”工具栏上，这样工具栏上就多了一个读前设置按钮了。 图 1 录制新宏5. 单击关闭进入宏的录制过程。此时， “停止”浮动工具栏将出现在屏幕上，此工具栏上有两个按钮，左边是停止 ，右边是暂停 （如图 3） 。6. 执行“格式字体”命令，在打开的“字体”对话框中选择“字体”选项卡，在对话框的“中文字体”下拉列表中选择“宋体” ，在“字形”下拉列表中选择“常规” ，在“字号”下拉列表中选择“小四” ，在“字体颜色”下拉列表中选择“灰度-80%” ，单击确定 。7. 执行“格式背景其他颜色”命令，在打开的“颜色”
19、框中选择一种很浅的灰色，单击确定 。8. 单击“停止”工具栏上的停止按钮结束录制。 图 2 “自定义”对话框 图 3“停止”工具栏8这样，以后只要在网上阅读文字，在 Word 里打开，先用“Ctrl+A”全选后，单击“常用”工具栏上的宏按钮读前设置 ，就可以看到很舒服的文字效果了。文章出处：http:/ Word 快捷编辑、特殊输入操作的域、宏应用实例代码 2008-04-26 08:50 本文大部分代码来自于顾经宇其实你还没懂 word及其网站或论坛，部分代码经过本人修改，对于方便应用 word 很有好处。具体应用，请查看原书（右键点击用迅雷下载 pdf 版本） 。发布于此，一为保留自用，二
20、为共享他人。标题中说是“域、宏应用实例代码” ，实际上，把一些域的操作也编制成了宏，所以，以下全是宏代码。至于 word 如何添加宏，不在本文叙述范围，请自行搜索网络。1. 打开文档时光标返回上次关闭时最后编辑处Sub AutoOpen() AutoOpen Macro 宏名称一定要是 AutoOpen（大小写无所谓） 宏在 2008-4-16 由 * 创建Application.GoBackEnd Sub2. 无格式粘贴Sub 无格式粘贴() 无格式粘贴 Macro 宏在 2006-11-2 由 * 创建 Selection.PasteSpecial Link:=False, DataTyp
21、e:=wdPasteText, Placement:= _wdInLine, DisplayAsIcon:=FalseEnd Sub3. 匹配目标格式粘贴Sub 匹配目标格式粘贴() 匹配目标格式粘贴 Macro，这个宏的功能与上一个好像是一样的，虽然代码不同，都是匹配目标格式粘贴 宏在 2006-11-3 由 * 创建Selection.PasteAndFormat (wdFormatSurroundingFormattingWithEmphasis)End Sub94. 删除连续两个换行符Sub 删除连续两个换行符() 删除连续两个换行符 Macro 宏在 2006-11-2 由 * 创建
22、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 = Fal
23、seEnd 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 =
24、“p“.Forward = True.Wrap = wdFindAsk.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False10.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAllSelection.MoveDown Unit:=wdLine, Count:=1End Sub6. 替换换行符为段落标记Sub
25、替换换行符为段落标记()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.MatchAllWo
26、rdForms = 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 段前空一行()11 段前空一行 Macro 宏在 2006-11-3 由 * 创建With Selection.
27、ParagraphFormat.LineUnitBefore = 1End WithEnd Sub9. 文献标号上标化Sub 文献标号上标化() 参考文献上标化 Macro 宏在 2006-11-3 由 * 创建Selection.HomeKey Unit:=wdStorySelection.Find.Replacement.ClearFormattingWith Selection.Find.Replacement.Font.Superscript = TrueEnd WithWith Selection.Find.Text = “- ，0-9, - “.Replacement.Text =
28、 “.MatchWildcards = TrueEnd WithSelection.Find.Execute Replace:=wdReplaceAllSelection.Find.Replacement.ClearFormattingWith Selection.Find.Replacement.Font.Superscript = TrueEnd WithWith Selection.Find.Text = “- ，0-9,- “.Replacement.Text = “.MatchWildcards = TrueEnd WithSelection.Find.Execute Replace
29、:=wdReplaceAllEnd Sub10. 箭头上方加文字Sub 箭头上方加文字() 箭头上方加文字 Macro 宏在 2008-4-16 由 * 创建Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _12PreserveFormatting:=FalseSelection.TypeBackspaceSelection.Delete Unit:=wdCharacter, Count:=1Selection.TypeText Text:=“eq o(sdo2(),sup5(敲击 Delete键清除此段文字，改
30、填所需文字，酌情增减箭头长度，最后同时按下 shift 和 F9)“Selection.MoveLeft Unit:=wdCharacter, Count:=2Selection.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:=Fa
31、lseSelection.TypeBackspaceSelection.Delete Unit:=wdCharacter, Count:=1Selection.TypeText Text:=“eq f(分子, 分母)“End Sub12. 输入平均值Sub 平均值() 平均值 Macro 没有在顾经宇的书和网站中找到这个宏，是本人录制编辑的 宏在 2008-4-17 由 * 创建Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _PreserveFormatting:=FalseSelection.TypeBack
32、spaceSelection.Delete Unit:=wdCharacter, Count:=1Selection.TypeText Text:=“eq o(“Selection.Font.Italic = wdToggleSelection.TypeText Text:=“x“Selection.Font.Italic = wdToggleSelection.TypeText Text:=“,sdo1(“Selection.InsertSymbol Font:=“宋体“, CharacterNumber:=175, Unicode:=TrueSelection.TypeText Text:
33、=“)“End Sub1313. 插入无空格的域Sub 插入域()word 的插入域命令，输入光标前后会有空格，有时候转换成域的结果时，后面的空格也会显示，这个宏会先删除掉空格再让你编辑域代码 宏在 2008-4-17 由 * 录制Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _PreserveFormatting:=FalseSelection.TypeBackspaceSelection.Delete Unit:=wdCharacter, Count:=1End Sub-简单分割线-以下 5 个宏为添加使用
34、参考文献提供方便14. 添加参考文献格式一，参考文献在文档末尾以 1 2 3 格式排列Sub 添加参考文献格式一() 添加参考文献 Macro 宏在 2008-4-17 由 * 创建Selection.Style = ActiveDocument.Styles(“尾注引用“)Selection.TypeText Text:=“Selection.MoveLeft Unit:=wdCharacter, Count:=1With ActiveDocument.Endnotes.StartingNumber = 1.NumberStyle = wdNoteNumberStyleArabicEnd W
35、ithActiveDocument.Endnotes.Add Range:=Selection.Range, Reference:=“Selection.MoveLeft Unit:=wdCharacter, Count:=1Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtendSelection.Style = ActiveDocument.Styles(“默认段落字体“)Selection.MoveRight Unit:=wdCharacter, Count:=1Selection.Delete Unit:=wdCh
36、aracter, Count:=1Selection.TypeText Text:=“ “ End Sub15. 添加参考文献格式二，参考文献在文档末尾以1 2 3 格式排列，修改自格式一的代码Sub 添加参考文献格式二() 添加参考文献 Macro 宏在 2008-4-17 由 * 创建Selection.Style = ActiveDocument.Styles(“尾注引用“)Selection.TypeText Text:=“14Selection.MoveLeft Unit:=wdCharacter, Count:=1With ActiveDocument.Endnotes.Start
37、ingNumber = 1.NumberStyle = wdNoteNumberStyleArabicEnd WithActiveDocument.Endnotes.Add Range:=Selection.Range, Reference:=“Selection.MoveLeft Unit:=wdCharacter, Count:=1Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtendSelection.Style = ActiveDocument.Styles(“默认段落字体“)Selection.MoveRigh
38、t Unit:=wdCharacter, Count:=1Selection.Delete Unit:=wdCharacter, Count:=1Selection.TypeText Text:=“ “Selection.MoveLeft Unit:=wdCharacter + 2, Count:=1Selection.TypeText Text:=“ End Sub16. 返回正文Sub 返回正文()返回正文 Macro宏在 2008-4-16 由 * 创建If ActiveWindow.ActivePane.View.Type = wdPageView Or ActiveWindow. _
39、ActivePane.View.Type = wdOnlineView Or ActiveWindow.ActivePane.View.Type _= wdPrintPreview ThenActiveWindow.View.SeekView = wdSeekMainDocumentElseActiveWindow.Panes(2).CloseEnd IfSelection.MoveRight Unit:=wdCharacter, Count:=2End Sub17. 再次引用已有参考文献Sub 引用编号()引用编号 Macro宏在 2008-4-16 由 * 创建Selection.Font
40、.Superscript = wdToggleSelection.TypeText Text:=“Selection.MoveLeft Unit:=wdCharacter, Count:=1With Dialogs(wdDialogInsertCrossReference).InsertAsHyperlink = True.ShowEnd WithSelection.MoveRight Unit:=wdCharacter, Count:=115Selection.Font.Superscript = wdToggleEnd Sub18. 查找被删参考文献遗留引用，Sub 查找被删编号()要删除
41、某个参考文献，应该在原始引用处删除引用，这样可以一并删除参考文献，而不是在文档末尾文献列表处删除Selection.WholeStorySelection.Fields.UpdateSelection.Find.ClearFormattingWith Selection.Find.Text = “错误！未定义书签。“End WithSelection.Find.ExecuteSelection.MoveLeft Unit:=wdCharacter, Count:=1Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
42、End Sub以上宏除第一个打开 word 文档自动运行之外，为了方便应用，建议自己编辑设置工具按钮，想用的时候点击即可，不需要繁琐的菜单、对话框寻找动作。我自己设置的按钮如下图，从左至右，分别对应宏 2-18。至于如何把宏设置成按钮，请查看原书或搜索百度、google。附：Sub 合并所选多个段落为一段() 合并所选段落为一段，即删除选择范围内的所有段落标记。一定要选中某几个段落才可以使用，否则把从当前光标开始的所有段落都合并为一段 Macro 宏在 2008-4-19 由 * 录制Selection.Find.ClearFormattingSelection.Find.Replacemen
43、t.ClearFormattingWith Selection.Find.Text = “p“.Replacement.Text = “.Forward = True.Wrap = wdFindStop.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.CorrectHangulEndings = False16.MatchAllWordForms = False.MatchSoundsLike = False.MatchWildcards = False.MatchFuzzy = FalseEnd
44、 WithSelection.Find.Execute Replace:=wdReplaceAll End Sub妙用 word 实现“复印”功能2008-04-26 08:55一个同事愁眉苦脸地拿着一张表格来请我帮忙，原来这是一张省级先进的呈报表，只有这么一份，必须一次填好，不允许涂改，没有多余表格备用。可这位老兄不知怎的，偏偏填错了，省先进呀，千载难逢的好机会啊！你说他急不急！ 如果能在计算机上模拟一张全新的表格就好了，给 Word 添加一个 1:1 全真显示的工具按钮吧!说做就做，取得了打印结果与屏幕显示对应关系的比例数据后，编写了一个宏命令。同事的苦恼随之烟消云散，现将方法写出来，或许
45、对大家有所帮助。 取得与打印完全一致的屏幕显示比例 由于各人使用的显示器尺寸不同及画幅调整的习惯不同，因此在此无法给出一个具体的数据。请先将显示器的画幅调整妥当，以能够最大限度地显示出完整的全屏幕窗口为准。找到你要使用的纸型，用尺子量取纸的宽度，精确到毫米。因为标称开本的纸张，其实际大小并不一定与标称值相同。然后，打开Word 新建一空白文档，并设置为“页面”视图，在文件页面设置选定纸型，再将“纸型”选项卡中的纸张宽度设置为精确值。 再以这张纸为依据，确定屏幕显示比例。在视图显示比例输入框中反复手工调整显示比例，系统本身只提供几种固定的比例，其实我们完全可以直接输入任意一个整数。比如我的 17
46、 英寸显示器在设置为 81%后，屏幕上的页面大小与真实纸张完全一致，这个“81”就是下一步需要的数据。 编写宏命令 在 Word 的编辑界面按Alt+F8，打开“宏”对话框，在“宏名”编辑框中输入“全真 1:1 显示”，然后单击创建按钮，打开 VisualBasic 编辑器，在代码编辑窗口输入下列代码： PublicSub 全真 1:1 显示() ActiveWindow.ActivePane.View 17Zoom.Percentage=81 EndSub 注意：Zoom.Percentage 的值应灵活更改为与你的显示器对应的真实比例数字。 创建 1:1 全真显示的工具栏按钮 按Alt+V
47、+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 = 3
