How do I change the color of Strikethrough without changing the color of the text?

One displays non-printing characters, selects the shape, rigth clicks and selects "more layput options", selects horizontal>absolute position>to the right of>character then fiddles with the placement until it it how one likes it to appear.

Hello Greg,

While it was good of you to explain how to "anchor" a Shape, I note that the procedure requires quite a few actions, plus also some "fiddling".

Allow me express my personal dismay at people having to through all that, just in order to "simulate" a colour strikethrough, and only in just one place; a function which most people might reasonably expect Microsoft to provide in a somewhat more sensible manner.

Regards,

Ray333

Ray,

What can I say?  I don't work for MS and I have no control (or opinion) on how, what, when or if they ever decide to devote the resources to provide the feature you seek.

I suppose that I am not like most people as I would ten to one rather Microsoft deliver a Content Control change event.

I think you realize that the answer to the basic question is simply "You can't change the color of the strikethrough font attribute."   

Like you, I'm sure that the national scientic community was a bit dismayed when President Kennedy announced in the early 60's that the United States would put a man on the moon by the end of the decade.  I'm sure they wished that he would have given them the rocket ship ;-)

When faced with a problem sometimes all you can do is in the words of Gunney Highway "adapt, improvise and overcome."

Responders here have provided several methods of doing that.  None are perfect but then neither is the world.

Here is another method (just an automated method of what Tony provided in the first reply):

Public Sub StrikeThrough()

Dim strExpression As String, strStrike As String

Dim lngIndex As Long

Dim oFld As Word.Field

  'Works best with non-proportional fonts.

  strExpression = Selection.Range.Text

  For lngIndex = 1 To Len(strExpression)

    strStrike = strStrike & Chr(150)

  Next lngIndex

  If strExpression <> "" Then

    Set oFld = ActiveDocument.Fields.Add(Range:=Selection.Range, Type:=wdFieldEmpty, _

      Text:="EQ \O (" & strExpression & "," & strStrike & ")", PreserveFormatting:=False)

  End If

  For lngIndex = 1 To Len(oFld.Code.Text)

    If Asc(oFld.Code.Characters(lngIndex)) = 150 Then

      oFld.Code.Characters(lngIndex).Font.Color = wdColorRed

    End If

  Next lngIndex

End Sub

Like the others, it isn't perfect but will work well with non-proportional fonts (courier).  With proportional fonts the line will most likely be too long, but you can easily edit the field code to shorten the line.

Good luck.

Hello Greg,

No criticism of you was implied in my message, and I am grateful for the two good workarounds you have explained. They will, am sure be useful for anyone reading this thread, and for which I also want to thank you.

[EDIT:

I am rather concerned that your workaround of using and anchoring a "Shape", may not in fact be appropriate. What will happen if the user changes the Font, and in particular what if they change the

Font Size, for the affected paragraph or indeed the whole document? I anticipate that the "Shape" will

no longer end at the intended position, leaving text either not struck through that was intended to be

struck through, or alternatively leave text struck through which was never intended to be struck through.]

I believe there is a market demand for colour option strikethrough to be provided.  Whether this may be provided is of course a matter for Microsoft. 

Another thing that might be born in mind is that Microsoft Office is of course a product for which a charge is made, so I hope Microsoft will consider providing colour option strikethrough in future versions.

Regards,

Robert.