| |
▼ほびっと さん：
以前、【48152】開くファイルの制御 を質問したことがあり、その知識からですが参考までに･･･
Sub test()
Dim objWord As Object
Dim objWordDoc As Object
Dim WkSht As Worksheet
Dim i As Long
i = 1
Set objWord = CreateObject("Word.Application")
Set objWordDoc = objWord.Documents.Add
objWord.Visible = True
Set WkSht = Workbooks("Book1.xls").Sheets("Sheet1")
Do Until WkSht.Range("A" & i) = ""
WkSht.Range("A" & i).Copy
With objWord.Selection
objWordDoc.Activate
.PasteSpecial Link:=False, DataType:=20, Placement:=20, DisplayAsIcon:=False
.TypeParagraph
i = i + 1
End With 'objWord.Selection
Loop
Set objWord = Nothing
Set objWordDoc = Nothing
Set WkSht = Nothing
End Sub
後は、仕様に合せて適当に手直しして下さい。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
