Universal widow and orphan control

How can I make widow and orphan control apply to an entire (60 page) document without selecting each and every paragraph and then changing widow and orphan control for each separate paragraph?

Hi Box ),
in the newsgroups
you posted:

|| How can I make widow and orphan control apply to an entire (60 page)
|| document without selecting each and every paragraph and then
|| changing widow and orphan control for each separate paragraph?

You can only change widow/orphan control page by page (you can select
mulitple paragraphs in one text box on a page) and apply the setting. You
cannot select the entire story over the 60 pages.

You could also use the VBA Macro writing ability in Publisher and write a
code to do so.

You could also create a Text Style from the very beginning, which you can
apply Widow/Orphan control, which will then be carried out through your
entire publcation.

--
Brian Kvalheim
Microsoft Publisher MVP
http://www.publishermvps.com
~pay it forward~

This posting is provided "AS IS" with no warranties, and
confers no rights.

Hi Box ),
in the newsgroups
you posted:

|| How can I make widow and orphan control apply to an entire (60 page)
|| document without selecting each and every paragraph and then
|| changing widow and orphan control for each separate paragraph?

You can only change widow/orphan control page by page (you can select
mulitple paragraphs in one text box on a page) and apply the setting. You
cannot select the entire story over the 60 pages.

You could also use the VBA Macro writing ability in Publisher and write a
code to do so.

You could also create a Text Style from the very beginning, which you can
apply Widow/Orphan control, which will then be carried out through your
entire publcation.

--
Brian Kvalheim
Microsoft Publisher MVP
http://www.publishermvps.com
~pay it forward~

This posting is provided "AS IS" with no warranties, and
confers no rights.

Hi Box ),
in the newsgroups
you posted:

|| How can I make widow and orphan control apply to an entire (60 page)
|| document without selecting each and every paragraph and then
|| changing widow and orphan control for each separate paragraph?

You can only change widow/orphan control page by page (you can select
mulitple paragraphs in one text box on a page) and apply the setting. You
cannot select the entire story over the 60 pages.

You could also use the VBA Macro writing ability in Publisher and write a
code to do so.

You could also create a Text Style from the very beginning, which you can
apply Widow/Orphan control, which will then be carried out through your
entire publcation.

--
Brian Kvalheim
Microsoft Publisher MVP
http://www.publishermvps.com
~pay it forward~

This posting is provided "AS IS" with no warranties, and
confers no rights.

A small child turns to Ed, and exclaims: "Look! Look! A post from Brian
Kvalheim - [MSFT MVP] !"...
You could also use the VBA Macro writing ability in Publisher and
write a code to do so.

Close all running instances of Publisher.
Open one instance of Publisher.
Open your document.
Go to Tools Macros Visual Basic Editor
In the left pane, click all the [+]s that you can see, until you see
ThisDocument.
Double-click ThisDocument.
Into the window that appears, paste the following code

