| |
▼質問者 さん：
テンプレートの文書に、ブックマークを挿入しておいて
開いて、転記、保存
これを繰り返すとよいです。
転記でブックマーク設定は消えてしまうので
テンプレートから都度開けばよいです。
こんな感じです。
Sub test()
Dim wd As Object
Dim p As String
Dim k As Long
Const wdformatxmldocument = 12
p = ThisWorkbook.Path & "\" & "雛形.docx"
Set wd = CreateObject("word.application")
wd.Visible = True
For k = 2 To 3
With wd.documents.Add(p)
.bookmarks("日付").Range.Text = Cells(k, 1).Text
.bookmarks("時間").Range.Text = Cells(k, 2).Text
.bookmarks("住所").Range.Text = Cells(k, 3).Text
.bookmarks("名前").Range.Text = Cells(k, 4).Text
.SaveAs2 ThisWorkbook.Path & "\" & k & ".docx", wdformatxmldocument
.Close
End With
Next
wd.Quit
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
