procedure TForm1.Button1Click(Sender: TObject);
var word,count,n,Unit_,extend :OleVariant;
begin
n:='C:\document1.doc';
Unit_:=wdCharacter;
extend:= wdExtend;
count:=2;
WordApplication1.Documents.Open(n,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,
emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,
emptyparam,emptyparam,);
WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
WordApplication1.Selection.MoveRight(unit_,count,extend);
WordApplication1.Selection.Cells.Merge;
end;
Как объединить ячейки в таблице Word?
Пытался я так: выделить
doc.ActiveWindow.Selection.MoveRight( Unit:=wdCell,wdExtend:=true);
Ругается:Method MoveRight not supported by automation object
Как можно выделить ячейки в таблице и объединить их?
doc.ActiveWindow.Selection.MoveRight( Unit:=wdCell,wdExtend:=true);
Ругается:Method MoveRight not supported by automation object
Как можно выделить ячейки в таблице и объединить их?
Код:
вот так вот у меня нормально работает объединение ячеек...вощем в конце попробуй добавить doc.ActiveWindow.selection.cells.merge; тогда должно заработать. Удачи!
и еще....когда что то не получается-юзай макросы в ворде