How to insert {sp] or [sic]

  • Thread starter Thread starter Justlearning
  • Start date Start date
J

Justlearning

When doing spell check I come across words that I need to research, and thus
do not want to either "ignore", "change," or "add to dictionary."

Is there a way to programmatically insert [sp] or [sic] in those cases?
 
You can't alter the Spell Check dialog to add that functionality if that's
what you mean, but you can click in the doc to enter the notation then click
back in the Spell Check dialog to resume.

Those markings can be added as AutoCorrect or AutoText items or you could
even create macros & assign keystrokes to them or add them as buttons on a
toolbar (depending on version). To my way of thinking, though, that's
overkill for just the matter of entering several characters - personally,
I'd just go with the "click 'n' type" approach :-)

I don't know of any way to proceed with the Spell Check other than to
correct, Ignore or Add, but if you Ignore you can later use the Spelling &
Grammar Options to reset so those items will be caught.

HTH |:>)
Bob Jones
[MVP] Office:Mac
 
As Bob suggests there is no automatic way to do this, but you could add a
couple of macros to a toolbar and with the cursor in the offending word, a
click on the macro will add [sic] or [sp] immediately after that word e.g.

Sub AddSIC()
Dim oRng As Range
Set oRng = Selection.Words(1)
If Right(oRng, 1) = Chr(32) Then
oRng.End = oRng.End - 1
End If
oRng.InsertAfter "[sic]"
End Sub

http://www.gmayor.com/installing_macro.htm

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

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
 
Thanks so much! I'll give this a try.
--
Justlearning


Graham Mayor said:
As Bob suggests there is no automatic way to do this, but you could add a
couple of macros to a toolbar and with the cursor in the offending word, a
click on the macro will add [sic] or [sp] immediately after that word e.g.

Sub AddSIC()
Dim oRng As Range
Set oRng = Selection.Words(1)
If Right(oRng, 1) = Chr(32) Then
oRng.End = oRng.End - 1
End If
oRng.InsertAfter "[sic]"
End Sub

http://www.gmayor.com/installing_macro.htm

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

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

When doing spell check I come across words that I need to research,
and thus do not want to either "ignore", "change," or "add to
dictionary."

Is there a way to programmatically insert [sp] or [sic] in those
cases?
Click to expand...
Click to expand...
 
Back
Top