Excel to Word insert PageBreak after word?

[petars87]

Hi people, need your help
can I modify this code to in range "Ar" find word "Name:" and put PageBreak in Word

  Sub CopyToWord()
     Dim objWord As Object
     Dim objDoc As Object
     Set objWord = CreateObject("Word.Application")
     Set objDoc = objWord.Documents.Add(Template:= _
         "[URL="file://\\XXX\template.docx"]\\XXX\template.docx[/URL]")
         
     Set Ar = Worksheets("Sheet1").Range("A1:F" & Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row)
    
     Ar.Copy
     
     objDoc.Range.Paste
     
    'Set WordTable = objDoc.Tables(1)
    'WordTable.AutoFitBehavior (wdAutoFitWindow)
  
     'objDoc.SaveAs ("C:\Users\stojp\Desktop\MojFajl")
     objWord.Visible = True
     Set objDoc = Nothing
     Set objWord = Nothing
 End Sub

Thank you.

 

[Joe4]

Duplicate: http://www.mrexcel.com/forum/genera...er-questions/981188-excel-word-landscape.html

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread. Per forum rules, posts of a duplicate nature will be locked or deleted (rule #12 here: Forum Rules).