В настоящее время у меня есть шаблон документа с макросами endabled .dotm. В макросе есть командная кнопка, которая запускает объект SaveAs2, дважды отформатированный, как показано ниже.
Public Sub FileSaveAs()
Dim dlg As Dialog
Dim strSaveFolder
strSaveFolder = Application.Options.DefaultFilePath(wdDocumentsPath)
Application.Options.DefaultFilePath(wdDocumentsPath) = ActiveDocument.AttachedTemplate.Path
ActiveDocument.SaveAs2 (ActiveDocument.AttachedTemplate.Path & " UsersName" & " FORM234" & Format(Now(), "DD-MMM-YYYY hh mm ss AMPM") & ".docm")
End
Секунда Сохранить как
Public Sub SuperSave()
Dim dlg As Dialog
Dim strSaveFolder
strSaveFolder = "I:\Form Storage\CoCopy\"
ActiveDocument.SaveAs2 (strSaveFolder & "UserName" & "Form234" & Format(Now(), "DD-MMM-YYYY hh mm ss AMPM") & ".docm")
End Sub
Теперь вот интересная часть, которая меня озадачила примерно неделю назад. Этот код работает, но только на некоторых компьютерах. Старые модели по какой-то причине не работают. Не имеет значения Windows 10 или Windows 7 или версия самого Office. Он не работает на компьютерах более старых моделей, таких как HP EliteDesk 1 или HP EliteDesk 2. 1 не будет работать, но будет работать 2.
Я никогда не слышал о влиянии макроса vba на модель компьютерной версии ОС да версия Word ofcourse, но не версия модели. Я гуглил влево и вправо и перешел к документации с 2010 года (включая выпуск Microsoft за 2014 год, который я уже исключил)
Это пустое место, которое я имею в виду, даже не открывает белую страницу внизу .
Есть идеи? Или вы слышали о некоторых моделях компьютеров, не использующих код vba, но имеющих ту же ОС и ту же версию Office?