Форум программистов [Powered by Invision Power Board]

Код


procedure TForm1.BitBtn1Click(Sender: TObject);
var
       Rl,Tbl,Word, Doc : OLEVariant;
begin
Screen.Cursor:=crHourGlass;
  try
    Word := CreateOleObject('Word.Application');
  except
    ShowMessage('WORDni topomayamman');
    exit;
  end;
 Doc:=Word.Documents.Add;
  // Word.Selection.PageSetup.Orientation:=wdOrientLandscape; //ALBOMNIY  //Word.Selection.ActiveDocument.PageSetup.Orientation:=wdOrientLandscape;
  //Word.Selection.TypeParagraph; //ENTER paragraf
  // текст по ширине
  //WordParagraphFormat1.Alignment := wdAlignParagraphJustify;
  //  WordParagraphFormat1.ConnectTo(WordApplication1.Selection.ParagraphFormat);
  // интервал перед абзацем
  Word.Selection.ParagraphFormat.SpaceBefore:=6;
  // интервал после абзаца
  Word.Selection.ParagraphFormat.LineSpacing:=8;
  Word.Selection.PageSetup.LeftMargin:=50; //~2.5 см
word.Selection.Font.Bold:=true;
word.Selection.Font.size:=14;
//МОЯ  таблица
      i:=1;
      with ADOQuery2 do
       begin
       First;
       for i:=1 to ADOQuery2.RecordCount do
       begin
       Word.Selection.TypeText(inttostr(i)+'  ');
       Word.Selection.TypeText('   |   ');
       Word.Selection.TypeText(ADOQuery2.FieldByName('date').AsString);
       Word.Selection.TypeText('   |   ');
       Word.Selection.TypeText(ADOQuery2.FieldByName('Kolichestvo').AsString);
       Word.Selection.TypeText('   |   ');
       Word.Selection.TypeText(ADOQuery2.FieldByName('Summa').AsString);
       Word.Selection.TypeText('   |   ');
       Word.Selection.TypeText(ADOQuery2.FieldByName('Naprav').AsString);
       Word.Selection.TypeText('     |    ');
       Word.Selection.TypeText(ADOQuery2.FieldByName('Gb').AsString);
       Word.Selection.TypeParagraph;
       Next;
       end;
     end;

      
word.Selection.Font.Bold:=true;

 // вставляем таблицу___________
Rl:=Word.Selection.Range;

Tbl :=Rl.Tables.Add(Rl,6,5,EmptyParam,EmptyParam);
// устанавливаем стиль внутренних границ
Tbl.Borders.InsideLineStyle:=wdLineStyleSingle;
// устанавливаем стиль внешних границ
Tbl.Borders.OutsideLineStyle:=wdLineStyleSingle;
// форматируем таблицу
// первый столбец
// СУДА хочу внедрит мою таблицу
Tbl.Columns.Item(1).SetWidth(22,wdAdjustNone);
//Тbl.Rows.Item(1).HeadingFormat:=-1;
// второй и т.д.
Tbl.Columns.Item(2).SetWidth(99,wdAdjustNone);
//S:=Tbl.Cell(1, 1).Range.Text;
Word.Selection.TypeText('ПРин:');
//Tbl.Cell(3, 4):='444444444';
Tbl.Columns.Item(3).SetWidth(112,wdAdjustNone);
Word.Selection.TypeText('zzzzzzzzzzzzzzz');
Tbl.Columns.Item(4).SetWidth(112,wdAdjustNone);
Tbl.Columns.Item(5).SetWidth(112,wdAdjustNone);
 Tbl.Cell(1,1).Merge(Tbl.Cell(1,5));
// по аналогии и со строчками
// Перемещаем курсор из таблицы
Word.Selection.MoveDown(EmptyParam, 7, EmptyParam);
// вставляем текст
Word.Selection.TypeParagraph;
Word.Selection.TypeParagraph;
Word.Selection.InsertAfter('текст '+#13);
// снимаем выделение
Word.Selection.Collapse(D);
 Tbl.Cell(Tbl.Rows.Count-1,1).Merge(Tbl.Cell(Tbl.Rows.Count-1,5));
Word.Selection.TypeParagraph;
Word.Selection.TypeText('Умумий сони: ');


Word.Visible:=true;
Screen.Cursor:=crDefault;

Цитата

"хачу внедрит свою таблицу ниже показанаму"

Цитата(mr_tg @ 26.1.2011, 18:12

)

1-высоту документаб

Цитата(mr_tg @ 26.1.2011, 18:12

)

2- сам шрифт к примеру «TIMESnew ROMAN» или «Calibri»

Цитата(mr_tg @ 26.1.2011, 18:12

)

Неполучается.)

