在Word文檔中更新並應用自定義樣式

我在我想要應用我定製的樣式的文件夾中有大量的文檔文檔。在Word文檔中更新並應用自定義樣式

這是我的VBA代碼。我希望VBA喜歡到特定文件夾並將自定義樣式應用於所有單詞文檔。有任何想法嗎？

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

來源

2013-03-25 Santosh Raj

請問您可以告訴我們您嘗試過什麼？有很多示例展示瞭如何遍歷選定的單詞文件。你有沒有試過它們？ – 2013-03-25 10:21:16

我是vba的新手..根據我的要求，我記錄了宏..並得到了問題中提到的代碼，它的工作，但我有很多文檔，所以通過所有文檔循環代碼..在那個目錄中.. – 2013-03-25 14:06:41

這應該讓你最那裏的方式：

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對象爲每個打開的文件設置樣式。

來源

2013-03-25 22:29:09

在Word文檔中更新並應用自定義樣式

回答

相關問題