insert another document at the end

macropod · #2 05-06-2012, 10:29 PM

You could use code like:

Code:

Sub Demo()
Dim Scn As Section, HdFt As HeaderFooter
With ActiveDocument
  Set Scn = .Sections.Add(Range:=.Range.Characters.Last, Start:=wdSectionNewPage)
  With Scn
      For Each HdFt In Scn.Headers
      HdFt.LinkToPrevious = False
      .Range.Text = vbNullString
    Next
    For Each HdFt In Scn.Footers
      HdFt.LinkToPrevious = False
      .Range.Text = vbNullString
    Next
    .Range.InsertFile FileName:="Filepath & name"
    While .Range.Characters.Last.Previous = vbCr
      .Range.Characters.Last.Previous.Delete
    Wend
  End With
End With
End Sub

Of course, you'll need to change 'Filepath & name' to match your requirements.

PS: Please post macro-related Word questions in the Word VBA forum.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Insert multi page pdf into Word 2010 document	TimTDP	Word	1	04-18-2012 04:22 AM
How to Insert a Clear, Blank page without Lines and Numbers in a Pleading Document	Dirigo	Word	5	09-30-2011 08:08 AM
How to insert a .mov file in Word Document	Jai25	Word	0	02-11-2010 04:40 PM
How to Insert Multi Indexses in a document???	Bahir Barak	Word	1	01-05-2010 04:30 AM
How Can you insert a live hosted picture- in a document? -How can it be done?-Help!!	nationsheet	Word	0	05-15-2009 06:53 PM