假設下例是word裡面某一個表格中的資料,裡面的文字有三行 A,B,C 這三行

┌─────┐
│AAAAAAAAA│  --> 這一行裡面的字要變藍色
│BBBBBBBBB│  --> 這一行裡面的字要變紅色
│CCCCCCCCC│  --> 這一行裡面的字要變綠色
│          │
│          │
└─────┘

請教各位大大,如何調整word 表格中的文字的顏色,各行都有不同的顏色 我試一試,只能調整全部的顏色,不能每行調,是否需要選定範圍再進行顏色的 選擇呢? 也看過之前的範例,好像沒有看到過,或者是漏看到了~ 可否請各位前輩指導一下~ 發表人 - qoo1234 於 2005/01/17 19:18:44

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,Word2000;
{$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);
var
 Linecount:OleVariant;
  _Unit,_Extend:OleVariant;
begin
 Linecount:=0;
 _Unit:=wdLine;
 _Extend:=wdMove;
 WordApp.Selection.MoveDown(_Unit,LineCount,_Extend);
 WordApp.Selection.SelectRow;
 WordApp.Selection.Font.Name := '標楷體';
 WordApp.Selection.Font.Color:=clblue;     Linecount:=2;
 _Unit:=wdLine;
 _Extend:=wdMove;
 WordApp.Selection.MoveDown(_Unit,LineCount,_Extend);
 WordApp.Selection.SelectRow;
 WordApp.Selection.Font.Name := '標楷體';
 WordApp.Selection.Font.Color:=clRed;     Linecount:=2;
 _Unit:=wdLine;
 _Extend:=wdMove;
 WordApp.Selection.MoveDown(_Unit,LineCount,_Extend);
 WordApp.Selection.SelectRow;
 WordApp.Selection.Font.Name := '標楷體';
 WordApp.Selection.Font.Color:=clGreen;
end;    end.     

網海無涯，唯學是岸！ 因為擁有，所以分享！ 發表人 - qoo1234 於 2005/01/17 19:41:12