Mam następujący kod, który wybiera dane z komórki programu Excel i zastępuje określony fragment tekstu w moim dokumencie programu Word (dla celów tego pytania komórka programu Excel została zastąpiona zwykłym ciągiem tekstowym).

Dane „: idzie do” są stałe, a dane „aaa bbb” mogą być dowolne, dopóki nie osiągniemy „z”, które również jest stałe. Następnie dane po „z”, „ccc ddd eee” mogą być dowolne, dopóki nie trafią w „-”, które również jest stałe.

Czy możliwe jest utworzenie danych „aaa bbb”POGRUBIENIE & UPPER CASE, jednocześnie wprowadzając dane „ccc ddd eee”KURSYWA ?

": idzie doAAA BBB zccc 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