[英]How to add text on new page in word doc via excel vba
如何在Word文档的新页面上逐行添加文本。 即,来自excel的每一行将在Word文档的新页面上。
Sub marine()
Dim i As Long, j As Long, fD As Long
Dim objWord As Object, objDoc As Object
With DATA
fD = .Range("A" & .Rows.Count).End(xlUp).Row
If fD = 1 Then MsgBox ("No data on Data worksheet."): Exit Sub
Set objWord = CreateObject(“Word.Application”)
Set objDoc = objWord.Documents.Add
objWord.Visible = True
For i = 2 To fD
'How do I add text row wise on new page in word doc. i.e. each row from excel will be on new page on word document.
Next i
objDoc.SaveAs (ThisWorkbook.Path) '& "\Output.docx")
End With
End Sub
您可以从以下内容开始:
objDoc.Range.Insertafter vbCr & Chr(12) & .Range("A" & i).Text
或者,您可以自动执行邮件合并。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.