Range.Calculate (Word)

Calcula una expresión matemática dentro de un intervalo o selección.

Set myRange = ActiveDocument.Range(0, 0) 
myRange.InsertBefore "1 + 1 " 
myRange.InsertAfter "= " & myRange.Calculate