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