VBA to turn a selected string into an equation

[WJSwanepoel]

If I select a string such as
\(b = CA = \sqrt{(x_3 - x_1)^2 + (y_3 - y_1)^2}\)
I can turn it into a math equation by selecting Insert/Equation/Latex/convert/all professional
it then looks like attached image.



Can I do this by VBA, by selecting the text then executing the VBA?

[macropod]

Try:

Sub ConvertEquation()
Application.ScreenUpdating = False
Dim Rng As Range, objEqn As OMath, Correction As OMathAutoCorrectEntry
Application.OMathAutoCorrect.UseOutsideOMath = True
Set Rng = Selection.Range: If Rng.End = Rng.Paragraphs.First.Range.End Then Rng.End = Rng.End - 1
For Each Correction In Application.OMathAutoCorrect.Entries
  If InStr(Rng.Text, Correction.Name) > 0 Then Rng.Text = Replace(Rng.Text, Correction.Name, Correction.Value)
Next
Rng.OMaths.Add(Rng).OMaths(1).BuildUp
Application.ScreenUpdating = True
End Sub

[WJSwanepoel]

Thank you very much Macropod, it solves my problem.