Question

利用VB中的文本来替换Word文档中的字

Private Sub Command1_Click()
Dim wordObj
Set wordObj = CreateObject("Word.Application")
With wordObj.Documents.Open("c:\1.doc")'WORD文档路径
With .Content
If .Find.Execute("#text1") Then
.Text = Me.Text1.Text
End If
If .Find.Execute("#text2") Then
.Text = Me.Text2.Text
End If
If .Find.Execute("#text3") Then
.Text = Me.Text3.Text
End If
End With
.Save
End With
wordObj.quit
End Sub
可是,只能替换一处,以后多处应该怎替换呢?请问

Answer 1

已试验
Private Sub Command1_Click()
Dim wordObj
Set wordObj = CreateObject("Word.Application")
wordObj.Documents.Open ("c:\1.doc") 'WORD文档路径
With wordObj.Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "#text1"
.Replacement.Text = Text1
End With
wordObj.Selection.Find.Execute Replace:=2

wordObj.Documents.Save

wordObj.quit
End Sub

Answer 2

把if ... end if改成 while... wend试试

Answer 3

Private Sub Command1_Click()
Dim wordObj
Set wordObj = CreateObject("Word.Application")
With wordObj.Documents.Open("c:\1.doc")
With .Content
.Find.Execute "#text1", , , , , , , , , Text1, 2
.Find.Execute "#text2", , , , , , , , , Text2, 2
.Find.Execute "#text3", , , , , , , , , Text3, 2
End With
.Save
End With
wordObj.quit
End Sub

可简化为：
Private Sub Command2_Click()
Dim wordObj
Set wordObj = CreateObject("Word.Application")
With wordObj.Documents.Open("c:\1.doc")
For i = 1 To 3
.Content.Find.Execute "#text" & i, , , , , , , , , Me("Text" & i), 2
Next
.Save
End With
wordObj.quit
End Sub