Hi people, need your help
can I modify this code to in range "Ar" find word "Name:" and put PageBreak in Word
Thank you.
can I modify this code to in range "Ar" find word "Name:" and put PageBreak in Word
Code:
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.