Изменить шрифт выделенного текста в макросе для MS Word - PullRequest
Новая
       6

Изменить шрифт выделенного текста в макросе для MS Word

0 голосов
/ 24 ноября 2018

Мне нужно добавить некоторые функции в существующий макрос для MS Word.Этот конкретный макрос находит определенный текст "# code_bar #" в существующем документе MS Word и заменяет его другим текстом, например 3541589479 .

Теперь, когда этот текст найден и заменен (что макрос уже делает правильно), он предназначен для изменения шрифта на «Свободно 3 из 9 Extended», который уже импортирован в Word.

Это код, который работает правильно, за исключением частигде я пытаюсь изменить шрифт и размер, чего на самом деле не происходит.Может ли кто-нибудь помочь?Спасибо. 

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

1 Ответ

0 голосов
/ 24 ноября 2018

После некоторого дополнительного копания и спокойного ночного сна вот ответ:

  • . Формат должен = true, чтобы эти изменения действительно имели место
  • Имя шрифтадолжен быть правильным.В моем случае я пытался использовать Free 3 of 9 Extended (который был импортирован на мой компьютер), а не Regular (который не был импортирован и, следовательно, не найден), как вкод выше.

Ошибка новичка.

Надеюсь, что это может помочь кому-то еще

...