Да с Quit перепутал. Про остальное не знал. Спасибо за разъяснение.  
Может быть я не понял, но зачем для примера файл doc , тк я предпологал замену по значению, из кода видно, что !Значение1 в doc заменится на значение в ячейке А1.

Ругается на 2 End With  
End With  
End With  
Next li

{quote}{login=The_Prist}{date=24.06.2010 11:18}{thema=}{post}Я писал в форум не проверяя, ...Ну или...{/post}{/quote} Генератор ответов сбойнул?:-)

Вышло вот так, но ругается 438 - объект не поддерживает этот метод или свойство  
и ругается на строчку    
asArr = Range("A1:C" & Cells(Rows.Count, 1).ens(xlUp).Row)  
 
 
 
Sub TestExcelToWordPrint()  
Dim objWord As Object, objDocument As Object  
Dim asArr, li As Long  
 
asArr = Range("A1:C" & Cells(Rows.Count, 1).ens(xlUp).Row)  
Set objWord = CreateObject("Word.Application")  
If Err.Number Then  
MsgBox "C:\DocName.doc"  
Exit Sub  
End If  
 
Application.ScreenUpdating = False  
Set objDocument = objWord.Documents.Open(Filename:="C:\DocName.doc")  
Set myRange = objDocument.Content  
For li = 1 To UBound(avarr, 1)  
If avarr(li, 1) = "a" Then  
With myRange.Find  
.ClearFormatting  
.Execute FindText:=avarr(li, 2), ReplaceWith:=avarr(li, 3), Replace:=wdReplaceAll  
End With  
End If  
Exit For  
Next li  
 
objWord.Quit  
Set myRange = Nothing: Set objDocument = Nothing: Set objWord = Nothing  
Application.ScreenUpdating = True  
End Sub

Да, не сам, нашел в инете на форуме, скорее не внимательность не увидел орф ошибку, но я заменил Ваши avarr на asarr), а так, конечно, не знаю я вба))  
 
В файле видно как отрабатывает макрос)акромя строк 7,8,9 - остальное не знаю что такое вообще)  
 
Вопрос все же был связан и с печатью, т.е. например: выделили мы ячейку а2 нажали на кнопку данные из этой строки перенеслись в ворд с заменой и печать.  
 
Спасибо за помощь.

Да, не додумал до конца алгоритм, цикл не нужен.    
Лист ексель такой какой есть,данные для переноса в ворд в столбцах С,D,Е,F,G, далее выделяем ячейку А5 нажимаем на кнопку "печать" - данные передаются в ворд и документ распечатывается. Т.е. данные передаются из той строки в которой выделена ячейка в столбце А.

плохой файл?  
 
Спасибо

Метка - это столбец просто так назвал.  
А так как было так и остается:  
 
Данные для переноса в ворд в столбцах С,D,Е,F,G, далее выделяем, например, ячейку А5, нажимаем на кнопку "печать" - данные передаются в ворд и документ распечатывается.    
 
Т.е. данные передаются из той строки в которой выделена ячейка в столбце А.

А может тут вообще слиянием можно обойтись?

The_Prist  
 
переносятся в ворд только FIO, остальное так и остается data1,data2,data3,data4