Est-il possible d'extraire une phrase d'un document Word avec un mot en gras?

Question

Je souhaite créer une liste de termes en extrayant une phrase qui contient un mot en gras dans un document Word. Est-ce possible? Je sais comment rechercher des mots en gras. Mais je ne sais pas comment sélectionner la phrase qui a le mot en gras.

J'ai ajouté du code pour copier et coller le texte trouvé dans un nouveau document. Cela fonctionnait bien mais maintenant ce n'est pas le cas. Je ne sais pas pourquoi. Voilà ce que j'ai maintenant:

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

Vous devez utiliser le wdSentence comme une unité pour Selection.Expand. Voici un exemple:

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 est une liste de toutes les unités possibles que vous pouvez utiliser pour l'énumération wdUnits.

Answer 2

Je pense un moyen facile est d'enregistrer une macro de cette recherche contient les critères demandés, puis prendre le code à votre programme et de le modifier comme vous le souhaitez.

ex:

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