己經知道用 WordApplication1.ActiveDocument.Tables.Item(1).Cell(1.1).Range.Select; 可以選取表格裏的第一格 那請問如何能夠一次選取多列呢?? 謝謝!

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;    type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;
  WordApp:Variant;
  NewDoc:Variant;
  NewTable:Variant;
  Range:Variant;
implementation
  uses comobj;
{$R *.dfm}    procedure TForm1.Button1Click(Sender: TObject);
var
 i,j,s:Integer;
begin
 WordApp :=CreateOleObject('word.application');
 WordApp.visible :=True;
 NewDoc :=WordApp.Documents.add;
 Range :=WordApp.Selection.Range;
 NewTable :=NewDoc.tables.Add(range,9,9);
 for i:=1 to 9 do
  for j:=1 to 9 do
   begin
    s:=i*j;
    NewTable.cell(i,j).Range.Text:=IntToStr(i) '*' IntToStr(j) '=' IntToStr(s);
  end;
end;    //第一種：欄位選取合併方式
procedure TForm1.Button2Click(Sender: TObject);
begin  
  NewTable.Cell(1, 1).Merge (NewTable.Cell(1, 9));
end;    end.    //---------------------------------------------------------
//第二種：列選取合併方式
procedure TForm1.Button2Click(Sender: TObject);
var
 QRow :Variant;
begin
   //選擇第一列
   QRow:=NewTable.Rows.Item(1);
   //執行合併
   QRow.Cells.Merge;
end;

網海無涯，唯學是岸！ 發表人 - qoo1234 於 2004/08/31 20:58:34

感謝qoo大大... 不過大大可能誤會我的意思了.... 我的意思是...像在Word裏面可以一次托拉選取多列...然後直接選刪除列... 那就可以一次刪除多列了..... 目前是以迴圈的方式一列一列的刪除.... 不過這樣速度太慢了.... 不知道有沒有別的比較快的方法可做到這樣的功能 ^^"

貼上程式碼: if WordApplication1.ActiveDocument.Tables.Item(1).Rows.Count > 1 then begin While WordApplication1.ActiveDocument.Tables.Item(1).Rows.Count > 1 do begin WordApplication1.ActiveDocument.Tables.Item(1).Cell(WordApplication1.ActiveDocument.Tables.Item(1).Rows.Count,1).Select; WordApplication1.Selection.Rows.Delete; end; end;

要選取一個範圍可以如下 :

function SelectTableRange(t:Table; r1,c1,r2,c2:integer):Range;
var 
  x1,x2:olevariant;
begin
  x1:=t.cell(r1,c1).Range.Start;
  x2:=t.cell(r2,c2).Range.end_;
  Result:=ActiveDocument.Range(x1,x2);
end;

若要選取連續的row也可以先選一row後用MoveEnd或MoveStart 如果Visible=True也可以

var vUnit,Extend:Olevariant;
begin
  vUnit:=wdLine;
  Extend:=wdExtend;
  table.cell(1,1).select;
  selection.MoveDown( Vunit, I, Extend );
end;