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

Вход

Регистрация

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

 

= Мир MS Excel/Подпись документа средствами Office - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Подпись документа средствами Office (Макросы/Sub)
Подпись документа средствами Office
rbwkz Дата: Понедельник, 07.03.2016, 06:32 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте! Нужно, чтобы макрос автоматически вставлял подпись в документ. Записал макрос, а при запуске его доходит до настройки подписи и всё, дальше уже вручную. Можно ли как-то автоматически сделать сию манипуляцию? Или посоветуйте как лучше осуществить.

[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]


Сообщение отредактировал SLAVICK - Понедельник, 07.03.2016, 10:10
 
Ответить
СообщениеЗдравствуйте! Нужно, чтобы макрос автоматически вставлял подпись в документ. Записал макрос, а при запуске его доходит до настройки подписи и всё, дальше уже вручную. Можно ли как-то автоматически сделать сию манипуляцию? Или посоветуйте как лучше осуществить.

[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
Дата добавления - 07.03.2016 в 06:32
mathiax90 Дата: Понедельник, 07.03.2016, 09:00 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 155
Репутация: 20 ±
Замечаний: 60% ±

Excel 2007
Пример документа пожалуйста. Хочу глянуть как выглядит подпись.


webmoney: R242692021885
ЯД:410013877261817
 
Ответить
СообщениеПример документа пожалуйста. Хочу глянуть как выглядит подпись.

Автор - mathiax90
Дата добавления - 07.03.2016 в 09:00
rbwkz Дата: Понедельник, 07.03.2016, 09:56 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010

там левая картинка, а вообще туда скан подписи надо вставить!
К сообщению приложен файл: 5700884.docx(75Kb)


Сообщение отредактировал rbwkz - Понедельник, 07.03.2016, 09:57
 
Ответить
Сообщение
там левая картинка, а вообще туда скан подписи надо вставить!

Автор - rbwkz
Дата добавления - 07.03.2016 в 09:56
mathiax90 Дата: Понедельник, 07.03.2016, 10:13 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 155
Репутация: 20 ±
Замечаний: 60% ±

Excel 2007
Держите.
Первая строка в макросе - переход в конец документа. Путь под себя правьте.
Вторая строка выравнивание по правому краю.
К сообщению приложен файл: 5854708.docm(16Kb)


webmoney: R242692021885
ЯД:410013877261817
 
Ответить
СообщениеДержите.
Первая строка в макросе - переход в конец документа. Путь под себя правьте.
Вторая строка выравнивание по правому краю.

Автор - mathiax90
Дата добавления - 07.03.2016 в 10:13
rbwkz Дата: Понедельник, 07.03.2016, 10:25 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо, но тут по другому надо осуществить, так просто картинка вставляется! Средствами Office подпись вставляется так, Вставка-Добавить строку подписи, далее ПКМ по строке подписи-подписать-загрузить картинку. у меня макрос работает только до открытия окна, далее вручную надо уже! Вот до этого-далее вручную!


Сообщение отредактировал rbwkz - Понедельник, 07.03.2016, 10:25
 
Ответить
СообщениеСпасибо, но тут по другому надо осуществить, так просто картинка вставляется! Средствами Office подпись вставляется так, Вставка-Добавить строку подписи, далее ПКМ по строке подписи-подписать-загрузить картинку. у меня макрос работает только до открытия окна, далее вручную надо уже! Вот до этого-далее вручную!

Автор - rbwkz
Дата добавления - 07.03.2016 в 10:25
Gustav Дата: Вторник, 08.03.2016, 17:28 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1211
Репутация: 484 ±
Замечаний: 0% ±

начинал с Excel 4.0...
Если требуется способ подавления/прохождения без остановки диалогового окна "Настройка подписи", то можно попробовать послать "поперёд батьки в пекло" нажатие клавиши 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]


Мой tip box - яд 41001663842605
 
Ответить
СообщениеЕсли требуется способ подавления/прохождения без остановки диалогового окна "Настройка подписи", то можно попробовать послать "поперёд батьки в пекло" нажатие клавиши 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]

Автор - Gustav
Дата добавления - 08.03.2016 в 17:28
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Подпись документа средствами Office (Макросы/Sub)
Страница 1 из 11
Поиск:

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