word宏命令批量编辑word？首先你可以用Word打开所有的DOC文档，然后菜单“---宏”，输入宏名：全部文档小五号，在“宏的位置”选择“Norma l.dot（共用模板），再点“创建”，把以下代码复制粘贴到里面就可以了。不论你是打开20还是50个文档，那么，word宏命令批量编辑word？一起来了解一下吧。
第一步，先用宏将所有表格选中：
Sub 宏1()
Dim mytable As Table
Application.ScreenUpdating = False
For Each mytable In ActiveDocument.Tables
mytable.Range.Editors.Add wdEditorEveryone
Next
ActiveDocument.SelectAllEditableRanges (wdEditorEveryone)
ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone)
Application.ScreenUpdating = True
End Sub
第二步，设置格式。先设置好字体字号，再设置表格属性：右键——表格属性（或者点菜单栏的表格—旅雀闭—表格属性）——行，选中“指定高度”，在“行高值是”中选择“固定值”，设定一个岁贺适当拆裂值。
一、宏的录制
在这里举一实例。例如，在Word 97中，要插入字符，则往往要到符号框中查找半天。对于一些常用的符号，如“￥”，便可以使用宏来使工作简化。
1.单击“”选单中“宏”子选单，再单击“录制新宏”选项。
2.给宏取名为“Yuan”，再单击“键盘”。
3.在弹出的对话框中指定快捷键，可指定为“Ctrl＋Y”，再关闭该对话框回到“录制宏”对话框。单击“确定”按钮启动记录器。
4.运行“插入”选单中的“符号”子选单，从弹出的“符号”框中选择“￥”，插入后再关闭。另外，也可以指定到栏，从弹出的“自定义”对话框中的“命令”栏中把“Normal.NewMacro1.Yuan”拖放到栏中。
5.单击“停止录制”栏中的“停止录制”按钮。
6.单击“”选单中“宏”子选单，再单击“宏”命令。
7.选择第二步中的宏名称，再单击“编辑”按钮。
这时我们可以从中看到以下代码：
Sub Yuan()
Selection.InsertSymbol Font:=〃楷体—GB2312〃,CharacterNumber:=－27,Unicode:=True
End Sub
以后，当你需要插入字符“￥”时，只需按下快捷键“Ctrl＋Y”，或者是在栏点击“Normal.NewMacrol.Yuan”便可以了。
在我凯派们日常工作和日梁卜常学习中，有时候需要将一些Word 文件进行橡孙穗压缩，如何做到呢？我们可以使用[风云压缩]完成。一起来看下具体步骤吧！
Sub 裁剪() '本操作批量裁燃早剪图片
left_cut = 4.1 '左边裁剪的大小 单位厘米
right_cut = 1.2 '右
top_cut = 2.3 '上
bottom_cut = 2.4 '下
scales = 1 / 0.03528 ' 一磅等于0.03528厘米
Dim n '图片个数
'On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
With ActiveDocument.InlineShapes(n).PictureFormat
origHeight = ActiveDocument.InlineShapes(n).Height
origWidth = ActiveDocument.InlineShapes(n).Width
.CropBottom = bottom_cut * scales
.CropLeft = left_cut * scales
.CropRight = right_cut * scales
.CropTop = top_cut * scales
End With
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
With ActiveDocument.Shapes(n).PictureFormat
origHeight = ActiveDocument.Shapes(n).Height
origWidth = ActiveDocument.Shapes(n).Width
.CropBottom = bottom_cut * scales
.CropLeft = left_cut * scales
.CropRight = right_cut * scales
.CropTop = top_cut * scales
End With
Next n
End Sub
'*************************************
Sub Macro() ’改变图片大小，缩放不裁剪，批量操作
Mywidth=10'蚂旅10为闷段凳图片宽度（厘米）
Myheigth=10'10为图片高度（厘米）
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.345 * Myheigth
iShape.Width = 28.345 * Mywidth
Next iShape
End Sub
Sub 批量操作WORD()
Dim pathAs String
Dim FileNameAs String
Dim worddoc As Document
Dim MyDir As String
MyDir = "C:\Users\123456\Downloads"禅物'文件夹路径根据需要斗高自己修改，需要处理的文件都放该文件夹内
FileName = Dir(MyDir & "\*.doc*", vbNormal)
Do Until FileName = ""
If FileName <> ThisDocument.Name Then
Set worddoc = Documents.Open(MyDir & "\" & FileName)
worddoc.Activate
Call Word文件改名'调用宏,换成你自己宏的名字
worddoc.Close True
FileName = Dir()
End If
Loop
Set worddoc = Nothing
End Sub
'贺销液======================下面的宏换成你自己的宏=================================
Sub Word文件改名()
Dim myS, myP As String
myP = ActiveDocument.path
Selection.GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=13
Selection.EndKey wdLine
Selection.HomeKey wdLine, wdExtend
myS = Selection.Range.Text
ActiveDocument.SaveAs FileName:=myP & "\" & myS & ".doc"
End Sub
以上就是word宏命令批量编辑word的全部内容，1、“宏”可以在“开发”菜单栏找到，可是，怎么没有看见“开发”这一项？没关系，等我把它变出来。单击“文件”，会出现一个页面，点击页面左侧最后一行的“选项”。在弹出的对话框里找到“自定义功能区”并点击。
