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

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)論
主站蜘蛛池模板: 亚洲videos| 久99久爱精品免费观看视频 | 久久精品国产欧美日韩亚洲 | 中文字幕久热精品视频免费 | 在线私人影院 | 亚欧精品一区二区三区 | 亚洲精品免费在线观看 | xxxxyoujizz护士| 久久国| 日韩免费影视 | 亚洲国产成人久久精品动漫 | 国产日韩一区二区三区在线播放 | 蜜桃久久久 | 快射视频欧美 | 久久久久久久久久免费视频 | 国产精品手机网站 | 亚洲欧洲国产精品久久 | 99热久久免费精品首页 | 中文字幕不卡一区2021 | 在线观看香蕉免费啪在线观看 | 日韩欧美在线综合网高清 | 91这里只有精品 | 黄色片在线免费观看视频 | 九九在线观看精品视频6 | 国产2021久久精品 | 黄色录像日本 | 黄色影院7755 | 久久乐国产综合亚洲精品 | 欧美日韩性视频在线 | 奇米狠狠操 | 97在线视频免费观看 | 天堂网在线观看 | 国产成人福利夜色影视 | 亚洲国产一区二区三区四区五区 | 国产精品国色综合久久 | 亚洲欧美一二三区 | 欧美三级成人观看 | 99久久综合狠狠综合久久aⅴ | 四虎影视亚洲精品 | 草久影院 | 国产成人cao在线 |