View Single Post
  #7  
Old November 3rd, 2004, 12:36 PM
Martin
external usenet poster
 
Posts: n/a
Default

Garfield FYI

When i change
DeletedTextMark = wdDeletedTextMarkHidden (in the macro)
to
DeletedTextMark = wdDeletedTextMarkUnderline
the deleted text is undelined, so i guess that this is the line to
change....

I have allso tried this on several pc's so its not the pc.

/Martin


"Martin" wrote in message
...
Hi again

I think i know how to install and run a macro....

this is how it is:

Sub test()

'

' test Macro

' Macro created 11/3/2004 by

'

With Application.Options

.RevisedLinesMark = wdRevisedLinesMarkOutsideBorder

.RevisedLinesColor = wdAuto

.DeletedTextMark = wdDeletedTextMarkHidden

.DeletedTextColor = wdAuto

.InsertedTextMark = wdInsertedTextMarkNone

.InsertedTextColor = wdAuto

.RevisedPropertiesMark = wdRevisedPropertiesMarkNone

.RevisedPropertiesColor = wdAuto



End With

End Sub






"garfield-n-odie" wrote in message
...
It works perfectly for me. In your original post, you did not know how
to install or run the macro... maybe you still do not know? You also
need to turn off "Hidden text" in Tools | Options | View.

Martin wrote:

Hi Garfield

Thanks for your respons, i have tried this... It dont work, thats why i
post this once again.

/Martin

"garfield-n-odie" wrote in message
...

Hi, Martin. See Doug Robbins' reply to your post of 28 May 2004.


Martin wrote:


Hi all

When i use track changes in word 2002 i got a problem.

I want to have left border marked (so other can see that here has been
a
changes) But i dont want other to see the old data.. When i select
accept
all changes, the left border is gone... But if i right click and
choose
accept deletion, the border is still there.. In office 2000 and 2003
this
is very easy to do... Hope some of you got the answer for me...

Thanks in avanced.


I found this macro, and it keeps the outside border, but it strikes
trough instead off deleting.
Can anyone please help ?? is proberly just a line in the macro.


With Application.Options


.RevisedLinesMark = wdRevisedLinesMarkOutsideBorder
.RevisedLinesColor = wdAuto
.DeletedTextMark = wdDeletedTextMarkHidden
.DeletedTextColor = wdAuto
.InsertedTextMark = wdInsertedTextMarkNone
.InsertedTextColor = wdAuto
.RevisedPropertiesMark = wdRevisedPropertiesMarkNone
.RevisedPropertiesColor = wdAuto



BR Martin