Using a FOR loop, I'm trying to insert a pagebreak after every time I paste something from excel to word using VBA. However, all the page breaks appear BEFORE the pasted values. Also, I'd like to have the values centered in the middle. Can someone help with the code? Below is my code on VBA:
Sub movedatatoMSword()
Dim wApp As Word.Application
Dim wDoc As Word.Document
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet3")
Set wApp = CreateObject("word.application")
wApp.Visible = True
Set wDoc = wApp.Documents.Add
For i = 1 To ws.Range("I4").Value
Sheet3.Range("B4").Copy
With wDoc.Paragraphs(wDoc.Paragraphs.Count).Range
.Paste
.Font.Name = "Ariel"
.Font.Bold = True
.Font.Allcaps = True
.Font.Size = 60
'Page Break
With wApp.Selection
.Collapse Direction:=0
.InsertBreak Type:=7
End With
End With
Next i
End Sub