Overscores

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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.).
 
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
Click to expand...
of statistical terms and overstrike is fairly common (X-
bar. etc.).
 
Marjie said:
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.).
Click to expand...

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
<>>< ><<> ><<> <>>< ><<> <>>< <>>< ><<>
 
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
 
Margie:


there is always the good old fashioned way,,, before the mouse became the
only way to do it..... highlight your area hit "Control D, Alt K," then
enter......
 
This produces strikethrough, not an overbar.

--
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.

Hazel G. said:
Margie:


there is always the good old fashioned way,,, before the mouse became the
only way to do it..... highlight your area hit "Control D, Alt K," then
enter......
Click to expand...
terms and overstrike is fairly common (X-bar. etc.).
 
Back
Top