delphi操作word
//插入圖片
var
WordApp,WordDoc:variant;
begin
WordApp :=CreateOLEObject('Word.application');
WordDoc :=WordApp.Documents.Add;
WordApp.visible:=True;
WordDoc.Shapes.AddPicture('D:/Tencent/QQ/353682655/image/{57AA5CC0-F7BA-4421-A550-D60A1E2E0D85}.JPG');
end;
//統計word文檔中的字數:
uses ComObj;
const
wdDialogToolsWordCount = $000000E4;
var
WordApp,WordDoc,WordDialog:OleVariant;
begin
WordApp:=CreateOleObject('Word.Application');
WordDoc:=WordApp.Documents.Open('E:/Test.Doc');
// WordApp.Visible:=True;
WordDialog:=WordApp.Dialogs.Item(wdDialogToolsWordCount);
WordDialog.Execute;
Memo1.Lines.Add('字數:'+InttoStr(WordDialog.Words));
Memo1.Lines.Add('字符數(不計空格)'+InttoStr(WordDialog.Characters));
Memo1.Lines.Add('字符數(計空格)'+InttoStr(WordDialog.CharactersIncludingSpaces));
WordDoc.Saved:=True;
WordDoc.Close;
WordApp.Quit;
WordDialog:=Unassigned;
WordDoc:=Unassigned;
WordApp:=Unassigned;
end;
var
WordApp,WordDoc:variant;
begin
WordApp :=CreateOLEObject('Word.application');
WordDoc :=WordApp.Documents.Add;
WordApp.visible:=True;
WordDoc.Shapes.AddPicture('D:/Tencent/QQ/353682655/image/{57AA5CC0-F7BA-4421-A550-D60A1E2E0D85}.JPG');
end;
//統計word文檔中的字數:
uses ComObj;
const
wdDialogToolsWordCount = $000000E4;
var
WordApp,WordDoc,WordDialog:OleVariant;
begin
WordApp:=CreateOleObject('Word.Application');
WordDoc:=WordApp.Documents.Open('E:/Test.Doc');
// WordApp.Visible:=True;
WordDialog:=WordApp.Dialogs.Item(wdDialogToolsWordCount);
WordDialog.Execute;
Memo1.Lines.Add('字數:'+InttoStr(WordDialog.Words));
Memo1.Lines.Add('字符數(不計空格)'+InttoStr(WordDialog.Characters));
Memo1.Lines.Add('字符數(計空格)'+InttoStr(WordDialog.CharactersIncludingSpaces));
WordDoc.Saved:=True;
WordDoc.Close;
WordApp.Quit;
WordDialog:=Unassigned;
WordDoc:=Unassigned;
WordApp:=Unassigned;
end;
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.