VBA學習筆記（2）--新建word文檔並插入文字

說明（2017.3.20）：

1. Dim As聲明變量類型，Set賦值/初始化

2. With使后面的省略對象，直接點就行，后面要End With

3. Application.StatusBar = "正在創建word"，這個會在Excel左下角出現提示

4. .ActiveDocument.SaveAs2()，里面第一個參數是文件名，需要加地址，不然不行

5. 最后記得加Quit，wordApp要清零（釋放對象實例，收回該對象占用的內存），Application.StatusBar要false（將狀態欄上的信息恢復為默認的“就緒”）

Public Sub dianbo()

    Dim wordApp As Word.Application
    Application.StatusBar = "正在創建。。。"
    Set wordApp = New Word.Application
    
    With wordApp
        .Visible = True
        Application.StatusBar = "正在創建word"
        .Documents.Add
        .ActiveDocument.Paragraphs(1).Range.InsertBefore ("邀請函")
        Application.StatusBar = "正在保存"
        .ActiveDocument.SaveAs2 ("D:\工作\腳本下載\vba練習\test.docx")
        Application.StatusBar = "正在退出"
        .Quit
    End With
    Set wordApp = Nothing
    Application.StatusBar = False
End Sub