Documenten samenvoegen

[Jeroenkools]

Ik heb een 100-tal documenten waarbij een laatste pagina toegevoegd moet worden.

Deze laatste pagina heb ik opgeslagen als een ander document.

Nu vraag ik mij af of er een simpele en snelle manier is om deze laatste pagina toe te voegen bij al de documenten.

[Kurtt]

Welke versie van Word gebruikt u? Word 2003, 2007 of 2010?

[Jeroenkools]

Word 2007

[Kurtt]

Ik zou hetvolgende voorstellen voor elk document dat je toevoegt aan een bestaand document.

Doe hetvolgende in elk document:

Druk op Ctrl-End. Je gaat dan automatisch naar de laatste pagina. Ga dan naar het tabblad Invoegen. Aan de rechterkant kiest u voor Object en daarna voor Object... . Ga dan naar het tabblad "Bestand gebruiken" en klik op de knop Bladeren... Kies daar je document dat je wil invoegen. Voila het is ingevoegd in de laatste pagina van je document.

Doe dit voor elk document, dus steeds Ctrl-End drukken zodat automatisch naar laatste pagina gesprongen wordt, en kies dan tabblad Invoegen, dan Object, dan Object..., dan tabblad "Bestand gebruiken", dan op knop Bladeren... om document in te voegen.

Hier zijn enkele printscreens:

[Jeroenkools]

Deze manier had ik ook al gevonden maar ik zocht eigenlijk naar een manier om dit in 1 keer voor de reeks documenten te doen, aangezien het er best veel zijn.

[Kurtt]

Ik vrees dat we dan de programmeer tour op moeten gaan (of via macro's), maar dat is niet zo mijn ding. Wacht reactie af van anderen, die zullen je verder helpen

[Jeroenkools]

Ok, alvast bedankt voor je hulp

[kweezie wabbit]

Ik vrees dat er niet echt een snelle manier is.

Het toevoegen van het document als laatste pagina kan je wel in een macro opnemen maar je zal toch elk document moeten openen om de pagina toe te voegen

[Jeroenkools]

· Sub AppendDoc()

Dim strSourceFile As String

Dim strPath As String

Dim strFile As String

Dim doc As Document

Dim rng As Range

On Error GoTo ErrHandler

' Prompt the user to select a source file

With Application.FileDialog(msoFileDialogFilePicker)

.Title = "Please select the document to be inserted"

If .Show = False Then

MsgBox "You didn't select a document.", vbExclamation

Exit Sub

End If

strSourceFile = .SelectedItems(1)

End With

' Prompt the user to select a folder

With Application.FileDialog(msoFileDialogFolderPicker)

.Title = "Please select the folder to process"

If .Show = False Then

MsgBox "You didn't select a folder.", vbExclamation

Exit Sub

End If

strPath = .SelectedItems(1)

End With

If Right(strPath, 1) <> "\" Then

strPath = strPath & "\"

End If

Application.ScreenUpdating = False

' Loop through the Word documents in the folder

strFile = Dir(strPath & "*.doc*")

Do While strFile <> ""

Set doc = Documents.Open(strPath & strFile)

doc.Content.InsertParagraphAfter

Set rng = doc.Content

rng.Collapse Direction:=wdCollapseEnd

rng.InsertFile FileName:=strSourceFile, Link:=False

doc.Close SaveChanges:=True

strFile = Dir

Loop

ExitHandler:

Application.ScreenUpdating = True

Exit Sub

ErrHandler:

MsgBox Err.Description, vbExclamation

Resume ExitHandler

End Sub

Ik heb deze macro gevonden en hij werkt.

Maar hij zou wat aangepast moeten worden:

- het ingevoegde document moet steeds op een nieuwe pagina beginnen en niet vlak achter de ingevoegde tekst.

- het ingevoegde document moet ook steeds in portrait staan.

Is er iemand die weet hoe ik da macro kan aanpassen?

[kweezie wabbit]

Probeer eens met onderstaande code.

Do While strFile <> ""
   Set doc = Documents.Open(strPath & strFile)
   doc.Content.InsertParagraphAfter
   Set rng = doc.Content
   rng.Collapse Direction:=wdCollapseEnd
[color=red][b]
    rng.InsertBreak Type:=wdSectionBreakNextPage
    With rng.PageSetup
          .Orientation = wdOrientPortrait
          .SectionStart = wdSectionNewPage
     End With[/b][/color]

   rng.InsertFile FileName:=strSourceFile, Link:=False
   doc.Close SaveChanges:=True
   strFile = Dir
 Loop