Range.Calculate (Word)

Calculates a mathematical expression within a range or selection. Returns the result as a Single.

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