Word宏命令集

合集下载

WORD宏集锦

.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
.CharacterUnitRightIndent = 0
.LineUnitBefore = 0
.LineUnitAfter = 0
.WordWrap = True
End With
Selection.Font.Bold = wdToggle
.HeaderDistance = CentimetersToPoints(0.5)
.FooterDistance = CentimetersToPoints(0.5)
.PageWidth = CentimetersToPoints(21)
.PageHeight = CentimetersToPoints(29.7)
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
.MatchAllWordForms = False

高级技巧Word中的宏和自动化操作实例分享

高级技巧Word中的宏和自动化操作实例分享高级技巧：Word中的宏和自动化操作实例分享微软Word是一款功能强大的文字处理软件，它不仅可以帮助我们编辑和排版文档，还可以通过宏和自动化操作来提高工作效率。

本文将分享一些关于Word中宏和自动化操作的高级技巧，帮助您更加熟练地使用这些功能。

一、什么是宏？在Word中，宏是一组预先录制的命令和操作步骤的集合。

通过录制宏，我们可以将一系列繁琐的操作记录下来，然后通过运行宏来自动执行这些操作。

使用宏可以大大简化繁重的工作任务。

二、如何录制和运行宏？录制宏十分简单。

首先，打开Word文档，点击“开发工具”选项卡，选择“宏”按钮，然后点击“录制新宏”。

接下来，在弹出的对话框中输入宏的名称和描述，选择存储宏的位置，点击“确定”开始录制。

在录制过程中，执行您希望自动化的操作，比如插入表格、设置样式、添加批注等，Word会自动记录这些操作。

录制完成后，点击“停止录制”按钮即可保存宏。

要运行宏，只需点击“开发工具”选项卡中的“宏”按钮，在弹出的对话框中选择要运行的宏并点击“运行”按钮即可。

三、宏的应用实例1. 批量修改文件格式假设您手头有一份包含若干文件名的列表，这些文件的格式需要批量修改。

您可以录制一个宏来自动修改这些文件的格式。

首先，录制一个宏，命名为“批量修改文件格式”。

在录制的过程中，逐个打开并修改文件格式，并将录制停止。

然后，使用VBA代码编写一个循环，遍历文件名列表并自动修改文件格式。

运行宏后，所有文件的格式将自动完成修改。

2. 自动化生成报告假设您需要每天生成一份详细的报告，其中包含表格、图表和数据分析等内容。

您可以录制一个宏来自动化生成该报告。

首先，打开一个空白文档，录制一个宏，命名为“自动生成报告”。

在录制的过程中，依次插入表格、生成图表、输入数据等，并将录制停止。

然后，编写VBA代码来获取所需数据并自动生成报告。

运行宏后，报告将按照设定的格式自动生成。

word中常用到的宏

Sub 把文档中所有数字改为会计格式()'' 把文档中所有数字改为会计格式宏''Sub qianfen()'本代码旨在解决WORD中数据转化为千分位'数据限定要求:-922,337,203,685,477.5,808.00到922,337,203,685,477.5,807.00'转化结果1,000.00以上数据以千分位计算,小数点右侧保留二位小数;1,000.00以下数据不变Dim myRange As Range, i As Byte, myValue As CurrencyOn Error Resume NextApplication.ScreenUpdating = False '关闭屏幕更新NextFind: Set myRange = ActiveDocument.Content '定义为主文档文字部分With myRange.Find '查找.ClearFormatting '清除格式.Text = "[0-9]{4,15}" '4到15位数据.MatchWildcards = True '使用通配符Do While .Execute '每次查找成功i = 2 '起始值为2'如果是有小数点If myRange.Next(wdCharacter, 1) = "." Then'进行一个未知循环While myRange.Next(wdCharacter, i) Like "#"i = i + 1 '只要是[0-9]任意数字则累加Wend'重新定义RANGE对象myRange.SetRangemyRange.Start, myRange.End + i - 1End IfmyValue = VBA.Val(myRange) '保险起见转换为数据,也可省略myRange = VBA.Format(myValue, "Standard") '转为千分位格式GoToNextFind '转到指定行LoopEnd WithApplication.ScreenUpdating = True '恢复屏幕更新End SubSub选中文档中的所有表格()Dim mytable As TableApplication.ScreenUpdating = FalseFor Each mytable In ActiveDocument.Tablesmytable.Range.Editors.AddwdEditorEveryoneNextActiveDocument.SelectAllEditableRanges (wdEditorEveryone) ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone) Application.ScreenUpdating = TrueEnd Sub。

Word中巧用宏命令

Word中巧用宏命令宏命令作为一个非常重要的功能，在现在的许多软件中都不可缺少。

