vb6.0中FramerControl如何读取替换打开的WORD中文字

用的是VB6.0中FramerControl控件，如何获取WORD中文字并替换

[此贴子已经被作者于2018-5-23 17:06编辑过]

如何读取WORD文字并替换?

'直接在word文件替换，不会的话，录制宏

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:\2.doc")
  With Selection.Find
      .Text = "456"
      .Replacement.Text = "999"
  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

FramerControl控件是第三方控件，不是VB60的控件，需要下载安装，没有用过。
以前用过WebOffice.OCX，也是第三方控件，可以在线编辑Word、Excel、PPT、WPS...等的大多数办公文档。
优点是将文档以二进制方式存储在数据库，可以新建、修改、删除文档，比较好用。