祐边
word宏命令教程
帮你重新做了一个宏，用正则表达式，如果一次不能彻底清除的话，可以再次运行。
代码如下： Option Explicit Sub 去除中文间空格（） On Error GoTo 0 Dim objRegExp As Object Dim objMatches As Object Dim objMatch As Object Dim intCom% Application.ScreenUpdating = False Set objRegExp = CreateObject(＂VBScript.RegExp＂) With objRegExp .Pattern = ＂(\W) +(\W)＂ .IgnoreCase = True .Global = True If .test(ActiveDocument.Content) Then Set objMatches = .Execute(ActiveDocument.Content) For Each objMatch In objMatches ActiveDocument.Range.Find.Execute findtext:=objMatch.Value, _ replacewith:= bmatches(0) & bmatches(1), Replace:=wdReplaceAll intCom = intCom + 1 Next End If End With Set objRegExp = Nothing Application.ScreenUpdating = True MsgBox ＂程序执行完毕！＂ & vbCrLf & ＂成功清理【＂ & intCom & ＂】处空格！＂ End Sub
UltraEdit 中的宏编辑
编辑宏命令 （宏菜单） 编辑宏命令允许你创建一个新宏，或编辑以前用这个命令生成的宏，或者编辑用录制命令录制的宏。
在大多数场合下，它可以用宏的录制命令很方便地录制一个新宏，如果你需要编辑，则可以编辑它，你只要稍作学习就可以掌握。
命令 宏是可以在以后任何时候执行并自动修改文件的一连串命令的组合。
对话框左边显示当前进行编辑的宏，和包含可编辑宏命令的编辑窗口。
宏中的命令必须是预定义命令中的其中一个；这些预定义命令显示在对话框右边。
如果用鼠标在一个命令上双击，或单击命令左边向左的箭头，它将自动添加到宏中。
参数 该数字参数必须完全明了，象“Goto Line # #”或“Goto Page #”。
但是象查找和替换、排序等命令，还要用非数字的其它参数，这些其它的参数在每个选定的命令列表的下面列出。
创建一个新宏 要从该对话框创建新宏，点击新建宏按钮。
将显示宏定义对话框，允许您定义需要的宏名和热键。
当新建一个宏时，下列这些宏命令将自动添加到宏中： - Insert Mode or OverStrike Mode - ColumnModeOn or ColumnModeOff - HexOn or HexOff - UnixReOff or UnixReOn or PerlReOn 这四个命令根据当前编辑器状态添加的。
其目的是在每次宏执行时建立一个已知的编辑状态。
如果宏是在某种模式下录制，并在其它环境中执行，可能会出现不可预知的问题。
在宏的开头建立宏运行模式可以确保达到你预期的结果。
这些命令可能需要修改。
创建后的宏可以进行编辑。
请注意：＂^c＂ 和 ＂^s＂ 可以在很多宏命令中使用，替换剪贴板的内容 （^c） 和当前选中的内容 （^s）。
这使得用户记录引用指定字符串的宏并将其替换为剪贴板的内容或当前选定的内容，使得宏在运行时动态“指定”字符串。
修改宏 要修改宏，可以直接在宏编辑框中输入命令，或从命令列表中选择。
命令不区分大小写，但拼写必须要与命令列表中显示的完全一致。
下表显示你可以添加的命令行和各自的参数： 命令 参数* 说明 ＂＂ 在引号 （＂＂） 之间插入文本。
结束引号必须是行中的最后一个非空格字符。
要插入的字符可以是多行的文字。
要插入一个引号 （＂），将它放在文本开始插入的所需位置，并且确保最后一个字符也是引号。
要只插入单个引号字符 （＂），则该行应该是这样： ＂＂＂ 要插入一个新行，在起始引号和结束引号之间添加一行。
要在行首插入带 1 和 2 开头的两行，应该是这样： ＂1 2＂ AnsiToOem 将文件从 ANSI 转换到 OEM ASCIIToUnicode 将文件从 ASCII 转换到 Unicode Bottom 跳到文件末端 ClearClipboard 清除 UltraEdit 内部活动剪贴板内容 Clipboard 剪贴板号码 （0-9） 选择指定的剪贴板；0 = 指定 Windows 剪贴板，1-9 指定用户剪贴板 CloseFile 空白 （无参数） Save 在文件关闭前强制保存 NoSave 如果文件应该先保存，则不提示关闭文件 关闭活动文件 ColumnCenterJustify 居中对齐选定的列 ColumnCut 要剪切的列编号数值 列模式中的剪切，选中的列或指定列号的列从当前光标位置到文件末尾。
要剪切选中的列必须使用值“0”。
ColumnDelete 要删除的列编号数值 列模式中的删除，选中的列或指定列号的列从当前光标位置到文件末尾。
要删除选中的列必须使用值“0”。
ColumnInsert 字符串位于引号 （＂＂） 中 插入引号内的字符到选定的列 ColumnInsertNum 开始数字 增量 LeadingZero （可选） HEX （可选） 在选中列中插入数字。
例如，要在每个选中行或从当前行到最后一行的当前列插入以 20 开始的数，增量为 -1 （= 递减 1），带有十六进制符号的首位 0，则应使用以下命令： ColumnInsertNum 20 -1 LeadingZero Hex ColumnLeftJustify 向左对齐选定的列 ColumnModeOff 关闭列模式 ColumnModeOn 打开列模式 ColumnRightJustify 向右对齐选定的列 Copy 复制选定的文本到剪贴板中 CopyAppend 复制选定的文本并附加到剪贴板 CopyFilePath 复制活动文件路径/名字到剪贴板 Cut 从文件中剪切选定的文本，并放置到剪贴板 CutAppend 从文件中剪切选定的文本，并附加到剪贴板 Delete 删除当前字符或选定的文本 DeleteLine 删除当前行 DeleteToEndofLine 删除从当前光标位置到行尾的内容 DeleteToStartofLine 删除从行首到当前光标位置的内容 DosToMac 转换文件 （行结束符） 到 MAC 格式 DosToUnix 转换文件 （行结束符） 到 UNIX 格式 DupeLine 在当标下面插入活动行的副本 Else IF 命令的 Else 函数 IfSel & Else 如果 IfSel 命令失败则执行这些命令 EndIf EndIf 结束受 If... 声明控制的指示块 EndLoop 结束循环 - 转回循环起始 - 查阅 Loop 命令 EndSelect 停止选择文本（详细信息请参见开始选择） ExitLoop 退出循环，并转到循环后 （EndLoop 命令之后） 的第一个命令 - 查阅 Loop 命令 ExitMacro 在不处理另外命令或返回一个错误的情况下退出宏执行 Find ＂＂ （搜索引号中的字符） Ascii 说明是十六进制模式中的 ASCII 搜索（可选，仅十六进制模式）MatchCase 说明搜索条件是区分大小写的 （可选） MatchWord 说明搜索的字符只完全匹配整个词语 （可选） PreserveCase 如果使用则替换字符串与查找字符串大...
word宏运用问题
转义字符 \b 是一个特例。
在正则表达式中，\b 表示单词边界（在 \w 和 \W 之间），不过，在 [] 字符类中，\b 表示退格符。
在替换模式中，\b 始终表示退格符。
（？子表达式） 将匹配的子表达式捕获到一个组名称或编号名称中。
用于 name 的字符串不得包含任何标点符号，并且不能以数字开头。
可以使用单引号替代尖括号，例如 （？'name'）。
\s 与任何空白字符匹配。
等效于转义符和 Unicode 通用类别 [\f\n\r\t\v\x85\p{Z}]。
如果通过 ECMAScript 选项指定了符合 ECMAScript 的行为，则 \s 等效于 [ \f\n\r\t\v]。
\k 命名后向引用。
例如，（？\w）\k 查找双写的单词字符。
表达式 （？\w）\43 执行同样的操作。
可以使用单引号替代尖括号，例如 \k'char'。
\b(?\w+)\s+(\k)\b这句话的意思是，匹配两个连续两个中间有空格（空白）的单词。
比如This is the the big world.中的the the...
