• Sergio
  • Восстановленный участник
  • На форуме с 10 мая 2006г.
  • Сообщений: 5
  • Спасибо: 0

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

Коллеги!
Помогите начинающему!!!
Имеется макрос (см. ниже) Необходимо в него добавить диалоговое окно ввода размера и имени шрифта
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

  • Миша
  • Восстановленный участник
  • На форуме с 31 декабря 2001г.
  • Сообщений: 322
  • Спасибо: 0

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

Добавь UserForm, на него Textbox для размера, ListBox для имени шрифта и кнопочку CommandButton для запуска твоего макроса. Так же можно добавить кнопочку для закрытия формы.

  • LeonidSN
  • Активный участник
  • На форуме с 30 мая 2005г.
  • Сообщений: 1,480
  • Спасибо: 5

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

Так как все сложные вопросы расхватали более бойкие товарищи, то несмелым остался самый простой:

Sub MSWORD()
'
' MSWORD Ìàêðîñ
' Ìàêðîñ çàïèñàí 15.05.2006 main
'
With Selection.Font
'.Name = "Times New Roman"
'.Size = 16
[b].Name = InputBox("Enter font name", "MyProgram", "Times New Roman")[/b]
[b].Size = InputBox("Enter font size", "MyProgram", "16")[/b]
.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

  • Sergio
  • Восстановленный участник
  • На форуме с 10 мая 2006г.
  • Сообщений: 5
  • Спасибо: 0

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

Народ!
Подскажите, почему записанный макрос работает только на той машине, где он записывался???
Записываю так
Сервис/Макросы/Начать запись/Даю имя макросу/Нажимаю паузу/вызываю макрос на редакцию/В VB вставляю текст самого макроса/сохраняю.
После этого макрос работает но только на моей машине.

  • Fatty
  • Восстановленный участник
  • На форуме с 30 мая 2006г.
  • Сообщений: 989
  • Спасибо: 2

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

> LeonidSN
Браво, мне очень понравилось
>>Так как все сложные вопросы расхватали более бойкие товарищи, то несмелым остался самый простой
Ты им скажи: в очередь сукины дети, в очередь!
:)

  • Сергей
  • Восстановленный участник
  • На форуме с 30 января 2006г.
  • Сообщений: 129
  • Спасибо: 0

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

Мы чиго тут будим людей и для MS Office программировать учить?

  • Миша
  • Восстановленный участник
  • На форуме с 31 декабря 2001г.
  • Сообщений: 322
  • Спасибо: 0

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

Макрос сохранился в шаблоне Normal.dot который находится в папке указанной в строке "шаблоны пользователя" на вкладке "Расположение" в окне вызываемом командой Сервис->Параметры. Например у меня на компьютере по адресу: C:\Documents and Settings\Administrator\Application Data\Microsoft\Шаблоны.
Чтобы макрос работал на другом компьютере надо скопировать этот шаблон на другой компьютер или скопировать макрос из шаблона в модуль текущего документа, что гораздо выгоднее и лучше. При копировании шаблона могут поменяться настройки всех документов.