Word批处理技巧.docVIP

删除Word空行： 选择替换选项卡，单击更多--特殊格式按钮，选择段落标记。如果您熟悉代码/通配符，也可以直接在查找栏内输入^p 段落间留一行空行： 在查找栏输入^p^p，替换栏输入^p，将两行空行变成一行。然后，按全部替换按钮 删除空格： 在多次替换后，有时仍然有回车符或空白行无法消除。要解决这个问题，先得把文中的空格删除。在查找中输入^w，替换栏留空，按全部替换。（如果不记得通配符，可以--特殊格式---选择 空白区域） 只删除汉字，保留英文、标点： Ctrl+H，高级勾选“使用通配符”，查找内容：输入“[一-﨩]”，替换为：不填为空。 删除汉字、标点，保留英文： Ctrl+H，高级勾选“使用通配符”，查找内容：输入“[!^1-^127]”，替换为：不填为空。 只删除英文保留中文的方法： ctrl+F快捷键，点“高级”按钮，在“特殊字符”按钮弹出列表那里选择“任意字母”，（或者然后在查找内容后面输入^$）替换后面的内容留空，然后点击“全部替换”按钮即可删除所有英文字母。 只删除数字的方法： ctrl+F快捷键，点“高级”按钮，在“特殊字符”按钮弹出列表那里选择“任意数字” 删除word中出现的向下的箭头、其实叫软回车符、也叫手动换行符： Ctrl+H，“特殊字符”，里面“有手动换行符” Word-快速转换整篇文件的全半角符号或英文大小写： 按 Ctrl+A ，“字体”组中的“更改大小写”按钮 数字全角转半角： 1.执行“宏”→在“宏名”框中输入“数字全角转半角”，确定，将出现一个“录制宏”工具栏，关闭它。 Sub 数字全角转半角() 使用前需先选中要替换的区域 Dim qjsz, bjsz As String, i As Integer 定义qjsz（全角数字）、bjsz（半角数字）为字符串型，i为整数型 qjsz = ０１２３４５６７８９ bjsz = 0123456789 For i = 1 To 10 循环10次 With Selection.Find .Text = Mid(qjsz, i, 1) mid函数：返回文本字符串中从指定位置开始的特定数目的字符，每次取一个数字 .Replacement.Text = Mid(bjsz, i, 1) 将用于替换的相应位置的半角数字 .Format = False 保留替换前的字符格式 .Execute Replace:=wdReplaceAll 用半角数字替换全角数字 End With Next i End Sub 图片批量调整大小： 打开要统一图片大小的Word文档，点击视图--“宏”-输入名称 setpicsize ，创建--粘贴代码： 1.图片统一放大2倍代码 Sub setpicsize() 设置图片大小 Dim n 图片个数 Dim picwidth Dim picheight On Error Resume Next 忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count InlineShapes类型图片 picheight = ActiveDocument.InlineShapes(n).Height picwidth = ActiveDocument.InlineShapes(n).Width ActiveDocument.InlineShapes(n).Height = picheight * 2 设置高度为2倍 ActiveDocument.InlineShapes(n).Width = picwidth * 2 设置宽度为2倍 Next n For n = 1 To ActiveDocument.Shapes.Count Shapes类型图片 picheight = ActiveDocument.Shapes(n).Height picwidth = ActiveDocument.Shapes(n).Width ActiveDocument.Shapes(n).Height = picheight * 2 设置高度为2倍 ActiveDocument.Shapes(n).Width = picwidth * 2 设置宽度为2倍 Next n End Sub 2.图片统一放大2倍代码，居中对齐，代码： Sub setpicsize() 设置图片大小 Dim n 图片个数 Dim picwidth Dim picheight On Error Resume Next 忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count InlineShapes类型图片 picheight = ActiveDocument.InlineShapes(n).Heigh