Posted to microsoft.public.word.docmanagement

giusic

Posts: n/a

advance find and replace

It worked! Thanks also for bearing with me...
Giusi

"Greg" wrote:

Giusi,

We have abandoned "wildcards" ;-)

Try:

Sub ScratchMacro()
Dim myRng As Range
Dim oCell As Cell
For Each oCell In Selection.Tables(1).Range.Cells
Set myRng = oCell.Range
myRng.End = myRng.End - 1
If Left(myRng.Text, 1) = "." Then
myRng.InsertBefore "0"
End If
Next
End Sub

Reply With Quote

Thread Tools
Show Printable Version
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Posting Rules
Smilies are On [IMG] code is On HTML code is Off

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
MS Word 2000 Find & Replace	Drew	Microsoft Word Help	6	November 16th 05 10:29 PM
Find and Replace GREEK symbols in XP, 2K & 97	Jazz	Microsoft Word Help	3	April 8th 05 08:13 PM
Find and Replace	Michael R	New Users	11	January 22nd 05 05:31 PM
Find and Replace anomaly	BruceM	Microsoft Word Help	7	January 18th 05 05:47 PM
find and replace symbols	Tewodaj	New Users	8	January 11th 05 02:22 AM

All times are GMT +1. The time now is 05:05 AM.

About Us

"It's about Microsoft Word"

Menu

About Us