G
Guest
On opening Word files with tracked changes, they always open in "Final Showing Markup" display. How can I set Word so that it always opens these files in "Final" display?
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
I
Ian Baird
This is a default setting within Word 2002, 2003. To workaround this you
can create a Com Addin using the following code as a sample.
WARNING: ANY USE BY YOU OF THE CODE PROVIDED IN THIS EXAMPLE IS
'AT YOUR OWN RISK. Microsoft provides this macro code "as is" without
warranty of
'any kind, either express or implied, including but not limited to the
implied
warranties of 'merchantability and/or fitness for a particular purpose.
The Code Sample:
Connector
Dim myWord As New Class1
Private Sub AddinInstance_OnConnection(ByVal Application As Object, ByVal
ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As
Object, custom() As Variant)
If Application.Name = "Microsoft Word" Then
If Left(Application.Build, 2) = "10" Then
Set myWord.myApp = Word.Application
End If
End If
End Sub
Private Sub AddinInstance_OnDisconnection(ByVal RemoveMode As
AddInDesignerObjects.ext_DisconnectMode, custom() As Variant)
Set myWord = Nothing
End Sub
CLASS Module:
Public WithEvents myApp As Word.Application
Private Sub myApp_DocumentOpen(ByVal Doc As Word.Document)
With ActiveWindow.View
.ShowRevisionsAndComments = False
.RevisionsView = wdRevisionsViewFinal
End With
End Sub
Private Sub myApp_NewDocument(ByVal Doc As Word.Document)
With ActiveWindow.View
.ShowRevisionsAndComments = False
.RevisionsView = wdRevisionsViewFinal
End With
End Sub
--------------------
| Thread-Topic: Track changes
| thread-index: AcQLsNpyfCcnV4asQyCM1Dlvd+reiA==
| X-Tomcat-NG: microsoft.public.word.newusers
| From: =?Utf-8?B?UGV0ZSBSb2duZXNz?= <[email protected]>
| Subject: Track changes
| Date: Tue, 16 Mar 2004 15:46:08 -0800
| Lines: 1
| Message-ID: <[email protected]>
| MIME-Version: 1.0
| Content-Type: text/plain;
| charset="Utf-8"
| Content-Transfer-Encoding: 7bit
| X-Newsreader: Microsoft CDO for Windows 2000
| Content-Class: urn:content-classes:message
| Importance: normal
| Priority: normal
| X-MimeOLE: Produced By Microsoft MimeOLE V6.00.3790.0
| Newsgroups: microsoft.public.word.newusers
| Path: cpmsftngxa06.phx.gbl
| Xref: cpmsftngxa06.phx.gbl microsoft.public.word.newusers:65130
| NNTP-Posting-Host: tk2msftcmty1.phx.gbl 10.40.1.180
| X-Tomcat-NG: microsoft.public.word.newusers
|
| On opening Word files with tracked changes, they always open in "Final
Showing Markup" display. How can I set Word so that it always opens these
files in "Final" display?
|
Regards,
Ian Baird
Microsoft PSS
This posting is provided 'AS IS' with no warranties and confers no rights.
Please do not send email directly to this alias. This alias is for
newsgroup purposes only.
can create a Com Addin using the following code as a sample.
WARNING: ANY USE BY YOU OF THE CODE PROVIDED IN THIS EXAMPLE IS
'AT YOUR OWN RISK. Microsoft provides this macro code "as is" without
warranty of
'any kind, either express or implied, including but not limited to the
implied
warranties of 'merchantability and/or fitness for a particular purpose.
The Code Sample:
Connector
Dim myWord As New Class1
Private Sub AddinInstance_OnConnection(ByVal Application As Object, ByVal
ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As
Object, custom() As Variant)
If Application.Name = "Microsoft Word" Then
If Left(Application.Build, 2) = "10" Then
Set myWord.myApp = Word.Application
End If
End If
End Sub
Private Sub AddinInstance_OnDisconnection(ByVal RemoveMode As
AddInDesignerObjects.ext_DisconnectMode, custom() As Variant)
Set myWord = Nothing
End Sub
CLASS Module:
Public WithEvents myApp As Word.Application
Private Sub myApp_DocumentOpen(ByVal Doc As Word.Document)
With ActiveWindow.View
.ShowRevisionsAndComments = False
.RevisionsView = wdRevisionsViewFinal
End With
End Sub
Private Sub myApp_NewDocument(ByVal Doc As Word.Document)
With ActiveWindow.View
.ShowRevisionsAndComments = False
.RevisionsView = wdRevisionsViewFinal
End With
End Sub
--------------------
| Thread-Topic: Track changes
| thread-index: AcQLsNpyfCcnV4asQyCM1Dlvd+reiA==
| X-Tomcat-NG: microsoft.public.word.newusers
| From: =?Utf-8?B?UGV0ZSBSb2duZXNz?= <[email protected]>
| Subject: Track changes
| Date: Tue, 16 Mar 2004 15:46:08 -0800
| Lines: 1
| Message-ID: <[email protected]>
| MIME-Version: 1.0
| Content-Type: text/plain;
| charset="Utf-8"
| Content-Transfer-Encoding: 7bit
| X-Newsreader: Microsoft CDO for Windows 2000
| Content-Class: urn:content-classes:message
| Importance: normal
| Priority: normal
| X-MimeOLE: Produced By Microsoft MimeOLE V6.00.3790.0
| Newsgroups: microsoft.public.word.newusers
| Path: cpmsftngxa06.phx.gbl
| Xref: cpmsftngxa06.phx.gbl microsoft.public.word.newusers:65130
| NNTP-Posting-Host: tk2msftcmty1.phx.gbl 10.40.1.180
| X-Tomcat-NG: microsoft.public.word.newusers
|
| On opening Word files with tracked changes, they always open in "Final
Showing Markup" display. How can I set Word so that it always opens these
files in "Final" display?
|
Regards,
Ian Baird
Microsoft PSS
This posting is provided 'AS IS' with no warranties and confers no rights.
Please do not send email directly to this alias. This alias is for
newsgroup purposes only.
S
Suzanne S. Barnhill
In Word 2003, you can clear the check box for "Make hidden markup visible
when opening or saving" on the Security tab of Tools | Options.
--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.
when opening or saving" on the Security tab of Tools | Options.
--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.