利用宏，可以大大地简化我们的工作，准确快速地完成繁琐的任务。

下面，就给大家详细介绍我在word中使用宏的一个实例。

【需求】在word中进行批量处理，将大量的Word文档.doc文件转换为.htm文件【分析】我们知道，利用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:=wdOpenFormatAutoActiveDocument.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对上面的代码进行改造，如下：Sub 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:= _"", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _Format:=wdOpenFormatAutoActiveDocument.SaveAs FileName:=myfile+".htm", FileFormat:=100, LockComments:= _False, Password:="", AddToRecentFiles:=True, WritePassword:="", _ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _FalseActiveDocument.Closeend ifEnd Sub并加入下面两个过程：'判断文件是否存在的函数Function FileExists(ByVal FileName As String) As BooleanOn Error Resume NextFileExists = Dir$(FileName) <> ""If Err.Number <> 0 ThenFileExists = FalseEnd IfOn Error GoTo 0End Function'实际的转换函数Sub mydoctohtml()If MsgBox("确认执行转换doc到html文件吗？", vbOKCancel + vbDefaultButton2) = _vbCancel Then GoTo eeedddCall 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窗口。

Word中的宏功能指南

Word中的宏功能指南微软的办公软件Word是我们日常工作中不可或缺的工具之一。

它提供了许多功能，其中一个非常有用且被广泛使用的功能是宏。

宏可以帮助我们自动化重复性的任务，提高工作效率。

本文将为大家介绍Word中的宏功能，并提供一些使用宏的实用技巧。

一、什么是宏？宏是一种自动化任务的录制和执行工具。

通过录制一系列的操作步骤，我们可以将这些步骤保存为一个宏，并在需要时执行它。

使用宏可以简化重复性的任务，例如格式化文档、插入特定内容等。

二、如何录制宏？在Word中，录制宏非常简单。

首先，打开Word并选择“开发工具”选项卡。

如果你没有看到该选项卡，请右键点击菜单栏，选择“自定义工具栏”并勾选“开发工具”。

接下来，点击“宏录制器”按钮，弹出宏录制对话框。

在对话框中，为宏命名并选择宏的存储位置。

点击“确定”后，录制开始。

在录制过程中，所有的操作步骤都会被记录下来。

你可以执行任何你想要的操作，例如格式化文本、插入图片等。

完成所有操作后，点击“停止录制”按钮，宏录制结束。

三、如何执行宏？录制好宏后，我们可以随时执行它。

在“开发工具”选项卡中，点击“宏”按钮，弹出宏对话框。

在对话框中，选择你要执行的宏，并点击“运行”按钮。

宏将按照你录制时的步骤自动执行。

四、如何编辑宏？有时候，我们可能需要对已经录制好的宏进行编辑。

在“开发工具”选项卡中，点击“宏”按钮，弹出宏对话框。

在对话框中，选择你要编辑的宏，并点击“编辑”按钮。

宏的代码将以Visual Basic for Applications (VBA)的形式显示出来。

你可以根据需要修改代码，并保存宏。

五、宏的实用技巧1. 键盘快捷键：你可以为宏分配一个键盘快捷键，以方便快速执行宏。

在宏编辑界面，点击“选项”按钮，选择一个适合的键盘快捷键。

2. 宏按钮：你可以在Word的工具栏上添加一个宏按钮，以便更方便地执行宏。

在宏编辑界面，点击“选项”按钮，选择一个适合的图标，并将宏按钮添加到工具栏上。

Word宏命令集.pdf

Word宏命令集1、Word宏实现删除Word文档中的所有超链接，打开Word的菜单工具->宏->Visual Basic 编辑器，或直接按快捷键Alt+F11，打开Visual Basic 编辑器，“插入”-“模块”。

代码：Sub RemoveHyperlinks()Dim oField As FieldFor Each oField In ActiveDocument.FieldsIf oField.Type = wdFieldHyperlink ThenoField.UnlinkEnd IfNextSet oField = NothingEnd Sub2、Word中的图片批量统一大小及同比例缩放有些时候，我们用Word来做一些图文混排的文档，需要正规的样式，例如图片大小一致。

下面的方法就是告诉我们如何来实现很多的图片统一大小，“插入”-“模块”。

代码：Sub setpicsize() '设置图片大小Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为400pxActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度300pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 400 '设置图片高度为400pxActiveDocument.Shapes(n).Width = 300 '设置图片宽度300pxNext nEnd Sub按比例缩放的方法：Sub setpicsize() '设置图片大小Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为400pxActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度300pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 400 '设置图片高度为400pxActiveDocument.Shapes(n).Width = 300 '设置图片宽度300pxNext nEnd Sub3、Word中英文标点符号互换-VBA源码实现打开“Visual Basic编辑器”或用快捷键Alt+F11，插入一个新的“模块”。

