Range.Calculate (Word)

Calcula uma expressão matemática dentro de um intervalo ou seleção. Retorna o resultado como um único.

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