[已解决]求助，文本文件与excel协助

xqzy

求助，我想用f：\目标.xls的sheet1的a1单元格的内容替换当前word文档的所有的“科技发展1”，用a2单元格的内容替换当前word文档的所有的“科技发展2”，谁能帮我编一下代码？，随便附上个文件，只想学方法，谢谢

最佳答案

月排行榜 / 总排行榜

amulee

2011-1-24 15:37

代码供参考：

1. Sub ReplaceWord()
   
2.     Dim wdDoc As Object
   
3.     Dim wdApp As Object
   
4.     '创建Word对象
   
5.     Set wdDoc = GetObject(ThisWorkbook.Path & Application.PathSeparator & "目标.doc")
   
6.     '激活Doc文件
   
7.     wdDoc.Activate
   
8.     Set wdApp = wdDoc.Application
   
9.     '开始遍历替换，假设待替换的字符在B列
   
10.     For i = 1 To 2
    
11.         With wdApp.Selection.Find
    
12.             .Text = Range("B" & i)
    
13.             .Replacement.Text = Range("A" & i)
    
14.             .Forward = True
    
15.             .Wrap = 1
    
16.             .Format = False
    
17.             .MatchCase = False
    
18.             .MatchWholeWord = False
    
19.             .MatchByte = True
    
20.             .MatchWildcards = False
    
21.             .MatchSoundsLike = False
    
22.             .MatchAllWordForms = False
    
23.             .Execute Replace:=2
    
24.         End With
    
25.     Next i
    
26.     '保存，关闭
    
27.     wdDoc.Save
    
28.     wdDoc.Close
    
29. End Sub
    

复制代码

注意，表格改了一改，才能实现批量操作

跳转到最佳答案楼层

开辆小富康

只有一个当前活动WORD文档,直接手工操作好了.
代码的话,关键要建立WORD对象并调用,再加上查找替换代码,就这2点有点技术性
如果写在WORD中,就是反过来建立EXCEL对象,其他原理一样的

海滨音诗

直接在WORD中用查找替换好了.

xqzy

我这里问的是两个单元格，但实际上的30多个单元格，而且是长期使用，所以要编代码，我想两个单元格会了以后自己编多一点的

amulee

其实也不难，你给个附件看看。

xqzy

我随便给个附件，只想学方法，谢谢了

amulee

代码供参考：

1. Sub ReplaceWord()
   
2.     Dim wdDoc As Object
   
3.     Dim wdApp As Object
   
4.     '创建Word对象
   
5.     Set wdDoc = GetObject(ThisWorkbook.Path & Application.PathSeparator & "目标.doc")
   
6.     '激活Doc文件
   
7.     wdDoc.Activate
   
8.     Set wdApp = wdDoc.Application
   
9.     '开始遍历替换，假设待替换的字符在B列
   
10.     For i = 1 To 2
    
11.         With wdApp.Selection.Find
    
12.             .Text = Range("B" & i)
    
13.             .Replacement.Text = Range("A" & i)
    
14.             .Forward = True
    
15.             .Wrap = 1
    
16.             .Format = False
    
17.             .MatchCase = False
    
18.             .MatchWholeWord = False
    
19.             .MatchByte = True
    
20.             .MatchWildcards = False
    
21.             .MatchSoundsLike = False
    
22.             .MatchAllWordForms = False
    
23.             .Execute Replace:=2
    
24.         End With
    
25.     Next i
    
26.     '保存，关闭
    
27.     wdDoc.Save
    
28.     wdDoc.Close
    
29. End Sub
    

复制代码

注意，表格改了一改，才能实现批量操作

xqzy

感谢非常，非常感谢，我试试

xqzy

成功，非常感谢，帮了我的大忙了，简化了没完没了的复制粘贴！

xqzy

Amulee老师，你在Q群叫什么名字