求助 --- 如何用VB来实现???

Question

Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "要找的并在后面加上相应应的空格数   "
        .Replacement.Text = "要找的并在后面加上相应应的空格数" & "要替换的"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute

Answer 1

to  brunhild:
    希望你写得详细一些,能够在VB6的环境下运行!最好有演示代码.谢谢!!

Answer 2

to bardo:
     希望你写得详细一些,能够在VB6的环境下运行!最好有演示代码.谢谢!!

Answer 3

可以在文本样本中需要添入数据的地方建立书签的方式。
然后在程序中搜索书签并写入对应的数据就行。
如：将“甲方姓名”的书签处写入“巴顿”
    其中ldoucment 为你打开的文档对象
     
     if ldocument.book("甲方姓名").exists
        ldocument.book("甲方姓名").select
        selection.range.text="巴顿"
     end if

Answer 4

研究一下VBA，在word里面的宏应该可以很好的解决这个需求（猜想），因为以前使用过宏，觉得功能还可以的

Answer 5

先引用Microsoft Word x.0 object libraryPrivate Sub Command1_Click()
    Dim objApp As Word.Application
    
    Set objApp = New Word.Application
    With objApp
        .Documents.Add ("c:\test.doc")
        .Visible = True
        
        .ActiveDocument.Shapes("Text Box 2").Select
        .Selection = "指定数据"
        .ActiveDocument.SaveAs "c:\test2.doc"
        .Quit
    End With
    Set objApp = Nothing
End Sub

Answer 6

to carefulman:
    按照你的方法做完后,如何把修改后的.Doc文档调入VB的文本编辑控件,供显示用??

Answer 7

to csdncb:
   如何在VB中启动在Word里录制的宏代码??

Answer 8

to brunhild:
    按照你的方法做完后,如何把修改后的.Doc文档调入VB的文本编辑控件,供显示用??