Option Explicit '[ツール] → [参照設定] → [Microsoft Word XX.X Object Library]をチェック → [OK] Sub OpenDoc() Dim app As New Word.Application app.Visible = True 'Documentを開く Dim doc As Word.Document Set doc = app.Documents.Open("C:\Users…