Sanity check on a macro requirement.

[karlkras]

I've received a request from my upper management that is wanting the following macro that needs to do the following (it's been a long time since I've worked with vba):

Run a macro that inserts page breaks into a document at every N number of words in the file.
For example, given a word count boundary of 1000 words, starting at the beginning of the file, enumerate through and at every word boundary insert a page break.

I don't see any built in "goto word position" in Word so I'm guessing simply recording a macro to do this isn't possible.



It sounds doable, but just wanted to get an idea of level of difficulty involved and any hurdles (outside of having to refamiliarize myself with the vba development environment) this would impose.

thanks in advanced for any help on this.

[Guessed]

Easy to achieve if you are just going every x words. A bit more complex if you want to find x words then adjust forward or back to a paragraph mark.

Sub Macro1()
  Dim x As Long, lStep As Long
  lStep = 50  'how many words before a page break
  If ActiveDocument.Words.Count > lStep Then
    For x = lStep To ActiveDocument.Words.Count Step lStep
      ActiveDocument.Range.Words(x).InsertAfter Chr(12)
    Next x
  End If
End Sub

[macropod]

Originally Posted by Guessed

Easy to achieve if you are just going every x words. A bit more complex if you want to find x words then adjust forward or back to a paragraph mark.

And rather more complex if you have tables, fields (e.g. tables of contents, cross-references, hyperlinks), content controls, etc. in the document...

Note: Word's idea of a 'word' has nothing to do with grammar.