关于在DOC文档里查找特定字符串并进行替换的问题! 本帖最后由 happyexp 于 2011-04-25 21:54:52 编辑 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 http://download.csdn.net/source/1627134 word本身有查找替换功能,能否记录宏调用,试一下 Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWith Selection.Find .Text = "替换前"'可能office2007会支持正则匹配查找 .Replacement.Text = "替换后" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAll Sub Macro1()'' Macro1 Macro' 宏在 2011-04-26 由 MC SYSTEM 录制' Selection.Find.ClearFormatting With Selection.Find .Text = "\[*\]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Selection.Find.Execute Selection.Find.ExecuteEnd Sub 如果要查找:任意单个字符 键入 ? 例如,s?t 可查找“sat”和“set”。 任意字符串 键入 * 例如,s*d 可查找“sad”和“started”。 单词的开头 键入 < 例如,<(inter) 查找“interesting”和“intercept”,但不查找“splintered”。单词的结尾 键入 > 例如,(in)> 查找“in”和“within”,但不查找“interesting”。 指定字符之一 键入 [ ] 例如,w[io]n 查找“win”和“won”。指定范围内任意单个字符 键入 [-] 例如,[r-t]ight 查找“right”和“sight”。必须用升序来表示该范围。 中括号内指定字符范围以外的任意单个字符 键入 [!x-z] 例如,t[!a-m]ck 查找“tock”和“tuck”,但不查找“tack”和“tick”。n 个重复的前一字符或表达式 键入 {n}例如,fe{2}d 查找“feed”,但不查找“fed”。至少 n 个前一字符或表达式 键入 {n,}例如,fe{1,}d 查找“fed”和“feed”。n 到 m 个前一字符或表达式 键入 {n,m}例如,10{1,3} 查找“10”、“100”和“1000”。一个以上的前一字符或表达式 键入 @例如,lo@t 查找“lot”和“loot”。注释可使用括号对通配符和文字进行分组,以指明处理次序,例如,可以通过键入“<(pre)*(ed)>”来查找“presorted”和“prevented”。 可使用 \n 通配符搜索表达式,然后将其替换为经过重新排列的表达式,例如,在“查找内容”框键入“(Newton)(Christie)”,在“替换为”框键入“\2\1”,Word 将找到“Newton Christie”并将其替换为“Christie Newton”。 例如,可用星号 (*) 通配符搜索字符串(使用“s*d”将找到“sad”和“started”)。单击“编辑”菜单中的“查找”或“替换”命令。 如果看不到“使用通配符”复选框,请单击“高级”按钮。 选中“使用通配符”复选框。 在“查找内容”框中输入通配符,请执行下列操作之一: 若要从列表中选择通配符,请单击“特殊字符”按钮,再单击所需通配符,然后在“查找内容”框键入要查找的其他文字。 在“查找内容”框中直接键入通配符。 如果要替换该项,请在“替换为”框键入替换内容。 单击“查找下一处”、“替换”或者“全部替换”按钮。 按 Esc 可取消正在执行的搜索。注释选中“使用通配符”复选框后,Word 只查找与指定文本精确匹配的文本(请注意,“区分大小写”和“全字匹配”复选框会变灰而不可用,表明这些选项已自动选中,您不能关闭这些选项)。 要查找已被定义为通配符的字符,请在该字符前键入反斜扛 (\),例如,要查找问号,可键入“\?”。 求助!由进程名获得PID VB 打开文件 vb调用delphi编写的dll,代码如下,请会者帮助 VB遍历窗体控件时,怎样知道焦点在哪个控件上? 关于数组的问题 周5下午放假兼公司组织打球,放分! 动态加载控件问题,如何判断控件已经加载过了? 为什么不能加载? 控件问题请教?? 考了高程的大哥请推荐好点的数据结构的书 过程声明与同名事件或过程的描述不匹配~~~~~~~!!请高手帮忙解决啊 这个前面的about:blank怎么去掉?
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "替换前"'可能office2007会支持正则匹配查找
.Replacement.Text = "替换后"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
'
' Macro1 Macro
' 宏在 2011-04-26 由 MC SYSTEM 录制
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = "\[*\]"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute
Selection.Find.Execute
Selection.Find.Execute
End Sub
任意单个字符
键入 ?
例如,s?t 可查找“sat”和“set”。
任意字符串
键入 *
例如,s*d 可查找“sad”和“started”。
单词的开头
键入 <
例如,<(inter) 查找“interesting”和“intercept”,但不查找“splintered”。单词的结尾
键入 >
例如,(in)> 查找“in”和“within”,但不查找“interesting”。
指定字符之一
键入 [ ]
例如,w[io]n 查找“win”和“won”。指定范围内任意单个字符
键入 [-]
例如,[r-t]ight 查找“right”和“sight”。必须用升序来表示该范围。
中括号内指定字符范围以外的任意单个字符
键入 [!x-z]
例如,t[!a-m]ck 查找“tock”和“tuck”,但不查找“tack”和“tick”。n 个重复的前一字符或表达式
键入 {n}例如,fe{2}d 查找“feed”,但不查找“fed”。至少 n 个前一字符或表达式
键入 {n,}例如,fe{1,}d 查找“fed”和“feed”。n 到 m 个前一字符或表达式
键入 {n,m}例如,10{1,3} 查找“10”、“100”和“1000”。一个以上的前一字符或表达式
键入 @例如,lo@t 查找“lot”和“loot”。注释可使用括号对通配符和文字进行分组,以指明处理次序,例如,可以通过键入“<(pre)*(ed)>”来查找“presorted”和“prevented”。
可使用 \n 通配符搜索表达式,然后将其替换为经过重新排列的表达式,例如,在“查找内容”框键入“(Newton)(Christie)”,在“替换为”框键入“\2\1”,Word 将找到“Newton Christie”并将其替换为“Christie Newton”。
如果看不到“使用通配符”复选框,请单击“高级”按钮。
选中“使用通配符”复选框。
在“查找内容”框中输入通配符,请执行下列操作之一:
若要从列表中选择通配符,请单击“特殊字符”按钮,再单击所需通配符,然后在“查找内容”框键入要查找的其他文字。
在“查找内容”框中直接键入通配符。
如果要替换该项,请在“替换为”框键入替换内容。
单击“查找下一处”、“替换”或者“全部替换”按钮。
按 Esc 可取消正在执行的搜索。注释选中“使用通配符”复选框后,Word 只查找与指定文本精确匹配的文本(请注意,“区分大小写”和“全字匹配”复选框会变灰而不可用,表明这些选项已自动选中,您不能关闭这些选项)。
要查找已被定义为通配符的字符,请在该字符前键入反斜扛 (\),例如,要查找问号,可键入“\?”。