Delphi word 颜色

unit Unit1;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

 

type

  TForm1 = class(TForm)

    btn1: TButton;

    procedure btn1Click(S<a href="https://www.baidu.com/s?wd=end&tn=44039180_cpr&fenlei=mv6quAkxTZn0IZRqIHckPjm4nH00T1d9nhD3PHndrHbkrj03nvf30ZwV5Hcvrjm3rH6sPfKWUMw85HfYnjn4nH6sgvPsT6KdThsqpZwYTjCEQLGCpyw9Uz4Bmy-bIi4WUvYETgN-TLwGUv3EnWcvPWc3PWTYPW03rHDLP10zr0" target="_blank" class="baidu-highlight">end</a>er: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  <a href="https://www.baidu.com/s?wd=end&tn=44039180_cpr&fenlei=mv6quAkxTZn0IZRqIHckPjm4nH00T1d9nhD3PHndrHbkrj03nvf30ZwV5Hcvrjm3rH6sPfKWUMw85HfYnjn4nH6sgvPsT6KdThsqpZwYTjCEQLGCpyw9Uz4Bmy-bIi4WUvYETgN-TLwGUv3EnWcvPWc3PWTYPW03rHDLP10zr0" target="_blank" class="baidu-highlight">end</a>;

 

var

  Form1: TForm1;

 

implementation

uses

  ComObj,wordXP;

 

{$R *.<a href="https://www.baidu.com/s?wd=dfm&tn=44039180_cpr&fenlei=mv6quAkxTZn0IZRqIHckPjm4nH00T1d9nhD3PHndrHbkrj03nvf30ZwV5Hcvrjm3rH6sPfKWUMw85HfYnjn4nH6sgvPsT6KdThsqpZwYTjCEQLGCpyw9Uz4Bmy-bIi4WUvYETgN-TLwGUv3EnWcvPWc3PWTYPW03rHDLP10zr0" target="_blank" class="baidu-highlight">dfm</a>}

 

procedure TForm1.btn1Click(S<a href="https://www.baidu.com/s?wd=end&tn=44039180_cpr&fenlei=mv6quAkxTZn0IZRqIHckPjm4nH00T1d9nhD3PHndrHbkrj03nvf30ZwV5Hcvrjm3rH6sPfKWUMw85HfYnjn4nH6sgvPsT6KdThsqpZwYTjCEQLGCpyw9Uz4Bmy-bIi4WUvYETgN-TLwGUv3EnWcvPWc3PWTYPW03rHDLP10zr0" target="_blank" class="baidu-highlight">end</a>er: TObject);

var

  FWord :Variant;

  FDoc :Variant;

  i,Row:Integer;

  nodeString:Tstringlist;

  nodeList:TList;

  Tables,TablesSub:Variant;

  sTableName,sUserName:string;

  CfCversions,oReadOnly,AddToRctFiles,

  PswDocument,PswTemplate,oRevert,WPswDocument,WPswTemplate,oFormat,Where,vActWin:Variant;

  UserNameList:TStringList;

  numb : Integer;

begin

  try

      //启动word应用程序

    FWord:=GetActiveOleObject('Word.Application');

  except

    FWord := CreateOleObject('Word.Application');

  end;

  FWord.Visible := true;

 

    try

    //创建一个word文档

    FDOC :=FWord.Documents.Add;

    vActWin   :=   FWord.ActiveWindow;

    FWord.Selection.Font.Name :='<a href="https://www.baidu.com/s?wd=%E5%AE%8B%E4%BD%93&tn=44039180_cpr&fenlei=mv6quAkxTZn0IZRqIHckPjm4nH00T1d9nhD3PHndrHbkrj03nvf30ZwV5Hcvrjm3rH6sPfKWUMw85HfYnjn4nH6sgvPsT6KdThsqpZwYTjCEQLGCpyw9Uz4Bmy-bIi4WUvYETgN-TLwGUv3EnWcvPWc3PWTYPW03rHDLP10zr0" target="_blank" class="baidu-highlight">宋体</a>'; //字体名称

    FWord.Selection.Font.Size :=20; //字体大小

    FWord.Selection.Font.Bold :=2; //字体加粗

 

    //设定文字对齐方式

    FWord.Selection.paragraphs.Alignment := wdAlignParagraphCenter;

    //添加文字内容

    FWord.Selection.TypeText('标题一');

    //插入回车符

    FWord.Selection.Typeparagraph;

 

    FWord.Selection.paragraphs.Alignment := wdAlignParagraphLeft;

    FWord.Selection.Font.Size :=12;

    FWord.Selection.Font.Bold :=0;

    FWord.Selection.Typeparagraph;

 

    //添加一个2行3列的表格

    Tables:=FWord.ActiveDocument.Tables.Add(Range:=FWord.Selection.Range,

    NumRows:=2,

    NumColumns:=3,

    DefaultTableBehavior:=1,

    AutoFitBehavior:=0);

        //设置第二行表格的高度

    Tables.Rows.Item(2).SetHeight(250,1);

    //设置第一个单元的背景颜色

    Tables.Cell(1,1).Shading.BackgroundPatternColor := -738131969  ;

 

 

  Except

    on e: Exception do

    begin

      FWord.Quit;

      FWord := Unassigned;

      exit;

    end;

  end;

  {

  //关闭word

  FWord.Quit;

  FWord := Unassigned;

 

  }

end;