用vb来对word文档修改问题，各位给点提示，小弟感激不尽！ - 编程论坛

#2

li18766962017-06-13 16:51

窗口很简单，就一个inputfile 一个outputfile 一个convert，目的就是转换后能得到我需要的word文档

#3

xiangyue05102017-06-13 19:12

需要转换一下word文档，比如检索到word里边的a时，用b来替换一下，然后别的部分也要改变一下(类似，实际复杂的多，实质是找到规律来替换)
红色的看不大明白，大致知道就是替换功能呗

程序代码：

  Dim wordapp
    Set wordapp = CreateObject("word.application")
    With wordapp
        .documents.open ("F:\1.doc")
        .Visible = True
        .activedocument.Content.Find.Execute FindText:=text1, ReplaceWith:=text2, Replace:=2
         activedocument.saveas "F:\2.doc"
    End With

#4

li18766962017-06-14 10:00

回复 3楼 xiangyue0510

好，谢谢，那如果工作量很大，也就是输入的这个word文档非常庞大，有没有什么简单的方法呢？

#5

人格疯劣2018-06-11 21:22

Private Sub Command1_Click()
  Dim wordapp As New Word.Application
  Dim wordDoc As New Word.Document
  Set wordapp = CreateObject("Word.Application")
  wordapp.Visible = False
  Set wordDoc = wordapp.documents.open("d:\123.doc")
  With Selection.Find
      .Text = "a"
      .Replacement.Text = "b"
  End With

  With Selection
       If .Find.Forward = True Then
          .Collapse Direction:=wdCollapseStart
       Else
          .Collapse Direction:=wdCollapseEnd
       End If
         .Find.Execute Replace:=wdReplaceAll '替换全部
  End With

End Sub
   也是新手，推荐你试一下这个！