単語が太字のWord文書から文を抽出することはできますか？

Question

Word文書で太字の単語が含まれている文を抽出して、用語のリストを作成します。それは可能ですか？私は太字の単語を検索する方法を知っています。しかし、私は大胆な言葉を持つ文を選択する方法を知らない。

見つかったテキストをコピーして新しい文書に貼り付けるコードを追加しました。それはうまくいきましたが、今はそうではありません。どうしてか分かりません。これは私が今持っているものです。

Sub Extract_terms() 
    With Selection.Find 
     .Format = True 
     .Font.Bold = True 
    End With 
    Do While Selection.Find.Execute 
     Selection.Expand wdSentence 
     Selection.Font.Bold = False 'added to prevent infinite loop 
     Selection.Copy 
     Windows("list.docx").Activate 
     Selection.PasteAndFormat (wdFormatOriginalFormatting) 
     Selection.TypeParagraph 
     Windows("Chapter 3.docx [Compatibility Mode]").Activate 
     Selection.MoveLeft Unit:=wdCharacter, Count:=1  
    Loop 
End Sub 

Answer 1

あなたはSelection.Expandのための単位としてwdSentenceを使用する必要があります。ここでは例です：

Sub test() 
    With Selection.Find 
     .Format = True 
     .Font.Bold = True 
    End With 

    Do While Selection.Find.Execute 
     Selection.Expand wdSentence 
     Selection.Font.Bold = False 'added to prevent infinite loop 
    Loop 
End Sub 

HereあなたはwdUnits列挙するために使用できるすべての可能なユニットのリストです。

Answer 2

私は簡単な方法は、その検索のマクロを記録することだと思うあなたのプログラムにコードを取ると、あなたが望むように変更し、その後、希望の条件に含まれています。

例：

Selection.Find.ClearFormatting 
Selection.Find.Font.Bold = True 
With Selection.Find 
    .Text = "YOUR WORD" 
    .Replacement.Text = "" 
    .Forward = True 
    .Wrap = wdFindContinue 
    .Format = True 
    .MatchCase = False 
    .MatchWholeWord = False 
    .MatchKashida = False 
    .MatchDiacritics = False 
    .MatchAlefHamza = False 
    .MatchControl = False 
    .MatchWildcards = False 
    .MatchSoundsLike = False 
    .MatchAllWordForms = False 
End With 
Selection.Find.Execute