Реализация кода из Exel в Word

[Dark]

Уважаемые жители форума подскажите пожалуйста возможно ли заполнение палей документа doc из UserForm Exel'я?? По принципу

GoTo What:=wdGoToBookmark, Name:="ДолжностьОтветственногоСотрудникаЛИСТПОС"
.TypeText Text:=TextBox2

Т.е. есть документ Ехеl который открывается и высвечивает форму Userform1, после ее заполнения и нажатия кнопки CommandButtom1 (Выполнить), должен открываться документ doc и в текст по средствам закладок должны вставляться данные из UserForm документа Exel.
Код открытия документа doc из Exelя есть,а как реализовать остальное незнаю.Просто дело в том, что в exele будет идти подсчет, а форма заполнения документов находиться в word.Помогите пожалуйста кто, чем может.
Заранее благодарен!!

[demon416]

вот кусок кода создающего вордовский документ из данных акцесса в екселе аналогично

Код: Выделить всё

Dim wd As New Word.Application

On Error Resume Next
wd.Documents.Add
Form_All.SetFocus
'***********************************************************************************************************************
wd.Selection.PageSetup.LeftMargin = CentimetersToPoints(0.5)
wd.Selection.PageSetup.RightMargin = CentimetersToPoints(0.5)
wd.Selection.PageSetup.TopMargin = CentimetersToPoints(0.5)
wd.Selection.Font.Bold = True
wd.Selection.Font.Size = 14
wd.Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
wd.Selection.TypeText Str(Form_All.№_ключа) + " " + Form_All.Наименование_клиента + vbCrLf
wd.Selection.Font.Bold = False
wd.Selection.Font.Size = 12
wd.Selection.TypeText Form_All.Адрес + " ; " + Form_All.[Как доехать] + vbCrLf
wd.Selection.TypeText Form_All.Конфигурация

If (Form_All.ИО <> "") Then
wd.Selection.TypeText " + " + Form_All.ИО
End If

If (Form_All.СлПерс <> "") Then
wd.Selection.TypeText " + " + Form_All.СлПерс
End If

база в приложении

[Teslenko_EA]

Здравствуйте Dark.
ести Вы хотите "разложить" содержимое полей формы по закладкам документа Word.
Это можно выполнить подобным образом:

Код: Выделить всё

Function outToWord()
Dim oDot As Object
Dim appl As Object 'Word.Application
    Set appl = CreateObject("Word.Application")
    appl.Visible = True
    Set oDot = appl.Documents.Open("C:\Doc.doc")
    With oDot.Bookmarks
        .Item("Bookmar1").Range.Text = TextBox1.Text
        .Item("Bookmar2").Range.Text = TextBox2.Text
        '........
    End With
    Set appl = Nothing
End Function

Евгений.