SaveAs

This will save the current document as the specified file name

Sub SaveAs()
    Dim addin
    Dim util

    Set addin = Application.COMAddIns("Calumo.WordClient")
    Set util = addin.Object

    util.SaveAs("Document2")
End Sub