通过delphi程序给WORD添加水印

unit Unit1;


interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, WordXP, OleServer;

type
TForm1 = class(TForm)
Button1: TButton;
WordDocument1: TWordDocument;
WordApplication1: TWordApplication;
Edit1: TEdit;
Label1: TLabel;
Button2: TButton;
Button3: TButton;
Label2: TLabel;
Edit2: TEdit;
OpenDialog1: TOpenDialog;
OpenDialog2: TOpenDialog;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var
StrTemp : String;
ZS : Integer;
Nian, Yue, Ri : Word;

ItemIndex :OleVariant;
FileName, ConfirmConversions, ReadOnly, AddToRecentFiles,
PasswordDocument, PasswordTemplate, Revert,
WritePasswordDocument, WritePasswordTemplate, Format: OleVariant;

FindText, MatchCase, MatchWholeWord, MatchWildcards, MatchSoundsLike,
MatchAllWordForms, Forward, Wrap, ReplaceWith, Replace: OleVariant;

SaveChanges, OriginalFormat, RouteDocument: OleVariant;

linkflag,saveflag,prange,a,b,c:OleVariant;

Filename1:wideString;
OleVar:OLEVariant;


begin
FileName := Edit2.Text;
try
// WordApplication1.Disconnect;
WordApplication1.Connect;
except
Application.MessageBox('连接WORD服务器失败，请确定您已经正确安装。','错误框',MB_OK+MB_ICONSTOP);
Abort;
end;


WordApplication1.Visible := False;
WordApplication1.Caption := '干部考察材料';

//参数赋值
ConfirmConversions := False;
ReadOnly := False;
AddToRecentFiles := False;
PasswordDocument := '';
PasswordTemplate := '';
Revert := True;
WritePasswordDocument := '';
WritePasswordTemplate := '';
Format := wdOpenFormatDocument;

WordApplication1.Documents.Openold( FileName, ConfirmConversions,
ReadOnly, AddToRecentFiles, PasswordDocument, PasswordTemplate,
Revert, WritePasswordDocument, WritePasswordTemplate, Format );

ItemIndex := 1;
WordDocument1.ConnectTo(WordApplication1.Documents.Item(ItemIndex));

//WordDocument1.Range.InsertAfter('123');

linkflag:=false;
saveflag:=False;
prange:=WordDocument1.ActiveWindow.Selection.range;


Filename1:= Edit1.Text;


WordApplication1.ActiveDocument.Sections.Item(1).Headers.Item(1).Range.Select;


WordDocument1.ActiveWindow.ActivePane.selection.HeaderFooter.Shapes.AddPicture(filename1, linkflag,
EmptyParam, prange, EmptyParam, EmptyParam, EmptyParam, EmptyParam) ;


OleVar := WordDocument1.ActiveWindow.ActivePane.selection.HeaderFooter.Shapes.Count;

WordDocument1.ActiveWindow.ActivePane.selection.HeaderFooter.Shapes.Item(OleVar).Height := 574;
WordDocument1.ActiveWindow.ActivePane.selection.HeaderFooter.Shapes.Item(OleVar).Width := 574;

WordDocument1.ActiveWindow.ActivePane.selection.HeaderFooter.Shapes.Item(OleVar).Left := 0;
WordDocument1.ActiveWindow.ActivePane.selection.HeaderFooter.Shapes.Item(OleVar).Top := 0;



WordDocument1.Save;

WordDocument1.Close;
WordDocument1.Disconnect;
WordApplication1.Disconnect;


end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Edit1.Text:=OpenDialog1.FileName;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if OpenDialog2.Execute then
Edit2.Text:= OpenDialog2.FileName;
end;

end.

//有个问题，如果这个文件被锁定或者这个文件为最终状态，会写入失败

全部文章请到

[url]http://www.xszlo.com/article/2012-11-29/7539.html[/url]

查看