5,138
社区成员
发帖
与我相关
我的任务
分享
Sub CreateWordDoc()
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Set wdApp = CreateObject("Word.Application")
Set wdDoc = wdApp.Documents.Add
wdApp.Visible = True
wdDoc.Activate
With wdDoc.ActiveWindow.Selection
.TypeText Text:="Test"
.Style = "标题3"
End With
For i = 1 To 2
With wdDoc.ActiveWindow.Selection
.TypeText Text:=Chr(10) & "第" & i & "段文字"
.Style = "标准"
End With
Next
wdDoc.SaveAs Filename:="E:\myDoc.doc"
wdApp.Quit
Set wdDoc = Nothing
Set wdApp = Nothing
End Sub