Записать в документ Word из Excel VBA

Question

Я могу написать Word, документ из VBA макросов, но у меня возникают проблемы с синтаксисом для создания заголовков, абзацев, таблиц и т.д. ...

Этот пример записывает две строки в Word Document, но оба выходят как стиль заголовка. Я хотел бы, чтобы один заголовок строки и одна строка в абзаце или «нормальном» стиле ...

Dim wdApp As Word.Application 
    Set wdApp = New Word.Application 

    With wdApp 
    .Visible = True 
    .Activate 
    .Documents.Add 

    With .Selection   
     .Style = "Heading 1" 
     .TypeText ("My Heading") 
     .TypeParagraph 

     .Style = "Normal" 
     .TypeText ("Some regular paragraph text") 

    End With 

Answer 1

Это делает то, что я хочу.

With .Selection 
    .Style = "Heading 1" 
    .TypeText "Header 1" 
    .TypeParagraph 

    .Style = "Heading 2" 
    .TypeText "Header 1.1" 
    .TypeParagraph 

    .Style = "No Spacing" 
    .TypeText "some text" 
    .TypeParagraph 

    .Style = "Heading 1" 
    .TypeText "Header 2" 
    .TypeParagraph 
End With