Проблема со скриптом VBA в Word

Question

У меня есть форма с включенным макросом, которую кто-то скачает с Sharepoint, заполнит, а затем я хочу, чтобы он нажал кнопку, и она сохранится в папке документов на сайте SharePoint.

Я записал Макрос, который работал, но есть переменная, где я хочу, чтобы имя файла было сегодняшней датой. Я изменил код, и теперь он не будет работать. Я получаю 1 из 3 ошибок.

1. Я получаю ошибку команды 4198 при наличии https перед адресом сайта
2. Команда ChangeFileOpenDirectory выдает ошибку 4172 путь не найден
3. Я удаляю https и ChangeFileOpenDirectory и получаю 5152 файл или папку не найдена ошибка

Код, который я добавил, выделен жирным шрифтом.

Private Sub CommandButton1_Click()

' these next lines would be bold if you could make code bold
Dim filename1 As String
filename1 = Format(Date, "yyyy-mm-dd")
' the lines above

  ChangeFileOpenDirectory _
        "https://SP ADDRESS/sites/SITE NAME/Shared%20Documents/FOLDER NAME/"
    ActiveDocument.SaveAs2 FileName:= _
        "https://SP ADDRESS/sites/SITE NAME/Shared%20Documents/FOLDER NAME/" **& filename1 & ".docm"** _
        , FileFormat:=wdFormatXMLTemplateMacroEnabled, LockComments:=False, _
        Password:="", AddToRecentFiles:=True, WritePassword:="", _
        ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False, CompatibilityMode:=15
    ActiveWindow.Close
    Application.Quit

End Sub

Может кто-нибудь помочь, пожалуйста