VBA写入Word，更改字体格式

Question

我正在Excel中编写VBA脚本以基于某些表格将文本输出到Word文档。大多数情况下，一切都很美妙（我在教我自己，因为我有很多来自stackoverflow的帮助）。我有一个相当长的代码，所以在这里复制它会很困难，我会试着展示相关的部分。

我遇到的问题是在我尝试更改字体的格式时。 我已经创建了一些不同的风格，以协助标准化的格式选项，

With wrdDoc 
    .Styles.Add ("SectionHeader") 
    .Styles.Add ("NoFormat") 
    .Styles.Add ("Marginal") 
    .Styles.Add ("Failed") 
    .Styles.Add ("Unknown") 
    .Styles.Add ("Bold") 
    With .Styles("SectionHeader") 
     .Font.Name = "Calibri" 
     .Font.Size = 12 
     .Font.Underline = True 
     .Font.Bold = False 
     .Font.Italic = False 
     .Font.Strikethrough = False 
     .Font.Subscript = False 
     .Font.Superscript = False 
     .Font.Color = RGB(0, 0, 0) 
    End With 
    With .Styles("NoFormat") 
     .Font.Name = "Calibri" 
     .Font.Size = 12 
     .Font.Underline = False 
     .Font.Bold = False 
     .Font.Italic = False 
     .Font.Strikethrough = False 
     .Font.Subscript = False 
     .Font.Superscript = False 
     .Font.Color = RGB(0, 0, 0) 
    End With 
    With .Styles("Marginal") 
     .Font.Name = "Calibri" 
     .Font.Size = 12 
     .Font.Underline = False 
     .Font.Bold = True 
     .Font.Italic = False 
     .Font.Strikethrough = False 
     .Font.Subscript = False 
     .Font.Superscript = False 
     .Font.Color = RGB(0, 0, 255) 
    End With 
    With .Styles("Failed") 
     .Font.Name = "Calibri" 
     .Font.Size = 12 
     .Font.Underline = True 
     .Font.Bold = True 
     .Font.Italic = False 
     .Font.Strikethrough = False 
     .Font.Subscript = False 
     .Font.Superscript = False 
     .Font.Color = RGB(255, 0, 0) 
    End With 
    With .Styles("Unknown") 
     .Font.Name = "Calibri" 
     .Font.Size = 12 
     .Font.Underline = False 
     .Font.Bold = True 
     .Font.Italic = False 
     .Font.Strikethrough = False 
     .Font.Subscript = False 
     .Font.Superscript = False 
     .Font.Color = RGB(0, 176, 80) 
    End With 
    With .Styles("Bold") 
     .Font.Name = "Calibri" 
     .Font.Size = 12 
     .Font.Underline = False 
     .Font.Bold = True 
     .Font.Italic = False 
     .Font.Strikethrough = False 
     .Font.Subscript = False 
     .Font.Superscript = False 
     .Font.Color = RGB(0, 0, 0) 
    End With 
End With 

于是，我试图做到这一点，在输出文本中的句子变化的中间有一个字格式，

With wrdApp.Selection 
    .Style = wrdDoc.Styles("NoFormat") 
    .TypeText Text:="The start of this sentence is " 
    .Style = wrdDoc.Styles("Unknown") 
    .TypeText Text:="unknown" 
    .Style = wrdDoc.Styles("NoFormat") 
    .TypeText Text:=" so we will keep trying..." 
    .TypeParagraph 
End With 

但我得到的是没有改变的句子，如果该单词的格式。

更奇怪的是，我也有应适用我的“大胆”的风格发挥到了整个句子的几个组成部分，其中之一不适用大胆，而另一个没有，

With wrdApp.Selection 
    .Style = wrdDoc.Styles("Bold") 
    .TypeText Text:="This one doesn't work" 
End With 

With wrdApp.Selection 
    .Style = wrdDoc.Styles("Bold") 
    .TypeText Text:="this one works!" 
    .TypeParagraph 
End With 

我会也喜欢能够应用

.ParagraphFormat.SpaceAfter = 0 
    .ParagraphFormat.SpaceBefore = 0 

对这些选择的一些，但我想不出如何做到这一点。我可以将它用于文档的“范围”，但最终会将其应用于文档的现有部分，但不会应用于任何新文本。

Answer 1

一个，你必须是，当你创建一个样式，默认情况下它是一个问题段落样式（或在Word的最新版本中，它通常是“链接样式”，有时被认为是段落/字符样式）。当你执行

.Style = wrdDoc.Styles("NoFormat") 

第二次

因此，例如，样式应用到整个段落。您试图将“未知”应用于段落的一部分的事实被遗忘。

如果您创建了与字符样式相同的测试样式，例如

.Styles.Add "NoFormat", wdStyleType.wdStyleTypeCharacter 

，同样为“未知”的风格

并运行你的第一个测试例子再次，你应该看到其中的差别。

Answer 2

我总是有点糊涂在Word中一个回合的范围，但尝试这样的事：

Sub TestAdd() 
    AddWithStyle "This is a normal ", "Normal" 
    AddWithStyle "but this is different", "Heading 1" 
    AddWithStyle " and this is back to normal ", "Normal" 
End Sub 


Sub AddWithStyle(sText As String, sStyle As String) 
    Selection.TypeText sText 
    Selection.MoveLeft unit:=wdCharacter, Count:=Len(sText), Extend:=wdExtend 
    Selection.Style = ActiveDocument.Styles(sStyle) 
    Selection.Collapse Direction:=wdCollapseEnd 
End Sub