Макрос для формирования документа Word

Guest

Гость

08.03.2010 20:04:35

Есть данные в Excel, на основе которых нужно сформировать документ Word, например распоряжение (См. вложение). Как это прописать макросом.
Прошу учесть что VBA я только начинаю изучать!

Прикрепленные файлы

post_106509.rar (15.43 КБ)

Guest Гость	#2 08.03.2010 20:49:23 Хватит и формулы для XL: "="1.Спишите со счета "&B2&" и зачислите на счет "&A2&" по договору "&C2&" от "&ТЕКСТ(D2;"дд.ммм.гггг")". Далее - потягушки за правый нижний... Z.

luzinserg

Пользователь

Сообщений: 26 Регистрация: 01.01.1970

10.03.2010 20:15:00

{quote}{login=}{date=08.03.2010 08:49}{thema=}{post}Хватит и формулы для XL: "="1.Спишите со счета "&B2&" и зачислите на счет "&A2&" по договору "&C2&" от "&ТЕКСТ(D2;"дд.ммм.гггг")". Далее - потягушки за правый нижний...
Z.{/post}{/quote}

Это для Excel, а мне нужно, чтобы данные попали в Word

luzinserg Пользователь Сообщений: 26 Регистрация: 01.01.1970	#4 10.03.2010 20:52:12 Пожалуйста помогите кто нибудь, очень надо

Guest

Гость

10.03.2010 20:54:48

Sub Create_Word_Doc() 'The_Prist http://www.planetaexcel.ru/forum.php?thread_id=14168
Dim wbApp As object,wDoc As object,sStr as string

sStr = "до города " & Range("A2") & " осталось " & Range("A1")
Set wbApp = CreateObject("Word.Application"):wbApp.Visible = True
Set wDoc = wbApp.Documents.Add
wbApp.Selection.Text = sStr
wDoc.SaveAs Filename:="C:\Test.doc"
wDoc.Close:wbApp.Quit
Set wDoc = Nothing:Set wbApp = Nothing
End Sub

у меня правда не работает:(

luzinserg Пользователь Сообщений: 26 Регистрация: 01.01.1970	#6 11.03.2010 19:52:39 Спасибо огромное. Очень помогли!

Читают тему