E.M. was telling us:
E.M. nous racontait que :
X-No-Archive
I am trying to incorporate into a Word macro the setting "Printing
(with balloons), Paper orientation= Auto", the option that you can
check in the Reviewing Toolbar, Show, Options, but it is an action
that does not get registered with the macro recorder. How can I do
that with a Word macro?
First make sure that balloons are on, then, it is good practice to return
the Word environment to the user the way it was before the macro ran.
So, keeping in mind these two points, here is a sample:
'_______________________________________
'To save user settings
Dim lngUserRevisionMode As Long
Dim lngUserBallonPrintOrient As Long
lngUserRevisionMode = ActiveWindow.View.RevisionsMode
lngUserBallonPrintOrient = Options.RevisionsBalloonPrintOrientation
'Change user settings
ActiveWindow.View.RevisionsMode = wdBalloonRevisions
Options.RevisionsBalloonPrintOrientation = _
wdBalloonPrintOrientationAuto
'Restore user settings
ActiveWindow.View.RevisionsMode = lngUserRevisionMode
Options.RevisionsBalloonPrintOrientation = lngUserBallonPrintOrient
'_______________________________________
By the way, my recorder did record everything:
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 3/16/2006 by Jean-Guy Marcil
'
With Options
.InsertedTextMark = wdInsertedTextMarkUnderline
.InsertedTextColor = wdByAuthor
.DeletedTextMark = wdDeletedTextMarkStrikeThrough
.DeletedTextColor = wdByAuthor
.RevisedPropertiesMark = wdRevisedPropertiesMarkNone
.RevisedPropertiesColor = wdByAuthor
.RevisedLinesMark = wdRevisedLinesMarkOutsideBorder
.RevisedLinesColor = wdAuto
.CommentsColor = wdByAuthor
.RevisionsBalloonPrintOrientation =
wdBalloonPrintOrientationPreserve
End With
With ActiveWindow.View
.RevisionsMode = wdBalloonRevisions
.RevisionsBalloonShowConnectingLines = True
.RevisionsBalloonSide = wdRightMargin
.RevisionsBalloonWidthType = wdBalloonWidthPoints
.RevisionsBalloonWidth = CentimetersToPoints(5.5)
End With
End Sub
--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
(e-mail address removed)
Word MVP site:
http://www.word.mvps.org