私の問題に対する解決策 (VBA であろうとなかろうと) を見つけたいと思っています。リンクされた Excel テーブルを含む Word 文書があります。すべてのリンクは正しく機能しますが、Word 文書を Excel データで更新するには手動で開く必要があります。Excel の代わりに Word を使用している理由は、テキストの量が多いためです。
フォルダー内のすべての Word ドキュメントを調べ、各ドキュメントを開き、すべてのリンクを更新し、ドキュメントを保存して、次のドキュメントに移動するコードをプログラムする方法はありますか?
これが私がこれまでに持っているものです
Sub OpenFiles()
Dim MyFolder As String
Dim MyFile As String
MyFolder = "LOCATION"
MyFile = Dir(MyFolder & "\*.docx")
Do While MyFile <> ""
Documents.Open Filename:=MyFolder & "\" & MyFile
MyFile = Dir
Loop
End Sub
アップデート
OK、ファイルを開くコマンドを機能させることができました! 今、ファイルを上書き/保存して閉じようとしています。
エラー メッセージ: オブジェクトが必要です
Sub OpenFiles()
Dim MyFolder As String
Dim MyFile As String
Dim objWord As Object
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
MyFolder = "LOCATION"
MyFile = Dir(MyFolder & "\*.docx")
Do While MyFile <> ""
objWord.Documents.Open Filename:=MyFolder & "\" & MyFile
Application.DisplayAlerts = False
ActiveDocument.SaveAs Filename:=MyFile
Application.DisplayAlerts = True
MyFile = Dir
Loop
End Sub