vba - vba 適用スタイル

Question

Excelセルの値をWord文書に挿入する次のコードがあります。

    Set wrdRange = wrdDoc.Range
    With wrdRange
        .Collapse Direction:=wdCollapseEnd
         .InsertParagraphAfter
         xText = Rng.Cells(i + 1, 1).Value
         .InsertAfter xText
        .Collapse Direction:=wdCollapseEnd
    End With

H1 でxTextのスタイルを設定する必要がありますが、取得できません。
xText には多くの単語が含まれる場合があります。

前もって感謝します。

Answer 1

これを試して。

Set wrdRange = wrdDoc.Range
With wrdRange
    .Collapse Direction:=wdCollapseEnd
    .InsertParagraphAfter
    xText = Rng.Cells(i + 1, 1).Value
    .InsertAfter xText

    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveRight Unit:=wdCharacter, Count:=Len(xText), Extend:=wdExtend
    Selection.Style = ActiveDocument.Styles("Heading 1")

    .Collapse Direction:=wdCollapseEnd
End With