Inline/Balloon revisions thru VBA

[Christine]

I've created a button that I want to toggle the way
tracked changes are displayed from inline to balloon or
from balloon to inline. The code below is only toggling
changes that result from updated fields. Any idea what
I'm doing wrong?

Private Sub toggle_Click()
With ActiveWindow.View
If .RevisionsMode = wdInLineRevisions Then
.RevisionsMode = wdBalloonRevisions
Else
.RevisionsMode = wdInLineRevisions
End If
End With
End Sub

Thanks in advance!

Christine

 

[Cindy M -WordMVP-]

Hi Christine,

I notice this is set to "Private Sub", so do you mean a
button on a UserForm? If not, could you specify where the
button is, how it's used, and in what state the document is
in when it's clicked?

FWIW, when I run the macro it does affect how the ALL
revisions are displayed. (I'm looking at it in Word 2003)

I've created a button that I want to toggle the way
tracked changes are displayed from inline to balloon or
from balloon to inline. The code below is only toggling
changes that result from updated fields. Any idea what
I'm doing wrong?

Private Sub toggle_Click()
With ActiveWindow.View
If .RevisionsMode = wdInLineRevisions Then
.RevisionsMode = wdBalloonRevisions
Else
.RevisionsMode = wdInLineRevisions
End If
End With
End Sub

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update
Sep 30 2003)
http://www.mvps.org/word

This reply is posted in the Newsgroup; please post any
follow question or reply in the newsgroup and not by e-mail