Overscores

[Marjie]

Is there any way to do an overscore in Word? We use a lot of statistical terms and overstrike is fairly common (X-bar. etc.).

 

[Guest]

By overscore do you mean a line above the letter or a line
through it (strikethrough)? If you mean the latter, it is
the font formatting. Format > Font > Font

-----Original Message-----
Is there any way to do an overscore in Word? We use a lot

of statistical terms and overstrike is fairly common (X-
bar. etc.).

 

[Graham Mayor]

Is there any way to do an overscore in Word? We use a lot of
statistical terms and overstrike is fairly common (X-bar. etc.).

You can do this quite simply using an EQ field to overstrike two
characters - in this case x and ALT+0175
eg {EQ \O(x,¯)}

You can save the ones you use a lot as either autotexts or autocorrect
entries.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>>< ><<>
Graham Mayor - Word MVP

Web site www.gmayor.com
Word MVP web site www.mvps.org/word
<>>< ><<> ><<> <>>< ><<> <>>< <>>< ><<>

 

[Peter Hewett]

Hi All

If it's of interest here's a macro to overscore any selected text.. Just a
warning if you overscore lot of text the overscores may be longer than the text.
This is because the fonts are proportional and of course "i" takes up less width
than "w". But the macro inserts one overscore for each character present.

Just attach it to a toolbar button or keyboard shortcut if it's useful:

Public Sub Overline()
Dim rngTextToOverline As Word.Range
Dim fldNew As Word.Field
Dim strText As String
Dim strCode As String
Dim lngTextLen As Long

' If the selection object is not a block of text
' select all text to the left until we hit a space
Set rngTextToOverline = Selection.Range
If Selection.Type = wdSelectionIP Then
rngTextToOverline.MoveStart wdWord, -1
End If

strText = rngTextToOverline.Text
lngTextLen = Len(strText)
If lngTextLen = 0 Then Exit Sub

' Build the equation field
strCode = "EQ \o(" & strText & "," & String$(lngTextLen, 175) & ")"
Set fldNew = Selection.Fields.Add(rngTextToOverline, wdFieldEmpty, _
"", False)

' Do it this way otherwise the space normally present before the "}"
' causes Word to display an extra space after the overlined word
fldNew.Code.TextRetrievalMode.IncludeFieldCodes = True
fldNew.Code.Text = strCode
fldNew.Code.TextRetrievalMode.IncludeFieldCodes = False
End Sub

HTH + Cheers - Peter