Решил задачу на примере вот этого http://www.planetaexcel.ru/forum.php?thread_id=19286  
 
Юрий М - спасибо большое ) Очень благодарен.  
 
Вот код что получился в итоге - может кому пригодиться...    
 
Sub Макрос1()  
 
Dim sOM As String, sDocNum As String  
Dim WordApp As Object  
 
   sOM = "G:\0. Шаблоны\Постановление.doc"  
   xData = Range("A1").Value  
   xFIO = Range("A2").Value  
   xS = Range("A3").Value  
   xAdr = Range("A4").Value  
   xVidIs = Range("A5").Value  
     
   'sOM = Range("B9").Value  
   'sDocNum = Range("B11").Value  
   On Error Resume Next  
   Set WordApp = GetObject(, "word.application")  
   If WordApp Is Nothing Then  
       Set WordApp = CreateObject("word.application")  
   End If  
   On Error GoTo 0  
   With WordApp  
       .Visible = True  
       .Documents.Open Filename:=sOM  
   End With  
   WordApp.ActiveDocument.Bookmarks("vData").Range.Text = xData  
   WordApp.ActiveDocument.Bookmarks("vFIO").Range.Text = xFIO  
   WordApp.ActiveDocument.Bookmarks("vS").Range.Text = xS  
   WordApp.ActiveDocument.Bookmarks("vAdr").Range.Text = xAdr  
   WordApp.ActiveDocument.Bookmarks("vVidIs").Range.Text = xVidIs  
   Set WordApp = Nothing  
 
End Sub  
 
Код берет из Excel данные ячеек и вставляет их в закладки в Word. Когда получилось оказалось всё проще чем думал.    
 
Если что то вот адрес страницы в контакте - http://vkontakte.ru/popov_sergey_vladimirovich

Исходные данные

Всем доброго времени суток.  
Предистория: хочу автоматизировать повторяющиеся действия.    
 
Ввожу первоначальные данные в Excel. (Прикрепленный документ Исходные данные). Нажимаю кнопку "выполнить". Данные вбиваются в 2 документа в соответствующие места, каждый сохраняется под своим именем в нужном месте, оригинал в своей папке. Так же 1 копия документа выделяется и копируется в Word, сохраняется куда нужно.  
Просидел целый день но не смог сделать что бы передать данные в Word не таблицей. Пришел к варианту код -  
 
Private Sub Ok_Click()  
With ActiveDocument.Content.Find  
.Execute FindText:="XXX1", ReplaceWith:=TextBox1  
.Execute FindText:="XXX2", ReplaceWith:=TextBox2  
......................  
.Execute FindText:="XXXn", ReplaceWith:=TextBoxN  
End With  
End Sub  
 
Тоесть теперь у меня есть уже готовый документ Word (Постановление) и мне нужно прикрепленного документ "Исходные данные" вставить в ворд в определенные места Вместо XXX1 нужные данные.    
 
Вопросы.  
1. Как переменной присвоить значение ячейки Excel.  
2. Как открыть из Excel макроса нужный документ Word.  
3. Может кто чего толковое подскажет как можно осуществить то что я пытаюсь сделать...  
 
В школе хорошо кодил на бейсике (олимпиады) сейчас занимаюсь AutoIT (скрипты). Нужен совет. Либо ссылка на подробное описание лексики VBa.  
 
Заранее спасибо!