以编程方式将某种字体+大小更改为其他字体+大小

Question

我有一个ms-word文档，其中Helvetica 13.5是段落的主要字体。不幸的是，它与文档中的任何特定预定义样式无关（文本从网站复制到文档中）。此外，您会在段落中看到几个单词的斜体字和一些单词“Courier New”。

我想要做的是浏览文档，查找具有单一字体/大小的文本片段。如果该文本是Helvetica 13.5，我想将其更改为Times New Roman 12.我不想更改新的嵌入式快递。斜体字应该保持斜体（但是如果它是Helvetica/13.5，它们的字体应该改变）

有没有一种“简单”的方法来做到这一点？

感谢

Answer 1

我不知道如何以编程方式做到这一点，但我知道Word能够找到并基于格式替换的能力。这里是你如何做到这一点：

• 在你的Windows文档中做Ctrl-G，Mac做Command-Option-G。这将拉起转到窗口。
• 选择替换选项卡
• 在替换选项卡中，您应该看到Windows的“更多>>”，Mac的“v”（向下箭头）。点击该按钮，即可启动额外的功能。
• 现在通过点击底部的格式按钮来选择您要查找的格式。
• 要选择所需的新格式，请选择“替换为”文本字段，然后执行与上一步相同的操作。您的选项应显示在相应的文本字段下方。
• 完成后，按全部替换

注：保持文本字段为空，如果你想替换只匹配基于文本的格式化

Answer 2

Sub Helv_to_TNR 

With ActiveDocument.Content.Find 
.ClearFormatting 
.Replacement.ClearFormatting 
.Wrap = wdFindContinue 
.format = True 
.MatchCase = False 
.MatchWholeWord = False 
.MatchWildcards = False 
.MatchSoundsLike = False 
.MatchAllWordForms = False 
.Text = "" 
.Replacement.Text = "" 
.Font.Size = 13.5 
.Replacement.Font.Size = 11 
.Font.Name = "Helvetica" 
.Replacement.Font.Name = "Times New Roman" 
.Execute Replace:=wdReplaceAll 
end with 

end sub