Word Input answer VBA

Question

Hello from Steve

Using word.

Objective Type in answer using VBA

I type in $62.95 $2.90 =

Is it possible please for it to type in the answer in this case $65.85 as shown below.

$62.95 $2.90 = $65.85

Answer 1

Select the text such as $62.95 $2.90 =, then run this macro:

Sub Compute()
    Dim txt As String
    Dim arr() As String
    Dim i As Long
    Dim sum As Double
    On Error GoTo ErrHandler
    txt = Replace(Selection.Text, "$", "")
    arr = Split(txt)
    For i = 0 To UBound(arr) - 1
        sum = sum + arr(i)
    Next i
    Selection.InsertAfter Format(sum, " $#,##0.00")
    Exit Sub
ErrHandler:
    MsgBox "Something went wrong!", vbExclamation
End Sub

Answer 2

Hello HansV

Brilliant

I thank you

All the Best

Steve

Answer 3

Hello HansV

In the Word Document please.

All the Best

Steve

Answer 4

Where do you enter this? In a document? In VBA InputBox? In a text box on a userform?