更改Word文件中特别格式化的文本部分

时间:2017-07-29 21:32:17

标签: ms-word word-vba

我正在研究MS Word文档,其中包括Ethiopic脚本和拉丁文中的文本。 Ethiopic文本部分是以非Unicode编码编写的。现在我想将这些部分更改为unicode。我已经设法"写" (或创建)执行此更改的脚本(在VB中我猜)。我现在面临的问题是脚本不应该触及拉丁语(德语)中的原始文本。 Ethiopic部分有一个我希望可以使用的字体信息。因此,我希望我可以在脚本中使用一个选项,它有助于仅排除具有此特定字体信息的文本部分。

这是我使用的脚本

Selection.Font.Name = "AGF - Zemen"
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "G<"
        .Replacement.Text = ChrW(4609)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

我从未在MS Word中使用过脚本,我的主要职责是对文本进行语言编辑。

0 个答案:

没有答案