大家好,如何在excel里运行word的宏,目的是查找替换+下划线+粗.

守柔

编惯了程序，这次，想更轻松一点的，不知楼主是否接受啊？

将EXCEL工作薄另存为以TAB键为分隔符的文本文件（此目的稍候自明白）,退出EXCEL(或者关闭当前文件)

比如MING.TXT文件,然后右击该MING.TXT,以WORD程序打开该文件,以便在该文件中使用WORD的查找与替换功能.

将你所要达到的目的,进行替换,此处略过了.

全选WORD文档,复制,在EXCEL的空白工作表的指定位置如B1中,按下粘贴即可.

请楼主试之.

editor12

版主:有多个关键字,您帮我做一个批量查找替换的word宏代码好吗?颜色兰色,下划线兰色,不用做窗体,关键字可放在代码里,简单的就好..搞个按钮.

另外:以TAB键为分隔符的文本文件找不到啊,在另存为对话框内,有1,文本文件(制表符分隔)2,带格式文本文件(空格分隔).是哪个啊?

守柔

以下是引用editor12在2005-6-15 13:27:00的发言：

版主:有多个关键字,您帮我做一个批量查找替换的word宏代码好吗?颜色兰色,下划线兰色,不用做窗体,关键字可放在代码里,简单的就好..搞个按钮.

另外:以TAB键为分隔符的文本文件找不到啊,在另存为对话框内,有1,文本文件(制表符分隔)2,带格式文本文件(空格分隔).是哪个啊?

TAB键不就是制表符吗？？？

手动能顺利完成的，你录个宏不就得了吗？

editor12

这是我昨晚录的宏:

Sub Macro3() Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "李" .Replacement.Text = "李" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub

里面没有格式(如下划线,颜色),而且多个关键字如何循环呢?word初次接触,还望版主耐心指导,谢谢版主

守柔

以下是引用editor12在2005-6-15 13:57:00的发言：

这是我昨晚录的宏:

Sub Macro3() Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "李" .Replacement.Text = "李" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub

里面没有格式(如下划线,颜色),而且多个关键字如何循环呢?word初次接触,还望版主耐心指导,谢谢版主

请参：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By wisetime@ExcelHome 2005-6-20 9:47:59 '仅测试于System: Windows NT Word: 9.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Sub Example() Dim MyReplaceText() As Variant, aRepText As Variant Application.ScreenUpdating = False MyReplaceText = Array("赵", "钱", "孙", "李", "周", "吴", "陈", "王") With ActiveDocument.Content.Find For Each aRepText In MyReplaceText .ClearFormatting .Text = aRepText .Format = True With .Replacement .Text = aRepText .Font.Color = wdColorBlue .Font.Underline = True End With .Execute Replace:=wdReplaceAll Next End With Application.ScreenUpdating = True End Sub '----------------------