code to rewrite numbers

romanticbiro · #1 02-10-2014, 05:40 PM

hello sirs
wish you help me by your knowledge
i've a long word documents need to change some numbers on it
as you know in ms-word when we wrote numbers in Arabic from right to left the program reverse it to look as o'clock left to right
example : if we want this one and half wrote it 30:1 to appear 1: 30
so, people here wrote wrong to appear right, now, i need to reverse those number cause screen-reader read them wrong it read for me what we wrote not what word show (as a blind man)

is any way let me rewrite all numbers again from 30:1 to 1:30 ?
am so sorry for this long message
many thanks

gmaxey · #2 02-10-2014, 06:06 PM

Code:

Sub Macro1()
Dim oRng As Word.Range
  Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
  Set oRng = ActiveDocument.Range
  With oRng.Find 'Selection.Find
    .Text = "([0-9]{1,})(:)([0-9]{1,})"
    .Replacement.Text = "\3\2\1"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchAllWordForms = False
    .MatchSoundsLike = False
    .MatchWildcards = True
    .Execute Replace:=wdReplaceAll
  End With
End Sub

romanticbiro · #3 02-11-2014, 07:41 AM

dear gmaxey
thanks very much for your help.
please
could you explain this code
i tried it via find and replace command
the question
if the number 10:50 need to be 50:10
this work or need to change thing?

another point, is any solution let word show numbers from right to left as we wrote? to not need to write wrong to show right
many thanks again

macropod · #4 02-14-2014, 09:55 PM

Quote:

Originally Posted by romanticbiro

if the number 10:50 need to be 50:10
this work or need to change thing?

another point, is any solution let word show numbers from right to left as we wrote? to not need to write wrong to show right
many thanks again

Did you try the macro?

FWIW, the equivalent wildcard Find/Replace without using a macro is:

Code:

Find = ([0-9]{1,})(:)([0-9]{1,})
Replace = \3\2\1

However, both that and the macro are dependent on your PC's regional settings. A wildcard Find/Replace that should work independently of your regional settings is:

Code:

Find = (<[0-9]@)(:)([0-9]@>)
Replace = \3\2\1

You could also use the same expressions in the macro.

romanticbiro · #5 02-15-2014, 07:20 AM

pls. what's the different between 2 exprissions?

macropod · #6 02-15-2014, 01:25 PM

What is different is that one could be affected by your regional settings; the other isn't. For some regions (those that use ',' as a decimal separator), the {1,} would have to be changed to {1;}

romanticbiro · #7 02-15-2014, 02:55 PM

is there anyway let word show numbers as we wrote and not need to wrote wrong to appear right on screen?
for example: if we want to write one and half, now we wrote 30:1 to be shown 1 : 30
and this make big problem with my screen-reader while read documents.
thanks

macropod · #8 02-15-2014, 03:04 PM

If you want to add spaces either side of the colon, change \3\2\1 to \3 \2 \1.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to change the formatting of numbers without changing the numbers?	sullengirl	Word	2	01-27-2014 03:06 PM
How do I refer to page numbers, when the numbers change as I prepare the document?	StevenD	Word	5	11-29-2012 12:52 AM
Where does my code go?	rbaldwin	Word VBA	3	03-14-2012 02:31 PM
Page Numbers Not Matching Chapter Numbers	gracie5290	Word	1	02-02-2012 11:41 PM
Extract Numbers from Zip Code	Karen615	Excel	3	09-21-2011 06:54 AM