可以在上面加入任何文字 额 呵呵
Dim MyWord As Object
Dim NewDoc As Object
Dim NewObj As Worksheet
Dim astr As String
Private Sub Command1_Click()
Set MyWord = CreateObject("Word.Application")
MyWord.Visible = True
MyWord.Caption = "This word sample"
Set NewDoc = Nothing
End Sub
Private Sub Command2_Click()
Set NewDoc = MyWord.Documents.Add
NewDoc.Paragraphs(1).Range.Text = "Ok,This is my first samples"
End Sub
Private Sub Form_Unload(Cancel As Integer)
MyWord.Quit
End Sub