Delphi与Word
关注
分享
扫一扫
LuckyJan
这个作者很懒，什么都没留下…
展开
-
Delphi与Word（一）合并Word 表格中单元格
//合并Word 表格中单元格procedure mergeWordCell;var WordApp: TWordApplication;??? WordDoc: TWordDocument;??? DocInx,oFileName,CfCversions,oReadOnly,AddToRctFiles,PswDocument,??? PswTemplate,oRevert,WPswDocumen原创 2003-06-04 17:13:00 · 3677 阅读 · 0 评论 -
Delphi与Word（二）取得Word 表格中的数据
//取得Word 表格中的数据procedure getWordCellStr;var WordApp: TWordApplication;??? WordDoc: TWordDocument;??? DocInx,oFileName,CfCversions,oReadOnly,AddToRctFiles,PswDocument,??? PswTemplate,oRevert,WPswDocume原创 2003-06-04 17:16:00 · 2171 阅读 · 0 评论 -
Delphi与Word例1
//==================?Word_VBA 代码?====================//sub inWord()? Dim myTable As Table? Dim myBox, myPict, myShape As Shape? ? 画第一个矩形框? Set myBox = ActiveDocument.Shapes.AddTextbox(Orientation:=原创 2003-06-16 17:33:00 · 2653 阅读 · 1 评论 -
Delphi与Word（三）取得Word文件的数据
//取得Word文件的数据procedure getWordStr;var WordApp: TWordApplication;??? WordDoc: TWordDocument;??? DocInx,oFileName,CfCversions,oReadOnly,AddToRctFiles,PswDocument,??? PswTemplate,oRevert,WPswDocument,WPs原创 2003-06-04 17:16:00 · 2057 阅读 · 1 评论 -
Delphi 与 Word_VBA
插入表格Sub setTable() Set myRange = ActiveDocument.Range(Start:=2, End:=2) ActiveDocument.Tables.Add Range:=myRange, NumRows:=3, NumColumns:=4End Sub取得Word常规字符串Sub getText() Set myRange = ActiveDo原创 2004-10-09 10:08:00 · 1815 阅读 · 0 评论