'①オブジェクト変数を宣言
Dim WordApp As Word.Application
Dim Exwb As Workbook
Dim Exws As Worksheet
Dim i As Long
Dim Extext As String
' ②Wordのインスタンスを作成。
Set WordApp = New Word.Application
Set Exwb = ThisWorkbook '③コードが記述されているブック
Set Exws = Exwb.ActiveSheet '③コードが記述されているブックのアクティブシート
With WordApp
.Visible = True '④Wordを表示
.Documents.Add '⑤Wordにドキュメントを追加
For i = 1 To 10
Extext = Exws.Cells(i, 1).text & vbLf '⑥セルA1~~~A10のセルのテキストと改行を変数へ
.Selection.TypeText Extext '⑦Word上のカーソル位置の部分へテキストを転記
Next i
.Quit '⑧Wordを終了
End With
End Sub
コメントを残す