Append many documents in a new one

[Nicolas Beaupré]

Hi,
Is there a way in VBA to append documents? (or pages) In Flexpro, I can open an empty document and, with drag and drop, I insert another existing document in the new one. It is added at the end of the open document. How may I do that in VBA?

For example, in my application, I got a lot of small “report_x” document. I want to create a new document named “GlobalReport” wich is the sum of all the others document. After doing this, I’ll be able to edit the pages number of “GlobalReport” and print it alone.

Thanks!

[Nicolas Beaupré]

Hi,
Is there a way in VBA to append documents? (or pages) In Flexpro, I can open an empty document and, with drag and drop, I insert another existing document in the new one. It is added at the end of the open document. How may I do that in VBA?

For example, in my application, I got a lot of small “report_x” document. I want to create a new document named “GlobalReport” wich is the sum of all the others document. After doing this, I’ll be able to edit the pages number of “GlobalReport” and print it alone.

Thanks!

[Bernhard Kantz]

In FlexPro there is no method to append a document to another document.

But there is the possibility to select the shapes of the document. Then you can use the [b]Copy[/b] and the [b]Paste[/b] method.

Example:
[code]
Dim oSourceDoc As Document
Dim oDestDoc As Document
Dim i As Integer

Set oSourceDoc = ActiveDatabase.RootFolder.Object(“Doc1”, fpObjectTypeDocument)
Set oDestDoc = ActiveDatabase.RootFolder.Object(“Doc2”, fpObjectTypeDocument)

Dim oPage As Shapes
Set oPage = oSourceDoc.Pages(1)
For i = 1 To oPage.Count
oSourceDoc.Select
oSourceDoc.Selection.Collapse
oPage.Item(i).Select
oSourceDoc.Selection.Copy
oDestDoc.Select
oDestDoc.Selection.Paste
oDestDoc.Selection.Collapse
Next i
[/code]

support@weisang.com

[Nicolas Beaupré]

Thanks for the code! It works, but I had to add these lines :[code] oSourceDoc.Select
[b]oSourceDoc.Open = True[/b]
oSourceDoc.Selection.Collapse
oPage.Item(i).Select
oSourceDoc.Selection.Copy
oDestDoc.Select
[b]oDestDoc.Open = True[/b]
oDestDoc.Selection.Paste
oDestDoc.Selection.Collapse[/code]
Otherwise, the operations .Collapse and .Paste couldn’t work when the documents are closed.

Also, this code copies the shapes in the first page of my document. Suppose I add a new page in the document [code]Dim oNewPage As Shapes
Set oNewPage = oSourceDoc.pages.Add[/code] How can I select the new page so the shape will be copied in it ?

Thanks

[Bernhard Kantz]

You can use the methods [b]NextPage[/b] and [b]PreviousPage[/b] of a DocObjectSelection object.

[code]
oDestDoc.Selection.PreviousPage
oDestDoc.Selection.NextPage
[/code]

support@weisang.com

[Autor]

Beiträge