Forcing page breaks in Word

[LuaLua]

This code you given to a person wanting to force page breaks in Excel
whenever the words "Beginning Balance" came up. The code is as follows:

Option Explicit
Sub testme()
Dim myRng As Range
Dim FoundCell As Range
Dim FirstAddress As String
Dim WhatToFind As String

WhatToFind = "Beginning Balance"

With Worksheets("sheet1")
.ResetAllPageBreaks 'remove them all to start
With .Range("a:a")
Set FoundCell = .Find(What:=WhatToFind, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
Lookat:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)

If FoundCell Is Nothing Then
'not found on the sheet
Else
FirstAddress = FoundCell.Address
Do
If FoundCell.Row > 1 Then
.Parent.HPageBreaks.Add Before:=FoundCell
End If
Set FoundCell = .FindNext(FoundCell)
Loop While Not FoundCell Is Nothing _
And FoundCell.Address <> FirstAddress
End If
End With
End With
End Sub

(This puts the pagebreak before the cell containing "beginning balance".)

I was wondering what the changes in the code would be if instead of having a
pagebreak before "beginning balance", the pagebreak would occur whenever "1 "
occured in a MS Word document.
(There is a space after the one).

Thanks for your time,
Saren Balasingham

 

[Bob I]

Make the change where you see "Beginning Balance" in the code.