Sequence of Writing to Word document

[Raj20091]

Hello,
I take screenshots and write them to word documents. When I add the second screenshot it is added in the first page and the image in the first page is moved to the second page. Is there a way to add an image at in the second page ? In other words I want to add new pages in Word at the bottom of the current page (not on the top)

Code:

Dim Wrd Dim WrdDoc Const Wrdalignpgraphleft=1 Set Wrd=CreateObject("Word.Application") Const wdOrientLandscape = 1 Wrd.Visible=False Set WrdDoc=Wrd.Documents.Open (WordDocumentName , False) Set Selection = Wrd.Selection Selection.TypeText Comment & " -- Test Executed : "&NOW Selection.TypeParagraph WrdDoc.Range.Select WrdDoc.Range.Select With Wrd.ActiveDocument.PageSetup .Orientation = wdOrientLandscape .TopMargin = Wrd.InchesToPoints(0.92) .BottomMargin = Wrd.InchesToPoints(0.92) .LeftMargin = Wrd.InchesToPoints(0.30) .RightMargin = Wrd.InchesToPoints(0.5) .PageWidth = Wrd.InchesToPoints(12) .PageHeight = Wrd.InchesToPoints(10) End With Set img= WrdDoc.InlineShapes.AddPicture(ConfirmationBMP, True) img.Width=img.Width*1 img.Height=img.Height*1 img.range.paragraphformat.Alignment=Wrdalignpgraphcenter WrdDoc.Save WrdDoc.close Wrd.Quit Set Wrd=nothing Set WrdDoc=nothing Set WrdDocsel=nothing Set img=nothing

Thanks,
Raj

[Saket]

after each time when you write in the doc you can insert a pagebreak there

Code:

Const wdPageBreak = 7 Selection.InsertBreak(wdPageBreak)

does this help?

[Raj20091]

Saket,
Thanks for the suggestion. The state creates a page break, but dose not accomplish the desired result.

Thanks,
Raj