Сохраните и получите файл с сервера с помощью vba

Question

Я сделал приложение Word, которое создает контракты с серийными номерами (ps Kontrata_101), я делаю это с помощью макроса AutoNew (от здесь ):

Sub AutoNew()

    Order = System.PrivateProfileString("C:\Settings.Txt", "MacroSettings", "Order")
    If Order = "" Then
        Order = 1
    Else
        Order = Order + 1
    End If
    System.PrivateProfileString("C:\Settings.txt", "MacroSettings", "Order") = Order
    ActiveDocument.Bookmarks("Order").Range.InsertBefore Format(Order, "00#")
    ActiveDocument.SaveAs Filename:="path" & Format(Order, "00#")

End Sub

Есть ли любой способ сохранить и увеличить числа с сервера, откуда мы можем иметь доступ более чем к одному p c, и увеличивать числа каждый раз, когда слово открывается в любом из наших p c.