хелп с макросом

[Aivar]

надо макрос разработать, что бы диологовое окно выводил с вводом фио, организации, и.т.д., а после ввода он должен вставлять эти данные в текст от текущего положения курсора.

[madmot]

В чем проблема?
В редакторе VBA (вызывается из Word-a Alt+F11) правой кнопкой на ThisDocument ->Insert -> UserForm. Туда добавляешь сколько надо TextBox и кнопку ОК. Двойной щелчек на кнопку создаст обработчик,
туда впишешь

Selection.TypeText Text:=TextBox1.Text

или сначала в строковой переменной объедени все поля, ну ФИО, организация и т.д. а потом выводи. Примерно так.

[Aivar]

Private Sub CommandButton1_Click()
Selection.TypeText Text:=TextBox1.Text
End Sub

так? а дальше?

[Aivar]

еще ошибку выдает - ambiguous name detected: CommandButton1_Click()

[madmot]

Да на нажатие кнопки:

Private Sub CommandButton1_Click()
  Selection.TypeText Text:=TextBox1.Text & " " & TextBox2.Text
End Sub

Далее создаешь новый модуль (правой кнопкой на ThisDocument -> Insert -> Module) и в нем вызываешь созданную форму, пишешь:

Sub ShowForm()
  UserForm1.Show
End Sub

при нажатии на ОК, в текущее положение курсора втавляется текст из TextBox1 и TextBox2 рзаделенные пробелом

вот скрин формы:

[Aivar]

какой код 4тобы кнопочка ок работала???

[madmot]

Когда положил на форму кнопку, изменил свойство "Caption" на "ОК" два раза щелкни по ней, VBA перейдет в окно с кодом и создаст процедуру:

Private Sub CommandButton1_Click()

End Sub

туда и впиши

Selection.TypeText Text:=TextBox1.Text & " " & TextBox2.Text ' вставка текста
Form1.Hide 'закрыть форму

[Aivar]

все сделал норм, но когда ок нажимаю все равно выдает ambiguous name detected: CommandButton1_Click(). Может это из-за того, что ворд у меня 2007?

[Aivar]

спасибо огромное только, что разобрался и понял, что кон4еный я)