View Single Post
  #4   Report Post  
Steved
 
Posts: n/a
Default

Hell from Steved

Below is my code Just need it to be modified to do the whole document please.

Sub Tc()
Selection.Find.ClearFormatting
With Selection.Find
.Text = "T("
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Font.Bold = wdToggle
End Sub


"Steved" wrote:

Hello Jay from Steved

I simply meant end of Line. You posed a good question I have to go away and
think about it

Thankyou.

"Jay Freedman" wrote:

On Sat, 17 Sep 2005 19:41:02 -0700, Steved
wrote:

Hello from Steved

How do I please

Find, T( then highlight to the end of Row then bold it.

Thankyou


Use a wildcard search/replace -- see
http://www.gmayor.com/replace_using_wildcards.htm.

First be clear about what you're asking for: when you say "row", do
you mean a line (without a paragraph mark at the end), a paragraph
(with a paragraph mark at the end, visible as ΒΆ when you click the
Show All button), or a table row? The entries you make in the Replace
dialog are different...

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org