0

私の問題に対する解決策 (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
4

1 に答える 1