You could use an EQ field, but the problem that you are going to encounter
with proportionally spaced fonts is that of determining how many Xs to use
for a given piece of text as clearly x takes up more space than (say) i. The
longer the string, the greater the discrepancy is likely to be. The best you
are likely to achieve without manual adjustment is to use a macro e.g.
Dim oRng As Range
Dim i As Integer
Dim xStr As String, sAsk As String
Set oRng = Selection.Range
xStr = ""
For i = 1 To oRng.Characters.Count
xStr = xStr & "x"
Next i
sAsk = MsgBox("Click Yes to over-write the selected text." & vbCr & _
"Click No to replace selected text", vbYesNoCancel, "Overstrike")
Select Case sAsk
Case vbYes
oRng.Fields.Add oRng, wdFieldFormula, _
"\o (" & oRng.Text & Chr(44) & xStr & ")", _
False
Case vbNo
oRng.Text = xStr
Case Else
Exit Sub
End Select
http://www.gmayor.com/installing_macro.htm
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
My web site
www.gmayor.com
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
