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

Вход

Регистрация

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

 

= Мир MS Excel/Перевод макроса VB под делфи - Мир MS Excel

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

Excel 2010
Здравствуйте! Помогите пожалуйста переделать макрос под делфи.
[vba]
Код

Sub addSignature()
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
End Sub
[/vba]
[moder]Может Вам все-таки форумы по Делфи поискать?[/moder]


Сообщение отредактировал Manyasha - Среда, 25.05.2016, 09:57
 
Ответить
СообщениеЗдравствуйте! Помогите пожалуйста переделать макрос под делфи.
[vba]
Код

Sub addSignature()
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
End Sub
[/vba]
[moder]Может Вам все-таки форумы по Делфи поискать?[/moder]

Автор - rbwkz
Дата добавления - 25.05.2016 в 09:41
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перевод макроса VB под делфи (Макросы/Sub)
Страница 1 из 11
Поиск:

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