1.1打開excel vba接口。
1.2選擇其中壹個模塊。
1.3選擇菜單，工具-& gt；參考
在打開的對話框中選擇類似“Microsoft Word 14.0對象庫”的內容。
1.4單擊確定保存配置。
2.打開文檔
設置Word application = CreateObject(" Word。應用”)
word應用程序。可見=假
Dim將OpenDoc作為布爾值
hasOpenDoc = IsOpen(filePath)'是壹個自定義函數，用於檢查文件是否被打開
如果hasOpenDoc = True，則
設置wordDoc = GetObject(文件路徑)
如果…就會結束
如果hasOpenDoc = False，則
設置wordDoc = wordApplication。文檔.打開(文件路徑)
如果…就會結束
wordDoc。活躍的
使用wordApplication
模糊語法作為單詞。段落
對於wordDoc中的每個aParagraph。段落
對每壹段做壹些事情。
下壹個公寓
以…結尾
wordDoc。關閉
設置wordDoc = nothing
下面的代碼指的是壹個牛逼的人，非常感謝他。因為路徑丟失，所以無法給出鏈接。抱歉。
下面的搜索方法可以正確地找出文件是否被打開。
函數IsOpen(文件名為字符串)為布爾值
IsOpen = False
Dim findFile為整數
findFile = FreeFile()
出錯時轉到錯誤打開
以findFile形式打開二進制鎖讀寫的文件名
關閉查找文件
退出功能
錯誤打開:
如果錯誤。號碼& lt& gt那就70
Msg = " Error # " & ampStr(Err。編號)& amp是由“& amp呃。源與源。Chr(13)呃。描述
MsgBox消息，“錯誤”，Err。幫助文件，錯誤。幫助上下文
其他
IsOpen = True
如果…就會結束
結束功能