Ich habe den folgenden Code, der Daten aus einer Excel-Zelle auswählt und ein bestimmtes Stück Text in meinem Word-Dokument ersetzt (für die Zwecke dieser Frage wurde die Excel-Zelle durch eine einfache Textzeichenfolge ersetzt).

Die Daten ": goes to" sind konstant, dann können die Daten "aaa bbb" alles sein, bis wir das "of" erreichen, das ebenfalls konstant ist. Dann können die Daten nach "of", "ccc ddd eee" beliebig sein, bis sie das "-" treffen, das ebenfalls konstant ist.

Ist es möglich die "aaa bbb" Daten zu machenFETT GEDRUCKT & UPPER CASE, während die "ccc ddd eee" -Daten inKURSIVSCHRIFT ?

": geht zuAAA BBB vonccc ddd eee - "

Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
    .Text = "MOTMDIV1"
    .Replacement.Text = ": goes to aaa bbb of ccc ddd eee - "
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = True
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With

Selection.Find.Execute Replace:=wdReplaceAll