How To replace Equations on Text

Question

Hi,

Dear All ExpertS!!!!

I have A Little Problem in Microsoft Office Word

I have Office 2016, And I composed a book in word That contains URDU (PAKISTAN) And I typed all the Fractions as a text like this (2/3, 1/6, 1/2, 1/8) And Now I want to Replace it With (Equation, Fractions) Like  so I want to Use FIND and REPLACE option for this purpose, Because The Book is Very huge 428 pages, and it is very difficult to find that text and compose a new equation on the place of that text I mean ( instead of 1/6)

So please Show me the way to find and replace that text Automatically,

If it is possible then please reply my fast as you can, because book is to be published but waiting only for these corrections.

Thanks in Advance!!!

Answer 1

See the following page of fellow MVP Graham Mayor's website:

http://www.gmayor.com/installing_macro.htm

Thanks A Lot DEAR SIR

Answer 2

See the following page of fellow MVP Graham Mayor's website:

http://www.gmayor.com/installing_macro.htm

Answer 3

How I Shall RUN MACROS????

Answer 4

Running a macro containing the following code

Dim strQuotient As String

Dim strDivisor As String

Selection.HomeKey wdStory

Selection.Find.ClearFormatting

With Selection.Find

    Do While .Execute(FindText:="[0-9]{1,}/[0-9]{1,}", MatchWildcards:=True, Forward:=True, Wrap:=wdFindStop) = True

        With Selection

            strQuotient = Left(Selection.Text, InStr(Selection.Text, "/") - 1)

            strDivisor = Mid(Selection.Text, InStr(Selection.Text, "/") + 1)

            ActiveDocument.Fields.Add Selection.Range, wdFieldEmpty, "EQ \F(" & strQuotient & "," & strDivisor & ")", False

        End With

    Loop

End With

will convert

to

Answer 5

This is screenshot I want LIKe this