nWidthTsb := oBrw:GetAllColsWidth()    // ширина всех колонок таблицы в пикселах

   oWord:ActiveDocument:PageSetup:LeftMargin := 72.0  //~2.5 см 
  
    // книжная ориентация 
    oWord:ActiveDocument:PageSetup:Orientation := wdOrientPortrait 
  
    // альбомная ориентация 
    oWord:ActiveDocument:PageSetup:Orientation := wdOrientLandscape

      oWord:ActiveDocument:PageSetup:PaperSize := wdPaperA3  // лист A3

oWord:ActiveDocument:PageSetup:PaperSize := wdPaperA4  // лист A4

 
       // Word имеет ограничение в установке размеров - 55,87 см по любой из сторон листа.  
       // 55.87 сантиметров равно 1 583.717 пунктов 
       // Высоту листа возьмем как у A4 (210х297 мм) == 297 
       // 297 миллиметров равно 841.889862 пункта  
       oWord:ActiveDocument:PageSetup:PageWidth = 1583 
       oWord:ActiveDocument:PageSetup:PageHeight = 841 
       // книжная ориентация 
       oWord:ActiveDocument:PageSetup:Orientation := wdOrientPortrait

   nLenHead++ // шапка таблицы 
    if AScan( oBrw:aColumns, { |o| o:cFooting != Nil  } ) > 0 
      nLenHead++ 
    endif 
    nRowDbf := oBrw:nLen - oBrw:nAt + nLenHead + 1  // кол-во строк в таблице + шапка + подвал таблицы 
    nColDbf := Len( oBrw:aColumns )                 // кол-во столбцов в таблице 
    // ------- создание таблицы --------------- 
    oRange = oActive:Range(len(cTitle)+2) 
    // таблица с автоподстройкой по ширине странице 
    oTbl:= oWord:ActiveDocument:Tables:Add(oRange,nRowDbf,nColDbf,wdWord9TableBehavior,wdAutoFitContent)

   TRY 
       oWord := GetActiveObject( "Word.Application" ) 
    CATCH 
       TRY 
          oWord := CreateObject( "Word.Application" ) 
       CATCH 
          cMsg := "Не могу запустить - Microsoft Word  (Ошибка:" + Ole2TxtError() + ")!;;" 
          cMsg += "(Не установлен на этом компьютере !);" 
          MsgStop(cMsg,"ОШИБКА!") 
          RETURN NIL 
       END 
    END

   Try 
       oWord := CreateObject( "Word.Application" ) 
    Catch 
       cMsg := REPLICATE( "-._.", 16 ) + ";;" 
       cMsg += SPACE( 5 ) + "On this computer MS Word is not installed !;;" 
       cMsg += SPACE( 5 ) + " Error code [" + win_oleErrorText() + "];;" 
       cMsg += SPACE( 5 ) + " Error code [" + Ole2TxtError() + "];;" 
       cMsg += REPLICATE( "-._.", 16 ) + ";;" 
       cMsg := AtRepl( ";", cMsg, CRLF ) 
       MsgStop( cMsg , "Error!") 
       Return .F. 
    End Try

 
    ..... 
    oWord := TOleAuto():New( "Word.Application" ) 
    oDocs := oWord:Documents 
    oDocs:Open( cFileDoc ) 
    oActive := oWord:ActiveDocument 
    oSelect := oWord:Selection 
    oMarks  := oActive:BookMarks 
  
    MyDocFindRepl(oWord, aDocVal)  // Функция поиска и замена простых переменных по тексту doc 
       
    MyDocTable(oWord, oSelect, aDimDbf)  // Функция поиска и замена для таблицы по тексту doc 
  
    oWord:Visible := lActivate        // значение равно .T.  
    oWord:WindowState := 1        // Maximize 
    oWord:Selection:HomeKey(6)  // начало документа 
  
    oActive:Saved := lSave       // значение равно .T. 
    oActive:SaveAs( cFileDoc )  // сохранить документ 

Sub Макрос9_подвал() 
 ' 
 ' Макрос9_подвал Макрос 
 ' 
     If ActiveWindow.View.SplitSpecial <> wdPaneNone Then 
         ActiveWindow.Panes(2).Close 
     End If 
     If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _ 
         ActivePane.View.Type = wdOutlineView Then 
         ActiveWindow.ActivePane.View.Type = wdPrintView 
     End If 
     ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader 
     If Selection.HeaderFooter.IsHeader = True Then 
         ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter 
     Else 
         ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader 
     End If 
     Selection.Font.Size = 10 
     Selection.TypeText Text:="Строка тест 1" 
     Selection.TypeParagraph 
     Selection.TypeText Text:="Строка тест 2" 
     Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend 
     Selection.HomeKey Unit:=wdLine, Extend:=wdExtend 
     Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter 
     ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument 
 End Sub

Добавление текста в нижние колонтитулы документа: 
 Следующий пример кода задает шрифт текста, который необходимо вставить в основной нижний колонтитул каждого 
 раздела документа, а затем вставляет текст в нижний колонтитул. В этом примере кода используется активный документ. 
      
 For Each section As Word.Section In Me.Application.ActiveDocument.Sections 
     Dim footerRange As Word.Range = section.Footers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary).Range 
     footerRange.Font.ColorIndex = Word.WdColorIndex.wdDarkRed 
     footerRange.Font.Size = 20 
     footerRange.Text = "Confidential" 
 Next 
 

-lminigui 
 -ltsbrowse.lib 
 -lhbole 
 -lhbwin 
 -lxhb

-lminigui 
 -ltsbrowse.lib 
 -lhbwin 
 -lhbole 
 -lxhb

/////////////////////////////////////////////////////////////////////////////////////////// 
 // Функция замены и вставки нижнего колонтитула в doc 
 // The function to replace and insert the footer in doc 
 FUNCTION MyDocFooter(oActive, aStroka) 
    Local footerRange, oSection, ofooterRange, oRange  
    Local aFColor, nI, cStroka := "" 
  
    //aStroka := { "Тестовая строка № 1", "Тестовая строка № 2", "Тестовая строка № 3" } 
    For nI := 1 TO LEN(aStroka) 
       cStroka += aStroka[nI] 
       If nI != LEN(aStroka) 
          cStroka += CRLF  
       Endif 
    Next 
  
    aFColor := BLUE // цвет текста 
    For Each oSection In oActive:Sections   // строка 914 - вылет здесь  
        ofooterRange  := oSection:Footers 
        For Each footerRange In ofooterRange 
           oRange := footerRange:Range 
           oRange:Font:Color :=  RGB(aFColor[1],aFColor[2],aFColor[3]) 
           oRange:Font:Name := "Times New Roman"    
           oRange:Font:Size := 10 
           oRange:Font:Bold := .T. 
           oRange:Text = cStroka  
           oRange:ParagraphFormat:Alignment = wdAlignParagraphCenter 
        Next 
    Next  
  
    RETURN NIL