vb中如何创建WORD对象并进行操作,给个例程

Question

你在word里录制宏，看看代码就ok了

Answer 1

先在reference里选择Microsoft word8.0 object library.Dim objWord As Word.Application
Set objWord = New Word.Application
objWord.Documents.Add
objWord.Visible = True

Answer 2

Private Sub Form_Load()
Dim objWord As Word.Application
Set objWord = New Word.Application
objWord.Documents.Open FileName:="E:\MyProjects\cf\zz.doc", ReadOnly:=False
objWord.Visible = TrueobjWord.Selection.Find.ClearFormatting
    With objWord.Selection.Find
        .Text = "我"
        .Replacement.Text = "你"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .MatchByte = True
    End With
    i=0
    Do While (objWord.Selection.Find.Execute)
    i=i+1
    Loop
    msgbox "共计"&str(i)&"处被替换",vbOKonly,"置换结果"
    end sub
这是我的代码,希望能对您有所帮助!