Sub Rabel()
Dim ワード As Object
Dim ワード文書 As Object
Dim パス As String

'フルパスを作成
    パス = "ラベル2.doc"
    Set ワード = CreateObject("Word.Application") 'Wordを起動する
    ワード.Visible = True                       'Wordを表示する
    Set ワード文書 = ワード.Documents.Open(パス) 'Word文書を開く
End Sub