[mso] Re: Problem with word paragraphs
- From: "Green" <1z@xxxxxxxxxxxxxx>
- To: <mso@xxxxxxxxxxxxx>
- Date: Wed, 10 Dec 2003 21:06:55 +0100
Hi Paul & Linda,
This is probably not all that useful but the following code will
remove spelling and yellow highlighted items. Perhaps it could be
adapted for a button with a key shortcut?
Regards
Lisa
Sub subRemoveYellow(Optional parDocName As Variant)
' Remove any highlighting at all and dark red font
Dim oDoc As Document
If IsMissing(parDocName) Then
Set oDoc = ActiveDocument
Else
Set oDoc = Documents(parDocName)
End If
' Clear Spelling highlights
With oDoc.Content.Find
.ClearFormatting
.Text = ""
.Highlight = True
.Font.Color = wdColorDarkRed
With .Replacement
.ClearFormatting
.Highlight = False
.Font.Color = wdColorAutomatic
.Text = ""
End With
.Execute Format:=True, Replace:=wdReplaceAll
End With
' Clear yellow highlights
With oDoc.Content.Find
.ClearFormatting
.Text = ""
.Highlight = True
With .Replacement
.ClearFormatting
.Highlight = False
.Text = ""
End With
.Execute Format:=True, Replace:=wdReplaceAll
End With
Set oDoc = Nothing
' --------------------------------------------------------------------
---------------------------------
End Sub
> -----Original Message-----
> From: mso-bounce@xxxxxxxxxxxxx [mailto:mso-bounce@xxxxxxxxxxxxx]On
> Behalf Of Linda F. Johnson
> Sent: 10 December 2003 13:37
> To: mso@xxxxxxxxxxxxx
> Subject: [mso] Re: Problem with word paragraphs
>
>
>
> Paul. I received your file privately and I fixed it and
> sent it back to
> you. As, I said, it was Highlighting so I just Selected
> All (ctrl+a) and
> clicked on the Highlighting button and chose "None" but
> since you are blind,
> I'm posting this to the group to see if any of the keyboard
> wizards in here
> know what the keyboard shortcut is to remove highlighting.
>
> Anyone know? (I'm a major mouse gal so I don't)
>
>
> Linda F. Johnson, M.A., MOS
*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or
MicrosoftOffice@xxxxxxxxxxxxxxxx
To send mail to the group, simply address it to mso@xxxxxxxxxxxxx
To Unsubscribe from this group, send an email to
mso-request@xxxxxxxxxxxxx with the word "unsubscribe" (without the quotes) in
the subject line.
Or, visit the group's homepage and use the dropdown menu. This will also allow
you to change your email settings to digest or vacation (no mail).
//www.freelists.org/webpage/mso
To be able to use the files section for sharing files with the group, send a
request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation with
instructions. Once you are a member of the files group, you can go here to
upload/download files:
http://www.smartgroups.com/vault/msofiles
*************************************************************
Other related posts:
