Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Запись макроса "Настройка подписи" для Word 03,07,10 - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Запись макроса "Настройка подписи" для Word 03,07,10
rbwkz Дата: Пятница, 27.05.2016, 07:14 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте! Скажите пожалуйста, как записать макрос вызова диалогового окна "Настройка подписи" и заполнение строк в автоматическом режиме.
Пример кода для Word 2013
[vba]
Код
Dim signtr As Office.Signature
Application.ScreenUpdating = False
SendKeys "{ENTER}", False
Set signtr = ActiveDocument.Signatures.AddSignatureLine
Selection.EndKey Unit:=wdStory
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
With signtr.Setup

.SuggestedSigner = "****"
.SuggestedSignerLine2 = "****"
.SuggestedSignerEmail = "email@email.ru"
End With
Application.ScreenUpdating = True
[/vba]

Проблема в том что когда я записываю макрос у меня отображается такой код
[vba]
Код
    ActiveDocument.Signatures.AddNonVisibleSignature _
        "{00000000-0000-0000-0000-000000000000}"
[/vba]

Буду признателен если научите записывать правильно или запишите макросы для версий 2003, 2007, 2010.
[moder]Дайте теме более конкретное название в соответствии с Правилами форума[/moder]


Сообщение отредактировал rbwkz - Пятница, 27.05.2016, 09:25
 
Ответить
СообщениеЗдравствуйте! Скажите пожалуйста, как записать макрос вызова диалогового окна "Настройка подписи" и заполнение строк в автоматическом режиме.
Пример кода для Word 2013
[vba]
Код
Dim signtr As Office.Signature
Application.ScreenUpdating = False
SendKeys "{ENTER}", False
Set signtr = ActiveDocument.Signatures.AddSignatureLine
Selection.EndKey Unit:=wdStory
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
With signtr.Setup

.SuggestedSigner = "****"
.SuggestedSignerLine2 = "****"
.SuggestedSignerEmail = "email@email.ru"
End With
Application.ScreenUpdating = True
[/vba]

Проблема в том что когда я записываю макрос у меня отображается такой код
[vba]
Код
    ActiveDocument.Signatures.AddNonVisibleSignature _
        "{00000000-0000-0000-0000-000000000000}"
[/vba]

Буду признателен если научите записывать правильно или запишите макросы для версий 2003, 2007, 2010.
[moder]Дайте теме более конкретное название в соответствии с Правилами форума[/moder]

Автор - rbwkz
Дата добавления - 27.05.2016 в 07:14
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!