如何使用Word VBA提取包含多个词的句子。

huangapple
go评论91阅读模式
英文:

How to extract sentences containing any of several words using Word VBA

问题

  1. 我有一个Microsoft Word文件，名为Tst.doc，其中包含以下句子：

沙发1。
沙发2。
椅子1。
椅子2。
座位1。
座位2。

  1. 我需要提取所有包含以下任意单词（沙发、椅子、座位）的句子到一个名为OutputBin.doc的第二个文件中，该文件存储在固定位置。
  3. 我根据一个现有模块编写了以下代码，该模块只能处理一个单词，但我的代码工作不稳定：三个单词的相对位置很重要，所以我认为我无法重置单词查找范围（每次搜索后它都在不断缩小？）
  5. ```vba
  6. Sub Extract_MANY_OR()
  8. Dim liste As String
  9. Dim file1 As String
  10. Dim file2 As String: file2 = "D:\OutputBin.doc"
  12. '每次都要更改这个！
  13. file1 = "D:\TST.doc"
  14. liste = "座位,沙发,椅子"
  16. Dim i As Integer
  18. '为文档分配变量
  19.     Dim wrdDoc1 As Document: Set wrdDoc1 = Documents.Open(file1)
  20.     Dim wrdDoc2 As Document: Set wrdDoc2 = Documents.Open(file2)
  21.     Dim r1 As Range: Set r1 = wrdDoc1.Range 
  22.     Dim r2 As Range: Set r2 = wrdDoc2.Range
  24. For i = 0 To UBound(Split(liste, ","))
  26.  With r1
  27.   .Find.Text = Split(liste, ",")(i)
  28.   .Find.MatchCase = False '
  29.   ' .Find.MatchCase = True 
  30.   Do While .Find.Execute
  31.    r1.Expand Unit:=wdSentence
  32.    wrdDoc2.Characters.Last.FormattedText = r1.FormattedText
  33.    r2.InsertParagraphAfter
  34.    r1.Collapse wdCollapseEnd
  35.   Loop
  36.  End With
  38. Next i
  40. End Sub
英文:

I have a Microsoft Word file, Tst.doc that contains the following sentences:

  1. Sofa 1.
  2. Sofa 2.
  3. Chair 1.
  4. Chair 2.
  5. Seat 1.
  6. Seat 2.

I need to extract all the sentences containing any of the words (sofa,chair,seat) to a second file named OutputBin.doc that is stored in a fixed location.

I wrote the following code, based on an existing module that is able to work only on one word, and my code is only working erratically: the relative position of the three words matters, so I believe I am not able to reset the word find range (it is shrinking continuously after each search?)

  1. Sub Extract_MANY_OR()
  3. Dim liste As String
  4. Dim file1 As String
  5. Dim file2 As String: file2 = "D:\OutputBin.doc"
  7. ' Change this every time!
  8. file1 = "D:\TST.doc"
  9. liste = "seat,sofa,chair"
  10.  
  11. Dim i As Integer
  13. ' assign variables for the documents
  14.     Dim wrdDoc1 As Document: Set wrdDoc1 = Documents.Open(file1)
  15.     Dim wrdDoc2 As Document: Set wrdDoc2 = Documents.Open(file2)
  16.     Dim r1 As Range: Set r1 = wrdDoc1.Range 
  17.     Dim r2 As Range: Set r2 = wrdDoc2.Range
  19. For i = 0 To UBound(Split(liste, ","))
  21.  With r1
  22.   .Find.Text = Split(liste, ",")(i)
  23.   .Find.MatchCase = False '
  24.   ' .Find.MatchCase = True 
  25.   Do While .Find.Execute
  26.    r1.Expand Unit:=wdSentence
  27.    wrdDoc2.Characters.Last.FormattedText = r1.FormattedText
  28.    r2.InsertParagraphAfter
  29.    r1.Collapse wdCollapseEnd
  30.   Loop
  31.  End With
  33. Next i
  34.  
  35. End Sub

答案1

得分: 1

你需要在每个单词之后重置搜索范围。

英文:

You need to reset the search range after each word.

  1. Sub Extract_MANY_OR()
  3. Dim liste As String
  4. Dim file1 As String
  5. Dim file2 As String: file2 = "D:\OutputBin.doc"
  7. ' Change this every time!
  8. file1 = "D:\TST.doc"
  9. liste = "seat,sofa,chair"
  11. Dim i As Integer
  13. ' assign variables for the documents
  14. Dim wrdDoc1 As Document: Set wrdDoc1 = Documents.Open(file1)
  15. Dim wrdDoc2 As Document: Set wrdDoc2 = Documents.Open(file2)
  17. For i = 0 To UBound(Split(liste, ","))
  18.   ' Reset the range after each word
  19.   Dim r1 As Range: Set r1 = wrdDoc1.Range 
  20.   Dim r2 As Range: Set r2 = wrdDoc2.Range
  22.  With r1
  23.   .Find.Text = Split(liste, ",")(i)
  24.   .Find.MatchCase = False '
  25.   ' .Find.MatchCase = True 
  26.   Do While .Find.Execute
  27.    r1.Expand Unit:=wdSentence
  28.    wrdDoc2.Characters.Last.FormattedText = r1.FormattedText
  29.    r2.InsertParagraphAfter
  30.    r1.Collapse wdCollapseEnd
  31.   Loop
  32.  End With
  34. Next i
  35.  
  36. End Sub

huangapple
  • 本文由 发表于 2023年5月25日 23:14:03
  • 转载请务必保留本文链接：https://go.coder-hub.com/76333852.html
  • ms-word
  • vba
匿名

发表评论

匿名网友

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

确定