Word中宏的基本操作

Word中宏的基本操作经常有人说：不掌握宏的应用，就不能叫做精通MS Office。

什么是宏呢? 宏是一系列Word命令和指令，这些命令和指令组合在一起，可以形成一个单独的命令，以实现任务执行的自动化。

本文以Word 2003为例介绍宏的一些基本操作。

1.建立宏执行“工具→宏→Visual Basic编辑器”命令，进入“Visual Basic编辑”窗口（图1），在左侧“工程资源管理器”窗口中，选中“Normal”选项或“Project”选项，执行“插入→模块”命令，插入一个模块（如“模块1”），双击“模块1”在窗口右边展开“模块1（代码）”编辑窗口（图1），按下述格式输入宏代码：图1 Sub 宏名称宏代码End Sub 输入完成后，关闭窗口返回即可。

提示：①可以通过执行“工具→宏→录制新宏”命令，然后取名录制建立宏。

不过，这样录制出来的宏，通常含有大量的多余宏代码。

②如果“工程资源管理器”窗口没有展开，请执行“视图→工程资源管理器”命令将它展开。

③选中“Normal”选项（在Excel中对应的是“VBAProject（PERSONAL.xls）”选项）建立的宏，对所有的文档有效；选中“Project”选项（在Excel中对应的是“VBAProject（工作簿名称）”选项）建立的宏，仅对相应的文档有效。

④“宏名称”可以自己随意确定（支持汉字）。

2.运行宏执行“工具→宏→宏”命令（或者按“Alt+F8”组合键），打开“宏”对话框，双击需要运行的宏即可。

提示：①要使宏运行，需要将宏的安全性设置为“低”：执行“工具→宏→安全性”命令，打开“安全性”对话框，选中“低”选项后，按“确定”返回即可。

②利用“宏”对话框右侧的相关按钮，可以快速实现对宏的编辑、创建、删除等操作。

3.建立宏按钮如果你经常要运行某个宏，我们可以在工具栏上为相应的宏建立一个按钮。

①执行“工具→自定义”命令，打开“自定义”对话框（图2）。

实用Word宏小代码集锦

n = n + 1 '计数
End If
Next
MsgBox "共删除空白段落" & n & "个!"
Application.ScreenUpdating = True '恢复屏幕刷新
End Sub
Sub 去掉空白行()
'1．-------------------------------------------------------------------------------------
Sub 粘贴无格式文本()
Selection.PasteAndFormat (wdFormatPlainText)
.KeepWithNext = False
.KeepTogether = False
.PageBreakBefore = False
.NoLineNumber = False
.Hyphenation = True
.LeftIndent = CentimetersToPoints(0)
.RightIndent = CentimetersToPoints(0)
.SpacoreAuto = False
.SpaceAfter = 0
.Cut
End If
End With
End Sub
'7．-------------------------------------------------------------------------------------
自定义"我的工具栏"
.Replacement.Text = "^13"

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

下面的方法就是告诉我们如何来实现很多的图片统一大小，“插入”-“模块”。

代码：Sub setpicsize() '设置图片大小Dim n '图片个数On Error Resume Next '忽略错误ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为400pxActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度300pxNext nActiveDocument.Shapes(n).Height = 400 '设置图片高度为400pxActiveDocument.Shapes(n).Width = 300 '设置图片宽度300pxNext nEnd Sub按比例缩放的方法：Sub setpicsize() '设置图片大小Dim n '图片个数On Error Resume Next '忽略错误ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为400pxActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度300pxNext nActiveDocument.Shapes(n).Height = 400 '设置图片高度为400pxActiveDocument.Shapes(n).Width = 300 '设置图片宽度300pxNext nEnd Sub3、Word中英文标点符号互换-VBA源码实现打开“Visual Basic编辑器”或用快捷键Alt+F11，插入一个新的“模块”。

