'注意引用WORD 9.0
Private Sub Command2_Click()
Dim S1 As String
Dim appWord As New Word.Application
Dim wrdDoc As New Word.Document
Set appWord = New Word.Application
Set wrdDoc = appWord.Documents.Open("C:\TEMP\1.doc")
For i = 0 To List1.ListCount - 1
S1 = S1 & vbCrLf & List1.List(i)
Next
wrdDoc.Content.Text = S1
wrdDoc.Content.Select
appWord.Visible = True
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024