Манипуляции с Вордом из под Дельфи

[Polotenchik]

Сообщение от vovk

нету и небыло.. и думаю не будет, есть в ворде возможность екселевские таблички вставлять.. как организовать не знаю... но если так надо(сомневаюсь в нужности этого действия), то тут вплотную надо скриптами VB занятся по моему

Ну да! Вон в 6-ом сообщение я написал, что выдает скрипт ворда. Надо узнать каким образом воспринимает Delphi значение wdOMathFunctionScrSup.

Вот http://msdn.microsoft.com/en-us/library/bb243322.aspx тут даже есть номера всех функций, но я всеравно никак это не смог связать с Дельфи. Уже замучался колдовать...

П.С или тут номерки http://www.access-im-unternehmen.de/...merationen.txt
http://www.msckobe.com/links/win32oleconstword.htm

если сделать так:

W.Selection.OMaths.Add(W.Selection.Range, 19);

То ругается на Add.

[pesi]

procedure TForm1.Button1Click(Sender: TObject);
const
  wdCaptionPositionAbove = $00000000;   //расположить сверху
  wdCaptionPositionBelow = $00000001;  //расположить снизу
var
  W, Table : Variant;
 i, j: Integer;
begin
  W := CreateOleObject('Word.Application');
  W.Documents.Add;
  W.ActiveDocument.Tables.Add(W.ActiveDocument.Range, 4, 5);
  Table := W.ActiveDocument.Tables.Item(1);
  Table.Style := 'Сетка таблицы';

    for i := 1 to 3 do
    for j := 1 to 5 do
    begin
      Table.Cell(i , j).Range.Text := random(99);
    end;

  Table.Cell(4 , 1).select;
  w.selection.InsertFormula(Formula:='=SUM(ABOVE)', NumberFormat:='0,00'); //вставляем формулу

  W.ActiveDocument.Tables.item(1).select; 
  w.Selection.InsertCaption(Label:='Таблица', Title:='444', 
Position:=wdCaptionPositionAbove, ExcludeLabel:=0); //вставляем название таблицы

  W.Visible := True;
end;

[Polotenchik]

pesi, что-то не то. мне формулу надо не в таблицу вставить, а просто. Т.е что-то типа http://itrash.ru/idb/4e959f1caa9bb9c...70b/o23.08.png

П.С Сперва будет идти сама формула потом после равно подставленные значения (должны браться из editов) ну и еще одно равно и результат. Результат уже известен и тоже берется из edit. Т.е все уже известно надо лишь это отобразить в ворде.

А так же никак не могу объединить ячейки в столбце.

[pesi]

  Table.Cell(2 , 1).select; //встаем в нужную ячейку
  w.Selection.MoveDown( Count:=1, Extend:=true ); // выделяем одну нижнею  
  w.Selection.MoveRight( Count:=2, Extend:=true ); // выделяем  две справа 
  w.selection.cells.merge; // объединяем

или так

start_ := w.ActiveDocument.Tables.item(1).Cell(1,1).Range.Start;
end_ := w.ActiveDocument.Tables.item(1).Cell(2,3).Range.End;
w.ActiveDocument.range(start_, end_).select;
w.selection.cells.merge;

[Polotenchik]

Pesi, ругается на

w.selection.cells.merge;

Говорит данная команда не доступна.

[pesi]

я даже и не знаю...
у меня оба варианта работают может от Word зависит (у мня Word 2003 )

procedure TForm1.Button7Click(Sender: TObject);
var
  W, Table : Variant;
begin
  W := CreateOleObject('Word.Application');
  W.Documents.Add;
  W.Visible := True;
  W.ActiveDocument.Tables.Add(W.ActiveDocument.Range, 4, 5);
  Table := W.ActiveDocument.Tables.Item(1);
  Table.Style := 'Сетка таблицы';
  Table.Cell(2 , 1).select; 
  w.Selection.MoveDown( Count:=1, Extend:=true ); 
  w.Selection.MoveRight( Count:=2, Extend:=true ); 
  w.selection.cells.merge; 
end;

[Polotenchik]

А у меня 2007-ой. Может там как-то по другому. Сейчас попробую макрос создать посмотрю как там...

О блин! Создал новое приложение с твоим примером, все работает! Значит я что-то напутал. Сейчас буду смотреть. Спасибо огромное! Можешь и с формулой поможешь разобраться ?!

П.С Супер! Все отлично заработало! Я там просто уже перемудрил сперва... Спасибо большое!

[pesi]

procedure TForm1.Button9Click(Sender: TObject);
const
wdOMathJcLeft = 3; // лево
wdOMathJcRight = 4; // право
wdOMathJcCenter = 2; // центр
wdOMathJcCenterGroup = 1; //  выравнять группу по центру
var
  W, t : Variant;
begin
  W := CreateOleObject('Word.Application');
  W.Documents.Add;
  W.Visible := True;
  w.selection.text:=
  'Сперва будет идти сама формула потом'+
' после равно подставленные значения'+
' (должны браться из editов) ну и еще'+
' одно равно и результат. Результат уже'+
' известен и тоже берется из edit. Т.е все'+
' уже известно надо лишь это отобразить в ворде.';
  t:=w.ActiveDocument.characters.count;
  w.selection.move(1, t);
  w.selection.typeparagraph;
  w.ActiveDocument.range.insertafter('4^2/2=2');

  w.Selection.MoveRight( Count:=7, Extend:=true);

  w.Selection.OMaths.Add(w.Selection.Range);
  w.Selection.Range.OMaths.BuildUp;
  w.Selection.OMaths.item(1).ParentOMath.Justification:= 3;
end;

[Polotenchik]

pesi, это выше всех похвал! Спасибо большое! Можно немного разъяснить?:

....
begin
  W := CreateOleObject('Word.Application');
  W.Documents.Add;
  W.Visible := True;
  w.ActiveDocument.range.insertafter('4^2/2=2'); //Просто вставляем текст в линейном виде. Не понял что такое insertafter ?
  w.Selection.MoveRight( Count:=7, Extend:=true); //Выделяем этот текст
  w.Selection.OMaths.Add(w.Selection.Range); //Вставляем его в формулу
  w.Selection.Range.OMaths.BuildUp; //Из линейного вида делаем профессиональный (т.е превращаем в формулу)

Все так? insertafter не ясно что такое.

[pesi]

Метод insertafter вставляет текст в конец содержимого range. Есть еще insertbefore только он записывает в начало содержимого range