* WdParagraphAlignment
#DEFINE wdAlignParagraphLeft 0
#DEFINE wdAlignParagraphCenter 1
#DEFINE wdAlignParagraphRight 2
#DEFINE wdAlignParagraphJustify 3
* WdCellVerticalAlignment
#DEFINE wdCellAlignVerticalTop 0
#DEFINE wdCellAlignVerticalCenter 1
#DEFINE wdCellAlignVerticalBottom 3
* Orientation
#DEFINE wdOrientLandscape 1
#DEFINE cr CHR(13)
* Строка
#DEFINE wdLine 5
#DEFINE wdCell 12
* Линия подчеркивания
#DEFINE wdUnderlineSingle 1
* Повторяющиеся заголовки
#DEFINE wdToggle 9999998
* Разрыв страницы
#DEFINE wdPageBreak 7
*Selection.InsertBreak Type:=wdPageBreak
* WdPageNumberAlignment
#DEFINE wdAlignPageNumberLeft 0
#DEFINE wdAlignPageNumberCenter 1
#DEFINE wdAlignPageNumberRight 2
#DEFINE wdAlignPageNumberInside 3
#DEFINE wdAlignPageNumberOutside 4

SET OLEOBJECT ON
LOCAL lcColZap, nRow, lcPn, lcperz

*-------------- WORD ---------------------------
LOCAL loWord, loWordDoc, loWordTab
loWord = CREATEOBJECT('Word.Application')
loWord.visible = .F.
loWordDoc=loWord.Documents.Add
loWordDoc.PageSetup.Orientation = wdOrientLandscape
loWordDoc.PageSetup.TopMargin = 40
loWordDoc.PageSetup.BottomMargin = 40
loWordDoc.PageSetup.LeftMargin = 40
loWordDoc.PageSetup.RightMargin = 40
*Пред настройки таблицы
loWord.Selection.Font.Size = 12
loWord.Selection.Font.Name = "Times New Roman"
loWord.Selection.Font.Bold = .F.
loWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft && задается до таблицы
*Таблица документа
loWordTab = loWord.ActiveDocument.Tables.Add(loWord.Selection.Range,1,2)
WITH loWord.Selection.Tables(1)
.Columns(1).Width = 560
.Columns(2).Width = 225
.rows(1).Height = 40
* .Style = "Сетка таблицы"
.Cell(1,1).Range.Text = "СОГЛАСОВАНО"
.Cell(1,1).VerticalAlignment = wdCellAlignVerticalCenter && внутри таблицы
.Cell(1,2).Range.Text = "УТВЕРЖДАЮ"
.Cell(1,2).VerticalAlignment = wdCellAlignVerticalCenter
ENDWITH
WITH loWord.Selection
.MoveDown(wdLine,1)
ENDWITH
*Текст документа
WITH loWord.Selection
.Font.Size =12
.Font.Name = "Times New Roman"
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.TypeText("ПРОТОКОЛ №")
.TypeText(+CHR(10)+CHR(13))
.ParagraphFormat.Alignment = wdAlignParagraphLeft
.TypeText("Присутствовали:")
.TypeText(+CHR(13))
.Font.Underline = wdUnderlineSingle
.TypeText("Рассмотрены вопросы и решения:")
* .Font.Underline = .T.
.TypeText(+CHR(13))
.Font.Underline = .F.
.TypeText("Таблица №")
.TypeParagraph
ENDWITH

loWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
SELECT DocName, DocDate, DocTitle, RegNumb, PointNumb, PointSod, D_n, Naimp ;
FROM Otpz INTO CURSOR OtpzWord ORDER BY Otpz.RegNumb
SELECT COUNT(OtpzWord.RegNumb) as colzap FROM OtpzWord INTO CURSOR OtpzWordCol
lcColZap = OtpzWordCol.colzap
*Пред настройки таблицы
loWord.Selection.Font.Size = 12
loWord.Selection.Font.Name = "Times New Roman"
loWord.Selection.Font.Bold = .F.
* loWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft && задается до таблицы

*Таблица документа
loWordTab = loWord.ActiveDocument.Tables.Add(loWord.Selection.Range,lcColZap+1,4)

SELECT OtpzWord
lcperz = 1
nRow = 0
SCAN
lcPn = RECNO()
nRow = nRow + 1
IF lcperz = 1
WITH loWord.Selection.Tables(1)
.Columns(1).Width = 51
.Columns(2).Width = 245
.Columns(3).Width = 245
.Columns(4).Width = 245
* .rows(1).Height = 20
.Style = "Сетка таблицы" && рисует границы таблицы
.Cell(1,1).Range.Text = "№ п/п"
.Cell(1,1).VerticalAlignment = wdCellAlignVerticalCenter && внутри таблицы
.Rows(1).AllowBreakAcrossPages = .F.
.Cell(1,2).Range.Text = "Документ, по которому имеется невыполнение"
.Cell(1,2).VerticalAlignment = wdCellAlignVerticalCenter
.Rows(1).AllowBreakAcrossPages = .F.
.Cell(1,3).Range.Text = "Пункты и его содержание, ответственный и исполнитель, срок исполнения"
.Cell(1,3).VerticalAlignment = wdCellAlignVerticalCenter
.Rows(1).AllowBreakAcrossPages = .F.
.Cell(1,4).Range.Text = "Принятое решение (или № с/з на перенос)"
.Cell(1,4).VerticalAlignment = wdCellAlignVerticalCenter
.Rows(1).AllowBreakAcrossPages = .F.
* .Rows(1).HeadingFormat = wdToggle && здесь эта функц. не работает
ENDWITH
nRow = nRow + 1
lcperz = 0
ENDIF
WITH loWord.Selection.Tables(1)
.Columns(1).Width = 51
.Columns(2).Width = 245
.Columns(3).Width = 245
.Columns(4).Width = 245
.Style = "Сетка таблицы"
.Cell(nRow,1).Range.Text = lcPn
.Cell(nRow,1).VerticalAlignment = wdCellAlignVerticalTop
.Cell(nRow,2).Range.Text = ALLTRIM(OtpzWord.DocName)+' от '+LEFT(TTOC(OtpzWord.DocDate),8)+' '+ALLTRIM(OtpzWord.DocTitle)+' ('+ALLTRIM(OtpzWord.RegNumb)+')'
.Cell(nRow,2).VerticalAlignment = wdCellAlignVerticalTop
.Cell(nRow,3).Range.Text = 'п. '+ALLTRIM(OtpzWord.PointNumb)+' - '+ALLTRIM(OtpzWord.PointSod)+' Отв.: '+ALLTRIM(OtpzWord.Naimp)+' Срок: '+LEFT(TTOC(OtpzWord.D_n),8)
.Cell(nRow,3).VerticalAlignment = wdCellAlignVerticalTop
.Cell(nRow,4).Range.Text = " "
.Cell(nRow,4).VerticalAlignment = wdCellAlignVerticalTop
.Rows.AllowBreakAcrossPages = .F.
.Rows(1).HeadingFormat = wdToggle
ENDWITH
ENDSCAN
loWord.Selection.Sections(1).Footers(1).PageNumbers.Add(wdAlignPageNumberRight, .T.) && нумерация страниц
loWord.visible = .T.