☰

是否可以提取具有相同格式的特定句子並將其儲存到 Microsoft Word 中的文字檔案中？

tag-icon • tag-icon microsoft-word extract
是否可以提取具有相同格式的特定句子並將其儲存到 Microsoft Word 中的文字檔案中？

例如，當檢查一份小說或小說的文檔時，我想知道我是否可以獲得所有對話？因為它們具有相同的格式，例如“多麼美好的一天！”和“你好！”僅限於兩個引號。

答案1

您可以使用 VBA 來自動化流程。

  1. 開啟文檔。
  2. 按 Alt+F11 開啟 VBA 編輯器。
  3. 複製並貼上下面的程式碼。
  4. 將遊標放在程式碼中，按 F5 運行它。將開啟一個新窗口，其中包含提取的對話。
Sub GetDialogues()

    Dim coll As New Collection
    Dim regEx As RegExp
    Dim allMatches As MatchCollection
    
    Set regEx = New RegExp
    
    With regEx
        .IgnoreCase = False
        .MultiLine = True
        .Global = True    'Look for all matches
        .Pattern = """.+?"""    'Pattern to look for
    End With
 
    Set allMatches = regEx.Execute(ActiveDocument.Content.Text)
 
    For Each Item In allMatches
        coll.Add Item   'Add found items to the collection
    Next Item

    Dim newdoc As Document
    Set newdoc = Documents.Add  'Add a new Word document
    newdoc.Activate             'Activate the document

    For Each Item In coll
        newdoc.Content.Text = newdoc.Content.Text + Item   'Add each item (quote) to the document
    Next Item

    newdoc.SaveAs FileName:="test.txt", Fileformat:=wdFormatPlainText   'Save the document as plain text

End Sub

相關內容