{"id":174,"date":"2005-10-03T13:55:39","date_gmt":"2005-10-03T13:55:39","guid":{"rendered":"http:\/\/fanhaijun.com\/?p=174"},"modified":"2005-10-03T13:55:39","modified_gmt":"2005-10-03T13:55:39","slug":"delphi%e4%b8%8eword%ef%bc%88%e4%ba%8c%ef%bc%89%e5%8f%96%e5%be%97word-%e8%a1%a8%e6%a0%bc%e4%b8%ad%e7%9a%84%e6%95%b0%e6%8d%ae","status":"publish","type":"post","link":"https:\/\/fanhaijun.com\/?p=174","title":{"rendered":"Delphi\u4e0eWord\uff08\u4e8c\uff09\u53d6\u5f97Word \u8868\u683c\u4e2d\u7684\u6570\u636e"},"content":{"rendered":"<p>\/\/\u53d6\u5f97Word&nbsp;\u8868\u683c\u4e2d\u7684\u6570\u636e<br \/>procedure&nbsp;getWordCellStr;<br \/>var&nbsp;WordApp:&nbsp;TWordApplication;<br \/>&nbsp;&nbsp;&nbsp;&nbsp;WordDoc:&nbsp;TWordDocument;<br \/>&nbsp;&nbsp;&nbsp;&nbsp;DocInx,oFileName,CfCversions,oReadOnly,AddToRctFiles,PswDocument,<br \/>&nbsp;&nbsp;&nbsp;&nbsp;PswTemplate,oRevert,WPswDocument,WPswTemplate,oFormat:&nbsp;OleVariant;<br \/>&nbsp;&nbsp;&nbsp;&nbsp;i,iRow,iCol:integer;<br \/>&nbsp;&nbsp;&nbsp;&nbsp;myCell:Cell;<br \/>&nbsp;&nbsp;&nbsp;&nbsp;myRow:Row;<br \/>begin<br \/>&nbsp;&nbsp;memo1.Lines.Clear&nbsp;;<\/p>\n<p>&nbsp;&nbsp;&nbsp;&nbsp;\/\/&nbsp;=====&nbsp;\u521b\u5efa\u5bf9\u8c61&nbsp;=====<br \/>&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;not&nbsp;Assigned(WordApp)&nbsp;then&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br \/>&nbsp;&nbsp;&nbsp;&nbsp;begin<br \/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;WordApp:=&nbsp;TWordApplication.Create(nil);<br \/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;WordApp.Visible&nbsp;:=&nbsp;false;<br \/>&nbsp;&nbsp;&nbsp;&nbsp;end;<br \/>&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;not&nbsp;Assigned(WordDoc)&nbsp;then<br \/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;WordDoc:=&nbsp;TWordDocument.Create(nil);<br \/>&nbsp;&nbsp;try<br \/>&nbsp;&nbsp;&nbsp;&nbsp;DocInx:=1;<br \/>&nbsp;&nbsp;&nbsp;&nbsp;oFileName&nbsp;:=&nbsp;&#39;d:\\test.doc&#39;;<br \/>&nbsp;&nbsp;&nbsp;&nbsp;oReadOnly:=true;<br \/>&nbsp;&nbsp;&nbsp;&nbsp;CfCversions&nbsp;:=&nbsp;EmptyParam;<br \/>&nbsp;&nbsp;&nbsp;&nbsp;AddToRctFiles:=&nbsp;EmptyParam;<br \/>&nbsp;&nbsp;&nbsp;&nbsp;PswDocument:=&nbsp;EmptyParam;<br \/>&nbsp;&nbsp;&nbsp;&nbsp;PswTemplate:=&nbsp;EmptyParam;<br \/>&nbsp;&nbsp;&nbsp;&nbsp;oRevert:=&nbsp;EmptyParam;<br \/>&nbsp;&nbsp;&nbsp;&nbsp;WPswDocument:=&nbsp;EmptyParam;<br \/>&nbsp;&nbsp;&nbsp;&nbsp;WPswTemplate:=&nbsp;EmptyParam;<br \/>&nbsp;&nbsp;&nbsp;&nbsp;oFormat:=&nbsp;EmptyParam;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br \/>&nbsp;&nbsp;&nbsp;&nbsp;\/\/&nbsp;=====&nbsp;\u6253\u5f00\u6587\u4ef6&nbsp;=====&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br \/>&nbsp;&nbsp;&nbsp;&nbsp;WordApp.Documents.open(oFileName,CfCversions,oReadOnly,AddToRctFiles,<br \/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;PswDocument,PswTemplate,oRevert,WPswDocument,WPswTemplate,oFormat);<br \/>&nbsp;&nbsp;&nbsp;&nbsp;\/\/&nbsp;=====&nbsp;\u5173\u8054\u6587\u4ef6&nbsp;=====<br \/>&nbsp;&nbsp;&nbsp;&nbsp;WordDoc.ConnectTo(WordApp.Documents.Item(DocInx));&nbsp;<\/p>\n<p>&nbsp;&nbsp;&nbsp;&nbsp;\/\/\u65b9\u6cd5(1)==&gt;&nbsp;\u89c4\u5219\u8868<br \/>&nbsp;&nbsp;&nbsp;&nbsp;For&nbsp;i&nbsp;:=&nbsp;1&nbsp;To&nbsp;WordDoc.Tables.Count&nbsp;do&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\/\/\u7b2c&nbsp;&nbsp;i&nbsp;\u4e2a\u8868<br \/>&nbsp;&nbsp;&nbsp;&nbsp;begin&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\/\/\u7b2c&nbsp;iRow&nbsp;\u884c<br \/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;For&nbsp;iRow&nbsp;:=&nbsp;1&nbsp;To&nbsp;WordDoc.Tables.Item(i).Rows.Count&nbsp;do&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br \/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\/\/\u7b2c&nbsp;iCol\u5217<br \/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;For&nbsp;icol&nbsp;:=&nbsp;1&nbsp;To&nbsp;WordDoc.Tables.Item(i).Columns.Count&nbsp;do<br \/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin<br \/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myCell:=WordDoc.Tables.Item(i).Cell(iRow,icol);<br \/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;memo1.Lines.add(myCell.Range.Text);<br \/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br \/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br \/>&nbsp;&nbsp;&nbsp;&nbsp;end;<br \/>&nbsp;&nbsp;&nbsp;&nbsp;<br \/>&nbsp;&nbsp;&nbsp;&nbsp;\/\/\u65b9\u6cd5(2)==&gt;&nbsp;\u4e0d\u89c4\u5219\u8868:\u53ea\u6709\u6a2a\u5411\u5408\u5e76\u65f6<br \/>&nbsp;&nbsp;&nbsp;&nbsp;For&nbsp;i&nbsp;:=&nbsp;1&nbsp;To&nbsp;WordDoc.Tables.Count&nbsp;do&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\/\/\u7b2c&nbsp;i&nbsp;\u4e2a\u8868<br \/>&nbsp;&nbsp;&nbsp;&nbsp;begin<br \/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;For&nbsp;iRow&nbsp;:=&nbsp;1&nbsp;To&nbsp;WordDoc.Tables.Item(i).Rows.Count&nbsp;do<br \/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin<br \/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myRow:=WordDoc.Tables.Item(i).Rows.Item(iRow);\/\/\u7b2c&nbsp;iRow&nbsp;\u884c<br \/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;For&nbsp;icol&nbsp;:=&nbsp;1&nbsp;To&nbsp;myRow.Cells.Count&nbsp;do&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\/\/\u7b2c&nbsp;iCol\u5217<br \/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin<br \/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myCell:=&nbsp;myRow.Cells.Item(iCol)&nbsp;;<br \/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;memo1.Lines.add(myCell.Range.Text);<br \/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br \/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br \/>&nbsp;&nbsp;&nbsp;&nbsp;end;<\/p>\n<p>&nbsp;&nbsp;&nbsp;&nbsp;\/\/\u65b9\u6cd5(3)==&gt;&nbsp;\u4e0d\u89c4\u5219:\u6a2a\u5411\u3001\u7eb5\u5411\u5408\u5e76\u65f6\uff1b&nbsp;\u4efb\u4f55\u8868\u683c<br \/>&nbsp;&nbsp;&nbsp;&nbsp;For&nbsp;i&nbsp;:=&nbsp;1&nbsp;To&nbsp;WordDoc.Tables.Count&nbsp;do&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\/\/\u7b2c&nbsp;i&nbsp;\u4e2a\u8868<br \/>&nbsp;&nbsp;&nbsp;&nbsp;begin&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\/\/\u7b2c&nbsp;j&nbsp;\u4e2aCell&nbsp;<br \/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;for&nbsp;j&nbsp;:=&nbsp;1&nbsp;To&nbsp;WordDoc.Tables.Item(i).Range.Cells.Count&nbsp;do<br \/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin<br \/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;myCell&nbsp;:=&nbsp;WordDoc.Tables.Item(i).Range.Cells.Item(j);<br \/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;memo1.Lines.add(myCell.Range.Text);<br \/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br \/>&nbsp;&nbsp;&nbsp;&nbsp;end;<\/p>\n<p>&nbsp;&nbsp;finally<br \/>&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;Assigned(WordDoc)&nbsp;then&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\/\/&nbsp;=====&nbsp;\u5173\u95ed\u6587\u4ef6&nbsp;=====<br \/>&nbsp;&nbsp;&nbsp;&nbsp;begin<br \/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;WordDoc.Close;<br \/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;WordDoc.Disconnect;<br \/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;WordDoc.Destroy;<br \/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;WordDoc&nbsp;:=&nbsp;nil;<br \/>&nbsp;&nbsp;&nbsp;&nbsp;end;<br \/>&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;Assigned(WordApp)&nbsp;then&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\/\/&nbsp;=====&nbsp;\u5173\u95edWord&nbsp;=====<br \/>&nbsp;&nbsp;&nbsp;&nbsp;begin<br \/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;WordApp.Quit;<br \/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;WordApp.Disconnect;<br \/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;WordApp.Destroy;<br \/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;WordApp&nbsp;:=&nbsp;nil;<br \/>&nbsp;&nbsp;&nbsp;&nbsp;end;<br \/>&nbsp;&nbsp;end;<br \/>end;<\/p>\n","protected":false},"excerpt":{"rendered":"<p>\/\/\u53d6\u5f97Word&nbsp;\u8868\u683c\u4e2d\u7684\u6570\u636eprocedure&#038;&hellip;<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_lmt_disableupdate":"","_lmt_disable":"","footnotes":""},"categories":[100],"tags":[],"class_list":["post-174","post","type-post","status-publish","format-standard","hentry","category-nothing"],"_links":{"self":[{"href":"https:\/\/fanhaijun.com\/index.php?rest_route=\/wp\/v2\/posts\/174","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/fanhaijun.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/fanhaijun.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/fanhaijun.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/fanhaijun.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=174"}],"version-history":[{"count":0,"href":"https:\/\/fanhaijun.com\/index.php?rest_route=\/wp\/v2\/posts\/174\/revisions"}],"wp:attachment":[{"href":"https:\/\/fanhaijun.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=174"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/fanhaijun.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=174"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/fanhaijun.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=174"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}