亚洲免费在线-亚洲免费在线播放-亚洲免费在线观看-亚洲免费在线观看视频-亚洲免费在线看-亚洲免费在线视频

WORD操作

系統(tǒng) 2045 0

function ExportToWord(StrList: TStrings; SavePath: string): Boolean;
var
WordApp: TWordApplication;
WordDoc: TWordDocument;
Template, NewTemplate, DocumentTYpe, Visible: OleVariant;
ItemIndex: OleVariant;
FileName: OleVariant;
NoPrompt, OriginalFormat: OleVariant;
RouteDocument,SaveChanges:OleVariant;
LinkToFile, SaveWithDocument:OleVariant;
FilePath: string;
I: Integer;
begin
if FileExists(Savepath) then
??? Exit;
//連接到WORD 2000
try
??? WordApp := TWordApplication.Create(nil);
??? WordApp.Connect;
except
??? Application.MessageBox('不能生成文檔,請(qǐng)確認(rèn)是否安裝了Word !', '提示', MB_ICONQUESTION);
??? Exit;
end;
//顯示W(wǎng)ORD

Template := EmptyParam;
NewTemplate := False;
DocumentTYpe := wdNewBlankDocument;
Visible := True;

//調(diào)用add函數(shù)
WordApp.Documents.Add(Template, NewTemplate, DocumentTYpe, Visible);
//連接到新建的文檔
ItemIndex := 1;
WordDoc := TWordDocument.Create(nil);
WordDoc.ConnectTo(WordApp.Documents.Item(ItemIndex));
//文檔另外為
FileName := SavePath;
WordDoc.SaveAs(FileName);
with WordApp.Selection do
begin
??? Font.Size := 20;
??? for I := 0 to StrList.Count - 1 do
??? begin
????? //對(duì)奇方式
????? Paragraphs.Alignment:=wdAlignParagraphCenter;
????? TypeText(StrList.Strings[i]);
????? TypeParagraph;//換行
????? //加載圖片方式
????? //InlineShapes.AddPicture('C:\Documents and Settings\Administrator\桌面\695884_66_thumb.jpg',LinkToFile,SaveWithDocument,EmptyParam);
??? end;
end;
//保存文檔
NoPrompt := False;
OriginalFormat := wdOriginalDocumentFormat;
WordApp.Documents.Save(NoPrompt, OriginalFormat);

?? //關(guān)閉文檔
SaveChanges:=wdSaveChanges;
OriginalFormat:=wdOriginalDocumentFormat;
RouteDocument:=false;
WordApp.Documents.Close(SaveChanges,OriginalFormat,RouteDocument);

Worddoc.Disconnect ;
worddoc.Free;

//斷開(kāi)和Word 2000的連接
WordApp.Disconnect;
WordApp.Quit ;
WordApp.Free ;
MessageDlg('導(dǎo)出成功!保存為'+fileName,mtInformation,[mbOK],0);
FilePath := string(fileName);
ShellExecute(0, 'open', PChar(FilePath) , '', '',SW_SHOWNORMAL);

end;

procedure TForm1.Button1Click(Sender: TObject);
var
SaveName: string;
begin
Caption := ExtractFilePath(ParamStr(0));
SaveName := ExtractFilePath(ParamStr(0));
SaveName := SaveName + 'Test.Doc';
if FileExists(SaveName) then
??? DeleteFile(SaveName);
ShowMessage(SaveName);
ExportToWord(Memo1.Lines, SaveName);
end;

WORD操作


更多文章、技術(shù)交流、商務(wù)合作、聯(lián)系博主

微信掃碼或搜索:z360901061

微信掃一掃加我為好友

QQ號(hào)聯(lián)系: 360901061

您的支持是博主寫(xiě)作最大的動(dòng)力,如果您喜歡我的文章,感覺(jué)我的文章對(duì)您有幫助,請(qǐng)用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧,狠狠點(diǎn)擊下面給點(diǎn)支持吧,站長(zhǎng)非常感激您!手機(jī)微信長(zhǎng)按不能支付解決辦法:請(qǐng)將微信支付二維碼保存到相冊(cè),切換到微信,然后點(diǎn)擊微信右上角掃一掃功能,選擇支付二維碼完成支付。

【本文對(duì)您有幫助就好】

您的支持是博主寫(xiě)作最大的動(dòng)力,如果您喜歡我的文章,感覺(jué)我的文章對(duì)您有幫助,請(qǐng)用微信掃描上面二維碼支持博主2元、5元、10元、自定義金額等您想捐的金額吧,站長(zhǎng)會(huì)非常 感謝您的哦!!!

發(fā)表我的評(píng)論
最新評(píng)論 總共0條評(píng)論
主站蜘蛛池模板: 国产成人精品永久免费视频 | 狠狠操天天 | 日韩亚射吧 | 精品国产高清毛片 | 日韩在线观看一区二区三区 | 婷婷精品视频 | 日韩在线视频一区 | 国产精品久久久久久网站 | 久久久99精品久久久 | 最新日韩在线 | 色综合视频一区二区三区 | 手机看片国产免费久久网 | 亚洲国产欧美自拍 | 国产色综合天天综合网 | 亚洲成人黄色在线 | 成年女人毛片免费播放人 | 天天舔天天操 | 国产蜜汁tv福利在线 | 国产三及| 青青热久久国产久精品 | 欧美国产影院 | 99九九国产精品免费视频 | 女人18毛片a级毛片 女人18毛片a级毛片免费 | 日本aⅴ在线 | 在线视频一二三区 | 欧美日韩激情在线 | 色淫综合 | 亚洲综合在线播放 | 日日撸夜夜干 | 亚洲 欧美精品 | 一级大黄视频 | 97在线免费观看视频 | 久久香蕉国产线看观看精品蕉 | 女bbbbxxxx另类亚洲 | 久草青青在线视频 | 国产全黄a一级毛片视频 | 亚洲天天综合网 | 亚洲黄色激情视频 | 91亚洲精品福利在线播放 | 男人私人影院 | 国产一区二区成人 |