I want in a dcoument that every pages is a section. It doesnt work. Perhaps someone wants to help me?
The problem it inserts it at the end of the document and not at the start???? I do not know how to solve that problem..
My source code is below.
Dim intTeller As Integer
' browse per pagina
Application.Browser.Target = wdBrowsePage
For intTeller = 1 To ActiveDocument.BuiltInDocumentProperties("Number of Pages")
If ActiveDocument.Sections.Count < intTeller Then
MsgBox "Number of sections: " & ActiveDocument.Sections.Count