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

editor12

不使用excel的查找替换命令///excel有一定的局限性.对查找到的字下划线时,单元格里的其他字也全都下划线了,

也不考虑在excel用编程,因为太没效率,我就喜欢在word里用查找替换,如果把内容复制到word里,又会乱成一团,所以,我想在excel调用word的宏过程......

[此贴子已经被作者于2005-6-13 17:41:21编辑过]

xchong1979

Excel也有查找命令

editor12

我知道的的的...

excel有一定的局限性.你可以试试,当你要对查找到的字下划线时,单元格里的其他字也全都下划线了,

editor12

帮帮我啊....在线跪求.....

守柔

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

不使用excel的查找替换命令///excel有一定的局限性.对查找到的字下划线时,单元格里的其他字也全都下划线了,

也不考虑在excel用编程,因为太没效率,我就喜欢在word里用查找替换,如果把内容复制到word里,又会乱成一团,所以,我想在excel调用word的宏过程......

你的目的很明确,请问楼主,你的想法是否有问题呢?

难道你非得这样使用查找的方式吗?

你知道这样使用WORD查找也是效率很低的吗?

如果你愿意接受在EXCEL中直接更改,我就给你做一个,如果你不接受这个意见的话,请将文档置于WORD中,直接替换.

editor12

守柔版主,能不能给做一个在EXCEL中直接更改的....谢谢

版主,在做的时候要考虑一下,单元格的内容有可能有两个字以上如"严严严"等

[此贴子已经被作者于2005-6-13 18:07:36编辑过]

守柔

请参:

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By shourou@ExcelHome 2005-6-14 8:46:05 '仅测试于System: Windows NT Word: 9.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Sub Example() Dim i As Range, MyRange As Range, n As Integer On Error Resume Next Application.ScreenUpdating = False Set MyRange = Range("a1:a4") For Each i In MyRange n = VBA.InStr(i, "严") Do While n > 0 With i.Characters(n, 1) .Text = "颜" .Font.Bold = True .Font.Underline = True End With n = VBA.InStr(i, "严") Loop Next Application.ScreenUpdating = True End Sub '----------------------

editor12

版主,您这个方法

With i.Characters(n, 1) .Text = "颜" .Font.Bold = True .Font.Underline = True End With

就是我目前在用的方法,很慢的...速度让人无法忍受.实际For Each i In MyRange查找的时间用有了多少,主要是对查找到的进行格式设置,在excel中花费了很大的时间.

editor12

word好像只能用63列,对于我来说是不够用,版主能不能帮我做一段代码,在excel指定范围复制A1:BK50共63列,粘贴到word,中,通过代码查找替换格式,再拷到excel原有的位置中.版主如果有空能帮我做一下的话,请用多关键字好吗,我看您的PDF代码集里第17页第十一章里有个批量查找替换写得挺好,可惜看得头晕,对word我是完全的外行

,excel超过63列后,再一次操作BL1:DV50共63列.接下去DW1:GG50共63列,接下去GH1:IR50共63列,接下去IS1:IV50,我只是就要复制的区域举个例,具体根据最后有效数据列来判断最后的列应是哪一列就拷到哪一列.

editor12

希望版主再帮我做一个好吗