Код


по состаянию DD MMMMM YYYY 
нижеперечисленные данные 
в приложении №2....

__________________________________________
| OBSHAYA forma                          |
-----------------------------------------
| 1| 2     | 3    | 4    | 5    | 6      |
------------------------------------------
|1 |  ыыы  | ыыы  |  ввв  |  345|     123|
|2 |    ааа|   ааа|   пррп|  116|     764|
|3 |    ккп|  спмс|   ими |     |        |
...| ...   |   ...|   ....|   ..|     ...|
|n |       |      |       |     |        |
------------------------------------------
itogo po 5 i 6:           |     |        |
------------------------------------------ 
будут переданыы вввввв...

Код


// выгрузка таблицы в word
Procedure LoadInDoc(Columns:TDBGridColumns; Query: TADOQuery);
var i    : Integer;
    Tabl : Table;
    WordDoc: TWordDocument;
    WordApp:TWordApplication;
    R1 : Range;
    Separat, Column : OleVariant;
    s:String;
    List:TStringList;
const
  separ = '@';
begin
// открываем новый документ
WordApp:=TWordApplication.Create(nil);
WordApp.ConnectKind:=ckNewInstance;
WordApp.AutoConnect:=False;
WordApp.AutoQuit:=False;
WordApp.Connect;
WordApp.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam);
WordDoc:=TWordDocument.Create(nil);
WordDoc.ConnectTo(WordApp.ActiveDocument);
WordDoc.PageSetup.Orientation:=wdOrientLandscape;
// добавляем новыю таблицу
R1:=WordApp.Selection.Range;
Tabl:=WordDoc.Tables.Add(R1,1,Columns.Count,EmptyParam,EmptyParam);
// заполняем шапку
for i:=0 to Columns.Count-1 do
   Tabl.Cell(1, i+1).Range.Text:=Columns.Items[i].Title.Caption;
// делаем повтор на каждой странице
Tabl.Rows.Item(1).HeadingFormat:=-1;
// добавляем новый параграф
R1:=WordDoc.Range.Paragraphs.Add(EmptyParam).Range;
// инициализируем нужные переменные
Separat:=separ;
Column:=Columns.Count;
List:=TStringList.Create;
Query.First;
repeat
   s:='';
   // формируем строку
   for i:=0 to Query.FieldCount-1 do
      s:=s+Query.Fields.Fields[i].AsString+separ;
   // добаляем в лист
   List.Append(s);
   // чтоб не перегружать word большими таблицами добавляем кусками
   if List.Count>=25 then
     begin
     // преобразуем в таблицу
     s:=StringReplace(List.Text,#13#10,'',[rfReplaceAll]);
     R1.InsertAfter(s);
     R1.ConvertToTable(Separat, EmptyParam, Column,
                       EmptyParam, EmptyParam,
                       EmptyParam, EmptyParam, EmptyParam,
                       EmptyParam, EmptyParam, EmptyParam,
                       EmptyParam, EmptyParam, EmptyParam,
                       EmptyParam, EmptyParam);
     R1:=WordDoc.Range.Paragraphs.Add(EmptyParam).Range;
     List.Clear;
     end;
   Query.Next;
   until (Query.Eof);
// добиваем остатки
if List.Count>0 then
   begin
   // преобразуем в таблицу
   s:=StringReplace(List.Text,#13#10,'',[rfReplaceAll]);
   R1.InsertAfter(s);
   R1.ConvertToTable(Separat, EmptyParam, Column,
                     EmptyParam, EmptyParam,
                     EmptyParam, EmptyParam, EmptyParam,
                     EmptyParam, EmptyParam, EmptyParam,
                     EmptyParam, EmptyParam, EmptyParam,
                     EmptyParam, EmptyParam);

   List.Clear;
   end;
Tabl.Borders.InsideLineStyle:=wdLineStyleSingle;
Tabl.Borders.OutsideLineStyle:=wdLineStyleSingle;
// освобождаем память
List.Free;
WordApp.Visible:=True;
WordDoc.Disconnect;
WordApp.Disconnect;
WordDoc.Destroy;
WordApp.Destroy;
end;

Код


R1:=WordDoc.Range.Paragraphs.Add(EmptyParam).Range;