![]() |
#1
|
|||
|
|||
![]()
I need some help with the below code. I would like to automate this macro to change numbers with the following format:
0001 to 1. 0002 to 2. 0750 to 750. Up to maybe 0999 Thanks!!!! Sub ConvertingNumbers() ' ' ConvertingNumbers Macro ' ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "0001" .Replacement.Text = "1." .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "0002" .Replacement.Text = "2." .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
Userform Code not quite right - help please | vbanovice | Word VBA | 1 | 09-29-2013 09:20 PM |
outlook vba code help | HxG | Outlook | 0 | 09-20-2012 10:42 PM |
![]() |
rbaldwin | Word VBA | 3 | 03-14-2012 02:31 PM |
Help with VBA Code Modification | OTPM | Excel Programming | 0 | 09-16-2011 07:10 AM |
![]() |
rajpeter | Excel Programming | 2 | 09-13-2011 02:29 PM |