Word VBA - 插入不止一种类型的文本答案

【问题标题】：Word VBA - insert more than one type of textWord VBA - 插入不止一种类型的文本
【发布时间】：2014-03-11 00:03:46
【问题描述】：

致各位

我正在尝试自动化 Word 文档。为此，我想插入一些文本。我会使用的正常代码（用于标题）是：

Selection.TypeText Text:="This is Text"
Selection.Style = ActiveDocument.Styles("Heading 1")

但是，我想添加多行不同样式的。所以，我有以下代码：

Sub createtest()        
    insertheading1 ("This is heading 1")
    insertheading2 ("This is subheading 1")
End Sub

Function insertheading1(Text1)
    Selection.TypeText Text:=Text1 & Chr(11)
    Selection.Style = ActiveDocument.Styles("Heading 1")
End Function

Function insertheading2(Text1)
    Selection.TypeText Text:=Text1 & Chr(11)
    Selection.Style = ActiveDocument.Styles("Heading 2")
End Function

因此，目的是添加一行作为标题 1，然后添加第二行作为标题 2（副标题）。但是第二个位改变了第一行，使它们都是 Heading 2 样式会发生什么。

有人可以帮忙吗？谢谢。

【问题讨论】：

标签： vba ms-word

【解决方案1】：

试试这个，对我来说，Word 2010 是对的。您必须添加一个段落。

Function insertheading1(Text1)
    Selection.TypeText Text:=Text1
    Selection.Style = ActiveDocument.Styles(wdStyleHeading1)
    Selection.TypeParagraph
End Function

Function insertheading2(Text1)
    Selection.TypeText Text:=Text1
    Selection.Style = ActiveDocument.Styles(wdStyleHeading2)
End Function

【讨论】：