====
Sub Jim()
Dim aPage As Page
Dim aShape As Shape
Dim aparagraph
Dim Bob
Bob = MsgBox("Click Yes to turn widow control ON globally throughout the
current document." & vbCrLf & "Click No to turn widow control OFF globally
throughout the current document." & vbCr & "Click Cancel to cancel and not
change widow/orphan control globally.", vbYesNoCancel)
If Bob = vbCancel Then Exit Sub
For Each aPage In ThisDocument.Pages
For Each aShape In aPage
If aShape.Type = pbTextFrame Then
aShape.TextFrame.TextRange.Select
If Bob = vbYes Then
aShape.TextFrame.TextRange.ParagraphFormat.WidowCo ntrol
= msoTrue
Else
aShape.TextFrame.TextRange.ParagraphFormat.WidowCo ntrol
= msoFalse
End If
End If
Next
Next
End Sub
====

(excluding the ==== at either side)
Now, in the "Immediate" window below the area where you pasted my code, type
"Jim" (without the quotes), and press Return.
Answer the question that appears on your screen.

Any problems, post them here and I'll try to fix them.

Less hacky solution arriving in a few hours maybe.

--
Ed Bennett - MVP Microsoft Publisher
http://www.mvps.org/the_nerd/
Before reading this message, view the disclaimer:
http://mvps.org/the_nerd/disclaim.htm

A small child turns to Ed, and exclaims: "Look! Look! A post from Brian
Kvalheim - [MSFT MVP] !"...
You could also use the VBA Macro writing ability in Publisher and
write a code to do so.

Close all running instances of Publisher.
Open one instance of Publisher.
Open your document.
Go to Tools Macros Visual Basic Editor
In the left pane, click all the [+]s that you can see, until you see
ThisDocument.
Double-click ThisDocument.
Into the window that appears, paste the following code

====
Sub Jim()
Dim aPage As Page
Dim aShape As Shape
Dim aparagraph
Dim Bob
Bob = MsgBox("Click Yes to turn widow control ON globally throughout the
current document." & vbCrLf & "Click No to turn widow control OFF globally
throughout the current document." & vbCr & "Click Cancel to cancel and not
change widow/orphan control globally.", vbYesNoCancel)
If Bob = vbCancel Then Exit Sub
For Each aPage In ThisDocument.Pages
For Each aShape In aPage
If aShape.Type = pbTextFrame Then
aShape.TextFrame.TextRange.Select
If Bob = vbYes Then
aShape.TextFrame.TextRange.ParagraphFormat.WidowCo ntrol
= msoTrue
Else
aShape.TextFrame.TextRange.ParagraphFormat.WidowCo ntrol
= msoFalse
End If
End If
Next
Next
End Sub
====

(excluding the ==== at either side)
Now, in the "Immediate" window below the area where you pasted my code, type
"Jim" (without the quotes), and press Return.
Answer the question that appears on your screen.

Any problems, post them here and I'll try to fix them.

Less hacky solution arriving in a few hours maybe.

--
Ed Bennett - MVP Microsoft Publisher
http://www.mvps.org/the_nerd/
Before reading this message, view the disclaimer:
http://mvps.org/the_nerd/disclaim.htm

A small child turns to Ed, and exclaims: "Look! Look! A post from Brian
Kvalheim - [MSFT MVP] !"...
You could also use the VBA Macro writing ability in Publisher and
write a code to do so.

Close all running instances of Publisher.
Open one instance of Publisher.
Open your document.
Go to Tools Macros Visual Basic Editor
In the left pane, click all the [+]s that you can see, until you see
ThisDocument.
Double-click ThisDocument.
Into the window that appears, paste the following code

====
Sub Jim()
Dim aPage As Page
Dim aShape As Shape
Dim aparagraph
Dim Bob
Bob = MsgBox("Click Yes to turn widow control ON globally throughout the
current document." & vbCrLf & "Click No to turn widow control OFF globally
throughout the current document." & vbCr & "Click Cancel to cancel and not
change widow/orphan control globally.", vbYesNoCancel)
If Bob = vbCancel Then Exit Sub
For Each aPage In ThisDocument.Pages
For Each aShape In aPage
If aShape.Type = pbTextFrame Then
aShape.TextFrame.TextRange.Select
If Bob = vbYes Then
aShape.TextFrame.TextRange.ParagraphFormat.WidowCo ntrol
= msoTrue
Else
aShape.TextFrame.TextRange.ParagraphFormat.WidowCo ntrol
= msoFalse
End If
End If
Next
Next
End Sub
====

(excluding the ==== at either side)
Now, in the "Immediate" window below the area where you pasted my code, type
"Jim" (without the quotes), and press Return.
Answer the question that appears on your screen.

Any problems, post them here and I'll try to fix them.

Less hacky solution arriving in a few hours maybe.

--
Ed Bennett - MVP Microsoft Publisher
http://www.mvps.org/the_nerd/
Before reading this message, view the disclaimer:
http://mvps.org/the_nerd/disclaim.htm

Hi Ed Bennett ),
in the newsgroups
you posted:

|| A small child turns to Ed, and exclaims: "Look! Look! A post from
|| Brian Kvalheim - [MSFT MVP] !"...
||| You could also use the VBA Macro writing ability in Publisher and
||| write a code to do so.
||
|| Close all running instances of Publisher.
|| Open one instance of Publisher.
|| Open your document.
|| Go to Tools Macros Visual Basic Editor
|| In the left pane, click all the [+]s that you can see, until you see
|| ThisDocument.
|| Double-click ThisDocument.
|| Into the window that appears, paste the following code
||
|| ====
|| Sub Jim()
|| Dim aPage As Page
|| Dim aShape As Shape
|| Dim aparagraph
|| Dim Bob
|| Bob = MsgBox("Click Yes to turn widow control ON globally
|| throughout the current document." & vbCrLf & "Click No to turn widow
|| control OFF globally throughout the current document." & vbCr &
|| "Click Cancel to cancel and not change widow/orphan control
|| globally.", vbYesNoCancel) If Bob = vbCancel Then Exit Sub
|| For Each aPage In ThisDocument.Pages
|| For Each aShape In aPage
|| If aShape.Type = pbTextFrame Then
|| aShape.TextFrame.TextRange.Select
|| If Bob = vbYes Then
||
|| aShape.TextFrame.TextRange.ParagraphFormat.WidowCo ntrol = msoTrue
|| Else
||
|| aShape.TextFrame.TextRange.ParagraphFormat.WidowCo ntrol = msoFalse
|| End If
|| End If
|| Next
|| Next
|| End Sub
|| ====
||
|| (excluding the ==== at either side)
|| Now, in the "Immediate" window below the area where you pasted my
|| code, type "Jim" (without the quotes), and press Return.
|| Answer the question that appears on your screen.
||
|| Any problems, post them here and I'll try to fix them.
||
|| Less hacky solution arriving in a few hours maybe.

Ed, I love you man! lol
--
Brian Kvalheim
Microsoft Publisher MVP
http://www.publishermvps.com
~pay it forward~

This posting is provided "AS IS" with no warranties, and
confers no rights.

A small child turns to Ed, and exclaims: "Look! Look! A post from Ed
Bennett !"...
Into the window that appears, paste the following code

Replace that code with...

====
Sub Jim()
Dim aPage As Page
Dim aShape As Shape
Dim aparagraph
Dim Bob
Bob = MsgBox("Click Yes to turn widow control ON globally throughout the
current document." & vbCrLf & "Click No to turn widow control OFF globally
throughout the current document." & vbCr & "Click Cancel to cancel and not
change widow/orphan control globally.", vbYesNoCancel)
If Bob = vbCancel Then Exit Sub
For Each aPage In ThisDocument.Pages
For Each aShape In aPage.Shapes
If aShape.Type = pbTextFrame Then
aShape.TextFrame.TextRange.Select
If Bob = vbYes Then
aShape.TextFrame.TextRange.ParagraphFormat.WidowCo ntrol
_
= msoTrue
Else
aShape.TextFrame.TextRange.ParagraphFormat.WidowCo ntrol
_
= msoFalse
End If
End If
Next
Next
End Sub
====

--
Ed Bennett - MVP Microsoft Publisher
http://www.mvps.org/the_nerd/
Before reading this message, view the disclaimer:
http://mvps.org/the_nerd/disclaim.htm

A small child turns to Ed, and exclaims: "Look! Look! A post from Ed
Bennett !"...
Close all running instances of Publisher.
Open one instance of Publisher.

Or if you don't want to get coding with it, you can go here to download an
add-in:
http://www.publishermvps.com/Default.aspx?tabid=43

--
Ed Bennett - MVP Microsoft Publisher
http://www.mvps.org/the_nerd/
Before reading this message, view the disclaimer:
http://mvps.org/the_nerd/disclaim.htm