Здравствуйте! Нужно, чтобы макрос автоматически вставлял подпись в документ. Записал макрос, а при запуске его доходит до настройки подписи и всё, дальше уже вручную. Можно ли как-то автоматически сделать сию манипуляцию? Или посоветуйте как лучше осуществить.
[vba]
Код
Sub Макрос11() ActiveDocument.Signatures.AddSignatureLine _ "{00000000-0000-0000-0000-000000000000}" Selection.MoveLeft Unit:=wdWord, Count:=1 Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.MoveUp Unit:=wdLine, Count:=1 Selection.MoveDown Unit:=wdLine, Count:=1 Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend End Sub
[/vba] [moder]Для оформления кода есть кнопка #. Поправил за Вас.[/moder]
Здравствуйте! Нужно, чтобы макрос автоматически вставлял подпись в документ. Записал макрос, а при запуске его доходит до настройки подписи и всё, дальше уже вручную. Можно ли как-то автоматически сделать сию манипуляцию? Или посоветуйте как лучше осуществить.
[vba]
Код
Sub Макрос11() ActiveDocument.Signatures.AddSignatureLine _ "{00000000-0000-0000-0000-000000000000}" Selection.MoveLeft Unit:=wdWord, Count:=1 Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.MoveUp Unit:=wdLine, Count:=1 Selection.MoveDown Unit:=wdLine, Count:=1 Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend End Sub
[/vba] [moder]Для оформления кода есть кнопка #. Поправил за Вас.[/moder]rbwkz
Сообщение отредактировал SLAVICK - Понедельник, 07.03.2016, 10:10
Спасибо, но тут по другому надо осуществить, так просто картинка вставляется! Средствами Office подпись вставляется так, Вставка-Добавить строку подписи, далее ПКМ по строке подписи-подписать-загрузить картинку. у меня макрос работает только до открытия окна, далее вручную надо уже! Вот до этого-далее вручную!
Спасибо, но тут по другому надо осуществить, так просто картинка вставляется! Средствами Office подпись вставляется так, Вставка-Добавить строку подписи, далее ПКМ по строке подписи-подписать-загрузить картинку. у меня макрос работает только до открытия окна, далее вручную надо уже! Вот до этого-далее вручную! rbwkz
Сообщение отредактировал rbwkz - Понедельник, 07.03.2016, 10:25
Если требуется способ подавления/прохождения без остановки диалогового окна "Настройка подписи", то можно попробовать послать "поперёд батьки в пекло" нажатие клавиши Enter при помощи SendKeys: [vba]
Код
Sub addSignature() Dim signtr As Office.Signature Application.ScreenUpdating = False SendKeys "{ENTER}", False 'посылаем "вперед" нажатие Enter Set signtr = ActiveDocument.Signatures.AddSignatureLine With signtr.Setup .SuggestedSigner = "В.А.Белоцерковский" .SuggestedSignerLine2 = "Генеральный директор" .SuggestedSignerEmail = "email@email.ru" End With Application.ScreenUpdating = True End Sub
[/vba]
Если требуется способ подавления/прохождения без остановки диалогового окна "Настройка подписи", то можно попробовать послать "поперёд батьки в пекло" нажатие клавиши Enter при помощи SendKeys: [vba]
Код
Sub addSignature() Dim signtr As Office.Signature Application.ScreenUpdating = False SendKeys "{ENTER}", False 'посылаем "вперед" нажатие Enter Set signtr = ActiveDocument.Signatures.AddSignatureLine With signtr.Setup .SuggestedSigner = "В.А.Белоцерковский" .SuggestedSignerLine2 = "Генеральный директор" .SuggestedSignerEmail = "email@email.ru" End With Application.ScreenUpdating = True End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
