any way to load and view doc or docx or ppt or pptx just 2 o 3 pages in a form?

hi,i want load or view word or powerpoint(doc or docx nad ppt or pptx ) in a form and just i need page 1..3 or page1..2 in from word document loaded or slide1 ..3 or slide 1..2 from powerpoint documents.
i tested with office viewer activex or ole object but all pages loaded.how can fix this possible?
maybe i need load all pages and save page from 1 to 3 in another path and load? (if yes how?)

for a word document if you open in background, you can move goto the end of the 2nd (or whatever) page then copy up to the selection into a temporary document and save, i presume similar could be done in powerpoint, but as i do not have powerpoint i can not give an example

Code:

---

Dim doc As object, rng As object, newdoc As object
Set app = createobject("word.application")
Set doc = app.Documents.Open("somepath\filename")
Set rng = doc.Content
doc.GoTo wdGoToPage, wdGoToAbsolute, 3  ' start of 3rd page
rng.End = Selection.Start - 2    ' - 2 characters to remove previous page break, may only need to be 1
rng.Copy
Set newdoc = Documents.Add
newdoc.Range.PasteSpecial
newdoc.SaveAs "somepath\tmpfilename"
doc.close false
newdoc.close false
app.quit

---

this is partially tested, to save only the first 2 pages, change filenames to suit, do houskeeping on objects as required

Quote:

---

Originally Posted by westconn1

for a word document if you open in background, you can move goto the end of the 2nd (or whatever) page then copy up to the selection into a temporary document and save, i presume similar could be done in powerpoint, but as i do not have powerpoint i can not give an example

Code:

---

Dim doc As object, rng As object, newdoc As object
Set app = createobject("word.application")
Set doc = app.Documents.Open("somepath\filename")
Set rng = doc.Content
doc.GoTo wdGoToPage, wdGoToAbsolute, 3  ' start of 3rd page
rng.End = Selection.Start - 2    ' - 2 characters to remove previous page break, may only need to be 1
rng.Copy
Set newdoc = Documents.Add
newdoc.Range.PasteSpecial
newdoc.SaveAs "somepath\tmpfilename"
doc.close false
newdoc.close false
app.quit

---

this is partially tested, to save only the first 2 pages, change filenames to suit, do houskeeping on objects as required

---

i run your source but have some problem
1. i wanted show 2 page or 3 page from word ore powerpoint in a form like this :
this is my ocx created by myself but i have problem with load just 3 page(in this image i loaded all pages from powerpoint or word 2003 or 2007) :
Attachment 163341
2. i runed your source code but have been error (image attached) :
app error because was been vb command (app.path and like this) so i renamed to app1 and next error is :
Attachment 163339
this command have error :

Code:

---

rng.copy

---

my question is about load and show on form without open office application.

You might want to look at using the Preview Handler. I'm not sure exactly how many pages it shows for documents (my docx previewer is broken), IIRC it's somewhere between 1 and 5, but for Excel it's showing the first few pages and powerpoint the 1st, 2nd, and last slide. This does require that Office be installed, but doesn't launch the program.

[VB6] IPreviewHandler: Show non-image file previews from any reg'd preview handler (uses oleexp.tlb + the mIID.bas file in the zip, find that here)
(Sample will run on XP if you replace the file selection method, but does that screen shot come from an even older version? This method only works on XP and newer)

try changing this line to fix the error

Code:

---

rng.End = app.Selection.Start - 2    ' - 2 characters to remove previous page break, may only need to be 1

---

it was a bad example to use app as a variable, wrdapp would have much been better

Quote:

---

without open office application.

---

while it does open the office application, it does not need to be seen by the user

Quote:

---

Originally Posted by westconn1

try changing this line to fix the error

Code:

---

rng.End = app.Selection.Start - 2    ' - 2 characters to remove previous page break, may only need to be 1

---

it was a bad example to use app as a variable, wrdapp would have much been better

while it does open the office application, it does not need to be seen by the user

---

again same error and rng.copy error too.

and i writed these codes :

Code:

---

Private Sub Command1_Click()
'    Dim doc As Object
    Dim doc As New Word.Document
'    Dim rng As Object
    Dim rng As Word.Range
'    Dim newdoc As Object
    Dim newdoc As New Document
    Dim app1 As New Word.Application
'    Set app1 = CreateObject("word.application")
    Set doc = app1.Documents.Open(App.Path & "\demo.docx")
    Set rng = doc.Content
    doc.GoTo(wdGoToPage, wdGoToAbsolute, 3).Select  ' start of 3rd page
    rng.End = Selection.Start - 2    ' - 2 characters to remove previous page break, may only need to be 1
'    rng.CopyAsPicture
    rng.Copy
    Set newdoc = Documents.Add
    newdoc.Range.PasteSpecial
    newdoc.SaveAs App.Path & "\demosave.docx"
    doc.Close False
    newdoc.Close False
    app1.Quit
End Sub

Private Sub Command2_Click()
    Dim doc As New Word.Document
    Dim rng As Word.Range
    Dim newdoc As New Document
    Dim app1 As New Word.Application
    Set doc = app1.Documents.Open(App.Path & "\demo.docx")
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=1
Set rng = Selection.Range
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=3
rng.End = Selection.Bookmarks("\Page").Range.End - 1
rng.Select
rng.Copy

Set newdoc = Documents.Add
newdoc.Range.PasteSpecial
newdoc.SaveAs App.Path & "\demosave.docx"
doc.Close False
newdoc.Close False
app1.Quit
MsgBox "done"
End Sub

---

why sometimes worked good and simetime show error like this :

Attachment 163371
i want just click on command1 or command2 and save 3 pages of my word to another word file without open office word application and if i click again on command 1 or command2 work again!!!!