更改MS Word宏中所选文本的字体

我必须为MS Word的现有宏添加一些功能。这个特定的宏在现有的MS Word文档中找到特定的文本“＃code_bar＃”，并将其替换为其他文本，即3541589479。

现在，一旦找到并替换了该文本（该宏已经正确执行），就可以将字体更改为“已导入9的Free 3 of 9 Extended”。

这是代码，除了我尝试更改字体和大小的部分（实际上没有发生）之外，该代码正常工作。有人可以帮忙吗？谢谢。

Public Function sustituirCodigoBarras(codigo_barras)

Dim codigoDeBarras As String
Set codigoBarras = ActiveDocument.Content

'#barras_pedido# codigo de barras del pedido

    codigoDeBarras = "#code_bar#"
    With obj_Word.ActiveWindow.Selection.Find
        .Text = codigoDeBarras
        .Replacement.Text = "*" & codigo_barras & "*"
        .Replacement.Font.Name = "Free 3 of 9 Regular"
        .Replacement.Font.Size = 34
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue

    End With

End Function