在编码之前，先安装Microsoft.Office.Interop.Word

Imports Microsoft.Office.Interop

Module Module1
    Sub Main()
        ' 创建Word应用程序实例
        Dim wordApp As New Word.Application()
        ' 设置为可见
        wordApp.Visible = True

        ' 打开指定的Word文档
        Dim doc As Word.Document = wordApp.Documents.Open("C:\\Users\\zhour\\Documents\\点击.docx")

        ' 在此处添加代码以处理文档


    End Sub


End Module