Как дрбавить диалоговое окно ввода параметров в макрос / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как дрбавить диалоговое окно ввода параметров в макрос

4 сообщений из 4, страница 1 из 1

Как дрбавить диалоговое окно ввода параметров в макрос

#33760198

Ukntb

Гость

Коллеги!
Помогите начинающему!!!
Имеется макрос (см. ниже) Необходимо в него добавить диалоговое окно ввода размера и имени шрифта
Sub MSWORD()
'
' MSWORD Макрос
' Макрос записан 15.05.2006 main
'
With Selection.Font
.Name = "Times New Roman"
.Size = 16
.Bold = False
.Italic = False
.Underline = wdUnderlineNone
.UnderlineColor = wdColorAutomatic
.StrikeThrough = False
.DoubleStrikeThrough = False
.Outline = False
.Emboss = False
.Shadow = False
.Hidden = False
.SmallCaps = False
.AllCaps = False
.Color = wdColorAutomatic
.Engrave = False
.Superscript = False
.Subscript = False
.Spacing = 0
.Scaling = 100
.Position = 0
.Kerning = 0
.Animation = wdAnimationNone
End With
End Sub

...

Рейтинг:

0 / 0

30.05.2006, 12:10

| Ответить | Цитировать | Написать

Как дрбавить диалоговое окно ввода параметров в макрос

#33760769

Ashton

Гость

Вызвать диалог настройки параметров шрифта.

Код: plaintext

    Application.Dialogs(wdDialogFormatFont).Show

Вызвать диалог и изменить параметры выделенной области.

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.

Public Sub ChangeFont()
    Dim dlg As Dialog

    Set dlg = Application.Dialogs(wdDialogFormatFont)
    
    If dlg.Show Then
        Selection.Font.Name = dlg.Font
        Selection.Font.Size = dlg.Points
    End If
End Sub

...

Рейтинг:

0 / 0

30.05.2006, 14:20

| Ответить | Цитировать | Написать

Как дрбавить диалоговое окно ввода параметров в макрос

#33760823

Ukntb

Гость

А в какую область скрипта вставляются эти строки??

...

Рейтинг:

0 / 0

30.05.2006, 14:37

| Ответить | Цитировать | Написать

Как дрбавить диалоговое окно ввода параметров в макрос

#33760829

Ukntb

Гость

А в какую область макроса вставляются эти строки??

...

Рейтинг:

0 / 0

30.05.2006, 14:38

| Ответить | Цитировать | Написать

4 сообщений из 4, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как дрбавить диалоговое окно ввода параметров в макрос

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=33760769&tid=2165786]:	0ms
get settings:	11ms
get forum list:	16ms
check forum access:	4ms
check topic access:	4ms
track hit:	200ms
get topic data:	9ms
get forum data:	2ms
get page messages:	40ms
get tp. blocked users:	2ms
others:	244ms

total:	532ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы