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

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)論
主站蜘蛛池模板: 日韩欧美理论 | 毛片基地免费视频a | 久久久久久久国产 | 日韩精品综合 | 国产精品视频久久久久久 | 91精品成人免费国产 | 久久香蕉综合精品国产 | 5060网永久免费一级毛片 | 天天色综合5 | 国产视频手机在线观看 | 国产三级做爰高清视频a | 天天天操天天天干 | 一级床上爽高清播放 | 曰本一级毛片免费播放 | 久久精品国产大片免费观看 | 99色婷婷| 久久色网| 五月激激 | 国产精品亚洲欧美大片在线看 | 99影视| 久久精品国产欧美日韩99热 | 欧美一级毛片欧美一级 | 午夜影院欧美 | 亚洲综合网在线观看首页 | 精品的一区二区三区 | 在线观看成人影院 | 日日影院 | 热久久久久久久 | 久久精品无码一区二区日韩av | 蕾丝视频在线看片国产 | 真实国产精品视频国产网 | 理论片我不卡在线观看 | 国产精品成人观看视频国产奇米 | 涩涩视频免费看 | 日韩欧美一区二区三区四区 | 中文字幕在线观看一区二区 | 欧美 日韩 成人 | 女孕学护士一级毛片 | 我想看一级毛片免费的 | 日韩一区二区三区免费 | 亚洲天天做日日做天天欢毛片 |