Snow OwlЯ попыталась это немного переделать (по Базияну)
oDoc=Createobject('word.application')
oDoc.Visible = .t.
With oDoc
.documents.Add('forma.dot',false)
.selection.Fields(1).Result.text="Текст"
endwith
Пути доступа определены ранее установкой set default to
SET DEFAULT - это настройка FoxPro.
Команда oDoc.documents.Add() - это некоторая "функция", которая принимает некий символьный параметр. Разбор этого параметра происходит уже не в среде FoxPro, а непосредственно в COM-объекте. Этот COM-объект ничего не знает о настройках FoxPro. Поэтому SET DEFAULT ему ничего не скажет.
Надо передать имя файла с полным путем доступа. Можно так:
1.
2.
3.
4.
5.
LOCAL loWord, loDoc
loWord=Createobject('word.application')
m.loWord.Visible = .t.
loDoc = m.loWord.documents.Add(FULLPATH('forma.dot'),false)
m.loDoc.Fields( 1 ).Result.text="Текст"
Функция FullPath() как раз и сформирует необходимую символьную строку имени файла с полным путем доступа относительно текущей директории.
Snow OwlКак добавить следующую строку.
m.loDoc.Tables(1).Rows.Add()
вставляет одну строку после последней строки данной таблицы. Соответсвенно получаем:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
LOCAL lnI, lnK
lnI= 1
SCAN FOR m.lnI<=(m.lnK+ 1 )
m.lnI=m.lnI+ 1
IF (m.lnI> 2 )
m.loDoc.Tables( 1 ).Rows.Add()
ENDIF
m.loDoc.Tables( 1 ).Cell(m.lnI, 1 ).Range.Text=m.lnI- 1
m.loDoc.Tables( 1 ).Cell(m.lnI, 2 ).Range.Text=kod
m.loDoc.Tables( 1 ).Cell(m.lnI, 3 ).Range.Text=nazva
m.loDoc.Tables( 1 ).Cell(m.lnI, 4 ).Range.Text=kilkist
m.loDoc.Tables( 1 ).Cell(m.lnI, 5 ).Range.Text=prise
m.loDoc.Tables( 1 ).Cell(m.lnI, 6 ).Range.Text=o_sum
m.loDoc.Tables( 1 ).Cell(m.lnI, 7 ).Range.Text=prisez
m.loDoc.Tables( 1 ).Cell(m.lnI, 8 ).Range.Text=o_summaz
ENDSCAN
