How to save multiples files into one

**Ghaleon** · Sep 16 '13, 08:14 PM

I have a lot of archieves .pdf, I'd like to join them into a single archieve.

I'm trying this code:

Code:

MyPath = Replace(strCaminho, "Carta.rtf", "")
MyName = Dir$(MyPath & "*.pdf")
Documents.Add
    
Do While MyName <> ""
  If InStr(MyName, "~") = 0 Then
    selection.InsertFile filename:="""" & MyPath & MyName & """", ConfirmConversions:=False, Link:=False, Attachment:=False
    selection.InsertBreak Type:=wdPageBreak
  End If
  MyName = Dir
Loop

It's apparently working just fine, but I don't know exactly how to save it know hehe... !?