Publish

This will cause the current document to be High-Res published.

Sub Publish()
    Dim addin
    Dim util

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

    util.Publish
End Sub