'Imports System.Runtime.InteropServices Dim wdApp As New Microsoft.Office.Interop.Word.Application() wdApp.Visible = True Dim wdDocs = wdApp.Documents '◀◀◀ Documents オブジェクトを変数に受ける Dim wdDoc = wdDocs.Open("E:\Test.docx") MsgBox("文書を閉じます。", vbInformation Or vbSystemModal) wdDoc.Close(False) '文書を閉じる。 Marshal.ReleaseComObject(wdDoc) '◁◁◁ 後始末 Marshal.ReleaseComObject(wdDocs) '◁◁◁ 後始末 wdApp.Quit() 'ワードを終了させる。 Marshal.ReleaseComObject(wdApp) '◁◁◁ 後始末 MsgBox("Wordを終了させました。", vbInformation Or vbSystemModal)