作者：乔山办公网日期：
返回目录：office365
在 aDoc.Activate 下面加两百句：
Selection.HomeKey Unit:=wdStory '光标移动到度前面，你可以问不要这一句
Selection.TypeText Text:="已经答打回开" '这样就写入了答字符串了
Private Sub Command1_Click()
Dim ss As String
Dim WordApp As Object
ss = "用百VB创建的word文本" '新建WORD文件名
Set WordApp = CreateObject("Word.Application")
WordApp.Application.Visible = 1 '控制word可见或不可见
Set myDoc = WordApp.Documents.Add()
With myDoc
.Content.Font.Name = "Arial"
.SaveAs FileName:="D:\" & ss & ".doc"
.Content.InsertAfter Text:="冷却塔度报告" '插入文字，请使用这种专格式
.Shapes.AddPicture FileName:="D:\a.jpg" '插入图片，请使用这种格式，路径属自己写
.Save
End With
End Sub
Private Sub Command1_Click()
Dim wrdApp
Set wrdApp = CreateObject("Word.application")
With wrdApp
.DisplayAlerts = False
.Visible = True
.Documents.Add
.Selection.TypeText "计算机百信息度一问览表" + Chr(13)
.ActiveDocument.SaveAs "c:\1.doc"
.Documents.Close
.Quit
End With
Set wrdApp = Nothing
MsgBox "c:\1.doc已成答功专保存！属"
End Sub
你改了吗？我感觉最后一句是一样的，你要打开word2007,运行程序的电脑应该在非程序环境下也可以直接打开2007的文件才行。