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

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频这里只精品23热 视频 | 亚洲精品不卡视频 | 福利国产在线 | 久久久999国产精品 久久久999久久久精品 | 欧美日韩日本国产 | 国产成人免费观看 | 日韩一级欧美一级一级国产 | 私人影院在线播放 | a毛片毛费观看 | aaa影院 | 伊人国产在线观看 | 免费视频国产 | 成年女人黄小视频 | 毛片色毛片18毛片美女 | 久久中文网中文字幕 | 国产三级久久久精品麻豆三级 | 国产欧美日韩一区二区三区 | 在线日韩麻豆一区 | 免费aa毛片| 亚洲va国产日韩欧美精品色婷婷 | 99热婷婷| 久久国产热这里只有精品 | 天堂成人在线视频 | 成年人性生活免费视频 | 免费看成人国产一区二区三区 | 奇米影视四色狠狠888俺去啦 | 无码免费一区二区三区免费播放 | 亚洲天码中文字幕第一页 | 久久6国产| 日日摸夜夜爽久久综合 | 99久久精品国产自免费 | 青草青青在线视频观看 | 国产极品福利视频在线观看 | 成人窝窝午夜看片 | 日日夜夜天天久久 | 五月天久久综合 | 亚洲欧美日本在线 | 伊人影院中文字幕 |