Set app = server.CreateObject( "Word.Application" )

With app
	.Documents.Add server.MapPath( "openprj.dot" ),false, 0 ,true
	.Selection.MoveDown wdLine,  2 
	.Selection.TypeText  "мой текст" 
	.Selection.MoveDown wdLine,  2 

... 

<%
'Скрипт - ssi вложение для формирования отчета в формате ворд на стороне клиента'
sub show_word_report()


on error resume next


response.Write  "<script language=vbscript >"  & vbcrlf

'константы ворда'
response.Write  "const wdCell= 12 " & vbcrlf
response.Write  "const wdLine = 5 " & vbcrlf
response.Write  "const wdCharacter = 1 " & vbcrlf

'открыть ворд'
response.Write  "set app = CreateObject("  "Word.Application"  ")"  & vbcrlf
response.Write  "With app"  & vbcrlf
response.Write  " app.visible = true"  & vbcrlf

'открыть шаблон'
response.Write  "   .Documents.Open "  "http://MYSERVER/MYBLANC.doc"  ", False, True, False,"  """ , """  ", False, "  """ ,  """  ",  0 " & vbcrlf

.....

'Добавление текста по условию'
if  isnull(prj) then
   response.Write  ".Selection.TypeText "  "присвоить код проекта "  "" & vbcrlf  
else 
   response.Write " .Selection.TypeText  ""скорректировать бюджет проекта "  & prj &  """  " & vbcrlf  '"'
end if


.....

'Добавление строки в таблицу'" 
response.Write  ".Selection.InsertRowsAbove 1 " & vbcrlf
    
.....

'переход на ячейку вправо'
    response.Write  ".Selection.MoveRight wdCell, 1 " & vbcrlf
 
....

'ввод текста из поля рекордсета'
    response.Write  ".Selection.TypeText "  "" & rst(" sum_sub ") & "  """  & vbcrlf
.....

'переход на строку ниже'
    response.Write  ".Selection.MoveDown wdLine, 1 " & vbcrlf
.....

'ввод в нижний колонтитул'

response.Write  ".activewindow.activepane.view.type = 3 " & vbcrlf
response.Write  ".activewindow.activepane.view.seekview = 10 " & vbcrlf
response.Write  ".Selection.TypeText "  "" & " документ №  " & id_prj_planing & "  """  & vbcrlf
response.Write  ".activewindow.activepane.view.seekview = 0 " & vbcrlf



response.Write  " end with"  & vbcrlf
response.Write  " </script>"  & vbcrlf


if err.number <>  0  then 
response.Write err.Description &  "<br>" 
response.write  "При невозможности вывода документа в формате ворд следует воспользоваться более простой формой - нажмите кнопку <печать>" 
else
response.write  "Сообщение об открытии / изменении бюджета проекта успешно сформировано в формате WINWORD"  
%>
<br>
Внимание! Данный документ предназначен только для печати.<br> Никакие изменения сделанные в нем учтены в базе данных не будут. 

<%


end if
end sub
%>