Add content on same doc.

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Bala - 07 Sep 2005 17:20 GMT

Hi all,

one of my word doc contain 20 pages. For example, I want to paste the pages
2,5,10 to another document thru vb program. the page nos will vary depends on
users choice. so i using below code. the tmptotal contain no of total pages.
i dont know how to add each pages into same document. currently i can able to
add a seperate a document. the below code i am using currently. anyone give
me idea to solve this.

thanks
bala

code:

For i = 1 To tmptotal
If i = 1 Or i = 4 Or i = 6 Then
objWord.ActiveDocument.Bookmarks("\page").Range.Copy
objwordtarget.Documents.Add.Content.Paste
objwordtarget.Visible = True
End If
objWord.Application.Browser.Next
Next

Reply to this Message

Bala - 07 Sep 2005 17:46 GMT

No Problem. got it. here is the code

For i = 1 To tmptotal
If i = 1 Or i = 4 Or i = 6 Then
objWord.ActiveDocument.Bookmarks("\page").Range.Copy
If i = 1 Then
With objwordtarget
.Documents.Add
End With
End If
With objwordtarget

.Selection.Paste
End With
objwordtarget.Visible = True
End If
objWord.Application.Browser.Next
Next

thanks
bala

> Hi all,
>
[quoted text clipped - 18 lines]
> objWord.Application.Browser.Next
> Next

Reply to this Message