Macro for replacing EXCEL data into WORD

[Rolsen]

Hi

Managed to get this working.

.Replacement.Font.Bold = True


Regards

Robert

Hi.

For some reason I can't get this to work?
My code looks like this:

With ActiveDocument.Range
            With .Find
                .ClearFormatting
                .Replacement.Font.Bold = True
                .MatchWholeWord = True
                .MatchCase = True
                .Wrap = wdFindStop
                .Text = Split(xlFList, "|")(i)
                .Execute
                 'To automatically change the found text:
                 '• comment-out/delete the previous line and the Do While Loop
                 '• uncomment the next two lines
                 '.Replacement.Text = Split(xlRList, "|")(i)
                 '.Execute Replace:=wdReplaceAll
            End With

I'm new to all this VBA coding so there is a big chance I have put the section the wrong place.

Best Regards Rasmus.