Question

对所有人来说，

我正在尝试自动化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（副标题）。但是，第二行改变第一行以使它们都是标题2样式会发生什么。

有人可以帮忙吗？感谢。

Answer 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

Word VBA - 插入多种类型的文本

1 个答案: