如何在 word doc 的新页面上明智地添加文本行。即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
或者您可能会自动执行邮件合并。
关于excel - 如何通过excel vba在word doc的新页面上添加文本,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/55428078/