[英]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.