Preventing hyphenation of a word (2000)

Topic

New Reply

I have a word that is really an acronym (TAWSObj). I’ve got automatic hyphenation on. Word is reading this as a word and is hyphenating it. Is there a way to prevent hyphenation of just this word?

Reply | Quote

Replies

If you select the word, then select Tools | Language | Set Language… and tick “Do not check spelling or grammar”, the word will not be hyphenated.

Reply | Quote

Very useful! Thank you.

BUT is there any way short of writing a macro and running it on my documents to keep EVERY instance of a particular word in that document intact? Example: If my company’s name was Somewhere and I never wanted to see Some- where, is there any way to “paint” that word with a never-hyphenate-me-ever brush?

Thanks in advance for any help!

ksalazar, proposal drone

Reply | Quote

Try the following:
– Select Edit | Replace…
– Type the word you want to “protect” in the Find what box.
– Type ^& in the Replace with box (this is the code for the find text, whatever that is)
– Click the More button.
– Click the Format dropdown button and select Language…
– Tick the check box “Do not check spelling or grammar”.
– Click OK.
– Click Replace All.

Reply | Quote

I know that you said “short of writing a macro”, but how about using a Macro I have already written

I have this attached to a toolbar button, and use it by selecting one instance of the name or other text I want to be set to No Proofing and then clicking the toolbar button. It sets the current selection to “No Proofing” and then, if the selection is reasonably short, replaces all other occurences of the same phrase.

StuartR

Public Sub NoProofing()
Dim OldText As String

OldText = Trim(Selection.Range.Text)

If OldText "" Then
Selection.LanguageID = wdNoProofing
If Selection.Words.Count < 4 Or Selection.Characters.Count < 25 Then
With ActiveDocument.Content.Find
.ClearFormatting
.Replacement.ClearFormatting
.Replacement.LanguageID = wdNoProofing
.Text = Selection.Range.Text
.Replacement.Text = "^&"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll
.Replacement.ClearFormatting
End With
End If
End If
End Sub


Reply | Quote

Thank you both Hans and Stuart. Hans’ solution works for the Crisis du Jour. Stuart’s will take care of Crises To Come. You’ve saved me yet again.

Quivering in gratitude,
ksalazar, proposal drone

Reply | Quote