vba - Word 文書に変更を加えるために、フォルダー内のファイルを反復処理する

Question

カスタマイズしたスタイルを適用したいフォルダーに、たくさんのワード文書があります。

これは私のVBAコードです。VBA を特定のフォルダーに移動し、カスタマイズされたスタイルをすべての Word ドキュメントに適用するようにしたいと考えています。何か案は？

Sub styleapply()
'
' styleapply Macro
'
'
    Selection.WholeStory
    ActiveDocument.UpdateStyles
    'WordBasic.ApplyQFSetTemplate
    Selection.Style = ActiveDocument.Styles("sam'style")
End Sub

Answer 1

これにより、ほとんどの場合、次のようになります。

Sub OpenWordFolder()
    Dim fd As FileDialog
    Dim doc As Document
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    fd.AllowMultiSelect = True
    fd.Show
    For Each folderItem In fd.SelectedItems
        fileItem = Dir(folderItem & "\" & "*.docx")
        While fileItem <> ""
            Set doc = Documents.Open(FileName:=folderItem & "\" & fileItem)
            Selection.WholeStory
            Selection.Style = ActiveDocument.Styles("sam'style")
            doc.Close SaveChanges:=True
            fileItem = Dir
        Wend
    Next
End Sub

作成したカスタム スタイルが ActiveDocument に適用されるかどうかはわかりません。カスタム スタイルを含む元のドキュメントを Document オブジェクトに設定し、その Document オブジェクトを使用して各ファイルのスタイルを設定する必要がある場合があります。開いた。