Word - Adding multiple documents & page numbering
I can add documents to create a large document OK with the following code. The problem lies with page numbering. I have an example from Workhorse but I can't get it to work with .Net and word 97. Is this because 97 doesn't support what I'm trying to do. Thanks for any help.
MY CODE
Code:
Dim wa As New Word.Application()
Dim wdSchedule As New Word.Document()
Dim bDone As Boolean
m_sFolder = cVariables.PaymentFolder & "Payment Run No - " & m_iPaymentRunID & "\Schedules\"
Dim oFS As New DirectoryInfo(m_sFolder)
Dim oFile As FileInfo
Dim x As Int32
Try
For Each oFile In oFS.GetFiles("*ClientProperty Schedule*")
If bDone = False Then
sbpPaymentText.Text = "Creating file"
pbPayment.Value = 5
wdSchedule = wa.Documents.Open(oFile.FullName)
wdSchedule.ActiveWindow.Selection.EndKey(Word.WdUnits.wdStory)
bDone = True
Else
sbpPaymentText.Text = "Adding file - " & oFile.Name.ToString
pbPayment.Value = pbPayment.Value + 1
wdSchedule.ActiveWindow.Selection.InsertBreak()
wdSchedule.ActiveWindow.Selection.InsertFile(FileName:=oFile.FullName, Range:="", ConfirmConversions:=False, Link:=False, Attachment:=False)
End If
Next
Catch ex As Exception
MsgBox("Cannot list folders of " & m_sFolder & ":" & ex.ToString)
CType(wdSchedule, Word._Document).Close(Word.WdSaveOptions.wdDoNotSaveChanges)
CType(wa, Word._Application).Quit(Word.WdSaveOptions.wdDoNotSaveChanges)
End Try
CODE FROM WorkHorse
http://www.vbforums.com/showthread.p...ord+insertfile
Code:
' With primary header/footer for last section...
With ActiveDocument _
.Sections(ActiveDocument.Sections.count) _
.Headers(wdHeaderFooterPrimary)
' Don't link to header/footer from previous section.
.LinkToPrevious = False
' Start page numbering for section at 1.
With .PageNumbers
.RestartNumberingAtSection = True
.StartingNumber = 1
End With
End With