Слова макросов не работают правильно при открытии из кнопки действий PowerPoint - PullRequest
Новая
       27

Слова макросов не работают правильно при открытии из кнопки действий PowerPoint

0 голосов
/ 04 ноября 2010

У меня есть шаблон Word (предложение от), который включает в себя макрос автообновления для вставки ссылочного номера в отметку книги и кнопку действия (Отправить), которая сохраняет полученный документ со ссылочным номером как часть имени файла и закрывает Слово. Это прекрасно работает при открытии шаблона через Windows Explorer.

У нас также есть PowerPoint-шоу с настройками действий, которые ссылаются на различные документы. Ссылка откроет вышеуказанный шаблон ОК, но не вставит ссылочный номер. Также при нажатии кнопки «Отправить» файл сохраняется как другой шаблон с указанным ссылочным номером.

Я не уверен, связана ли проблема с Word или PowerPoint. Код для шаблона Word: 

Sub AutoNew()

REF = System.PrivateProfileString("L:\Local\Lab\Section - Support Services\Health and Safety\H&S Suggestions\Settings.Txt", _
        "MacroSettings", "REF")

If REF = "" Then
    REF = 1
Else
    REF = REF + 1
End If

System.PrivateProfileString("L:\Local\Lab\Section - Support Services\Health and Safety\H&S Suggestions\Settings.Txt", "MacroSettings", _
        "REF") = REF

ActiveDocument.Bookmarks("REF").Range.InsertBefore Format(REF, "000#")


End Sub


Private Sub CommandButton1_Click()

REF = System.PrivateProfileString("L:\Local\Lab\Section - Support Services\Health and Safety\H&S Suggestions\Settings.Txt", _
        "MacroSettings", "REF")

ActiveDocument.SaveAs FileName:="L:\Local\Lab\Section - Support Services\Health and Safety\H&S Suggestions\Suggestion " & Format(REF, "000#.doc")
Application.Quit

End Sub

Любая помощь или указатели будут оценены так, как будто они работают, я хотел бы использовать для различных других шаблонов.

1 Ответ

0 голосов
/ 04 ноября 2010

Из описания довольно сложно получить точное представление о том, что происходит, но оно звучит, как AUTONEW, просто может не запуститься в этой конкретной комбинации.

Вы можете проверить это, используя некоторыеlogging или вызовы MSGBOX, чтобы точно узнать, какие макросы запускаются, когда.

Проверьте документы по Autonew здесь

http://support.microsoft.com/kb/211659

Похоже, что он не будет работатьмакрос сохраняется в Normal, что не похоже на случай, но стоит отметить.

Вы также можете рассмотреть возможность использования макроса AutoOpen и проверки других элементов, чтобы убедиться, что это новый документ вместотот, который уже был сохранен (например, проверка содержимого свойства Document.Fullname).

...