Range.Calculate (Word)

Berechnet einen mathematischen Ausdruck in einem Bereich oder einer Auswahl.

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