Sub ToggleInterpunction()'中英文标点互换Dim ChineseInterpunction() As Variant, EnglishInterpunction() As VariantDim myArray1() As Variant, myArray2() As Variant, strFind As String, strRep As StringDim msgResult As VbMsgBoxResult, N As Byte'定义一个中文标点的数组对象ChineseInterpunction = Array("、","。

", "，", "；", "：", "？", "！", "……", "—", "～", "（", "）", "《", "》")'定义一个英文标点的数组对象E nglishInterpunction = Array(",",".", ",", ";", ":", "?", "!", "…", "-", "~", "(", ")", "<", ">")'提示用户交互的MSGBOX对话框msgResult = MsgBox("您想中英标点互换吗?按Y将中文标点转为英文标点,按N将英文标点转为中文标点!", vbYesNoCancel)Select Case msgResultCase vbCancelExit Sub '如果用户选择了取消按钮,则退出程序运行Case vbYes '如果用户选择了YES,则将中文标点转换为英文标点myArray1 = ChineseInterpunctionmyArray2 = EnglishInterpunctionstrFind = "“(*)”"strRep = """\1"""Case vbNo '如果用户选择了NO,则将英文标点转换为中文标点myArray1 = EnglishInterpunctionmyArray2 = ChineseInterpunctionstrFind = """(*)"""strRep = "“\1”"End SelectApplication.ScreenUpdating = False '关闭屏幕更新For N = 0 To UBound(ChineseInterpunction) '从数组的下标到上标间作一个循环.ClearFormatting '不限定查找格式.MatchWildcards = False '不使用通配符'查找相应的英文标点,替换为对应的中文标点.Execute findtext:=myArray1(N), replacewith:=myArray2(N), Replace:=wdReplaceAllEnd WithNext.ClearFormatting '不限定查找格式.MatchWildcards = True '使用通配符.Execute findtext:=strFind, replacewith:=strRep, Replace:=wdReplaceAllEnd WithApplication.ScreenUpdating = True '恢复屏幕更新End Sub4、实现本机Word打印密码保护：Sub FilePrint()pass$ = InputBox("请输入打印密码：")If pass$ = "abcd" ThenDialogs(wdDialogFilePrint).ShowElseMsgBox ("密码错误，请与管理人员联系！")End IfEnd SubSub FilePrintdefault()pass$ = InputBox("请输入打印密码：")If pass$ = "abcd" ThenDialogs(wdDialogFilePrint).ShowElseMsgBox ("密码错误，请与管理人员联系！")End IfEnd Sub5、Word宏实现记录本机打印历史记录Sub FilePrint()Dialogs(wdDialogFilePrint).ShowDName = ActiveDocument.Path + "\" + If ActiveDocument.Path = "" Then DName = "未保存文档"Tim = Str(Date) + " 日" + Str(Time)Open "c:\print.txt" For Append As #1Print #1, "于" + Tim+ " 打印" + DNameClose #1End Sub6、在显示屏上看到Word文档的真实打印效果：套打单据表格及进行某些特殊的版式排版时，很希望屏幕上显示的大小与打印结果完全相同，以便进行精确的套打操作。

但能够“所见即所得” 的Word显示的结果与打印出来的结果虽然格式上能够做到看到什么得到什么，但由于各人所用的显示器的尺寸不同，而且相同尺寸的显示器其可视面积也有所不同，因此显示与打印结果的大小比例很难做到完全一致。

如果能够给Word添加一个1:1全真显示的工具按钮就好了!这样即使我们不需要进行精确的套打，也可以在文稿完成后按一下这个按钮，看看最终输出的字体大小设置得是否合适。

实现这个目的只需三步：一、取得与真实打印完全一致的屏幕显示比例由于各人使用的显示器尺寸不同及画幅调整的习惯不同，因此在此无法给出一个固定的数据。

请先将显示器的画幅调整妥当，以能够最大限度地显示出完整的全屏幕窗口为准。

找一张A4纸，用尺子量下该纸的宽度，要求精确到毫米( 我测的是29.4*21.8)，因为标称为某种开本的纸张，其实际大小并不一定与标称值相同。

然后，打开Word新建一空白文档，并设置为“页面”视图，将打印设置中的“纸型”设置为与准备的纸张相同的纸型，如在此为A4，再将“纸型”选项卡中的纸张宽度设置为与刚才量好的值完全一致，确定后返回编辑界面。

?现在我们就以这张纸为依据，确定屏幕显示比例。

在工具栏的“显示比例”输入框中反复手工调整显示比例的大小，注意系统本身只提供若干种固定的显示比例，其实我们完全可以直接输入任意一个整数，比如笔者的19英寸宽屏显示器在设置为65％后，屏幕上的页面大小与真实纸张完全一致，这个“65”就是我们下一步需要的数据。

二、编写一个宏命令1)请在Word的编辑界面按Alt＋F8，打开“宏”对话框，在“宏名”编辑框中输入“yitoyi”，然后单击[创建]按钮.2)打开Visual Basic编辑器，在代码编辑窗口输入下列代码：Public Sub 全真1:1显示( )Zoom.Percentage=65End Sub注意：代码中等于号后面的数字应灵活更改为与你的显示器对应的真实比例数字。