相关推荐

delphi中提取word内容和图片

delphi用ole方式操作word， 环境delphiXE，支持word2010 Word 97 - 2003

Delphi对Word的控制。

一、创建Word:function createWord(s_modelfilename: string): variant; var WordApp: Variant; begin if not FileExists(s_modelfilename) then begin Showmsg('未指定模板，无法打印！' + s_modelfilename, 16); exit; end; try WordApp := GetActiveOleObjec

Delphi＋Word解决方案参考

[转]这是我做项目过程中自己做的几个函数，见到大家都在问Word的问题。现在拿出来和大家共享。（希望有朋友可以进一步添加新的功能，或者做成包或者lib等，更方便大家使用。我自己是没有时间啦，呵呵）使用前，先根据需要建立一个空的WORD文件作为模板，在模板文件中设置好各种格式和文本。另外，其中的PrnWordTable的参数是TDBGridEh类型的控件，取自Ehlib2.6其中用到的shFileC

Delphi 取当前行

取当前行 <br />CurrentLine:=memo1.Perform(EM_LINEFROMCHAR,$FFFF,0);  

Delphi 自带的字符串分割函数

下面介绍Delphi自带的字符串分割函数，根据你的需要来使用。 1、ExtractStrings function ExtractStrings(Separators, WhiteSpace: TSysCharSet; Content: PChar; Strings: TStrings): Integer; 第一个参数是分隔符，可以是多个，例如 [’;’,’,’,’:’] 可以按分号、逗号、分号来同时分割。 第二个参数是开头被忽略的字符，例如[’&lt;’,’&gt;’,’ ']，被分割出的字符，如果开头有

Delphi 读取&预览Word文档内容

预览(转换成rtf文件加载到richedit)

读取word标题信息

读取word标题信息   unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, Comobj;const  wdPropertyTitle = $00000001; wdPropertyS

用Delphi从内存流中判断图片格式

  废话不多说了，利用内存流来判断文件的格式，其实判断文件的前几个字节就可以简单的判断这个文件是什么类型的文件，例如jpg文件 是 FFD8 (从低位到高位就要反过来 D8FF 下面都是一样)BMP文件 是 424D ---4D42其他的我就不一一列举了，想知道跟多文件类型分别是用什么字符作为文件的开头的话，下载个C32asm或者UE等这类16进制编辑器就可以看到了。proce

jlist 点击输出图片_两种方法实现PowerPoint输出长图

如何将PPT转成长图输出呢？下面就与大家分享一下有关PPT转长图输出的具体方法。方法/步骤当打开PPT文档后，通过点击图片按钮，你添加图片到当前文档中图片或者文字，来实现我们所需要的编辑操作。如果想将PPT转换成长图片格式进行输出保存，就需要借助如图所示的PPT转长图格式工具来实现。接下来我们只需要设置相关转换参数，点击“开始转换”按钮即可。如图所示，确保我们已经插入了我们所需要的图片和这相关文字...

Java 读取Word标题（目录）

概述 Word中的标题可通过“样式”中的选项来快速设置（如图1）， 图1 在添加目录时，可将“有效样式”设置为“目录级别”显示（如图2），一定程度上来说，标题大纲也可以作为目录来参考。 图2 本文，将通过后端Java程序代码介绍如何来获取Word中的标题内容。 注：如果在Word中进行了如图2中的设置，此方法也可以作为获取目录的方法；若没有对应设置，则想要通过此方法来获取的目录内容可能不完整。 本次测试的Word文档如下图所示，【标题样式】和【目录级别】经过相应设置，在获取..

Delphi关于Excel的操作

  Try    ExcelApp.Connect;  Except  End;    //打开文件    Excelbook.ConnectTo(ExcelApp.Workbooks.Open(FReportName,EmptyParam,EmptyParam,        EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,Emp

提取word中的标题大纲

word工具类

delphi中通过CreateOleObject操控Word

上图为最终的WORD内容，看似简单，实则不易(研究了一天才得出所要的结果)。 在开发的过程中，请配合Word中的宏与VBA帮助文档(Microsoft Office\OFFICE11\2052\VBAWD10.CHM) 开发环境：delphi7+xp+word2003        uses comobj, word2000; procedure TForm1.Button1Clic

delphi操作word

delphi操作word一、Delphi程序启动Word采用CreateOleObjects的方法来启动Word，调用VBA代码，具体实现过程为：首先使用GetActiveOleObject('Word.Application')判断当前内存中是否存在Word程序，如果存在，则直接连接，如果没有Word程序，则使用CreateOleObject('Word.Applicati...

访问WORD表格行或列时产生的错误"无法访问此集合中单独的行，因为表格有纵向合并的单元格。"

访问表格行或列时产生错误："无法访问此集合中单独的行，因为表格有纵向合并的单元格。"     如果要访问绘制表格中单独的行或列，而该表格又不统一，则会产生一个运行时错误。例如，如果活动文档中第一张表格的每列中具有不同数量的行，则使用下列指令将导致出错。 Sub RemoveTableBorders() ActiveDocument.Tables(1).Rows(1).Borders

Delphi网络公用函数

//文件操作部分起 //拷贝一个文件，封装CopyFile procedure FileCopyFile(const sSrcFile, sDstFile: string); //给定路径复制文件到同一目录下 bRecursive:true所有 procedure FileCopyDirectory(sDir, tDir: string; bRecursive: Boolean);overload; //给定路径原样复制文件 ,自编 procedure FileCopyDirectory(sDir, tDir: string);overload; //给定路径原样复制文件 ，用WinAPI ,若原目录下有相同文件则再生成一个 procedure FileCopyDirectory(sDir, tDir:string;AHandle:Thandle);overload; //移动文件夹 procedure FileMoveDirectory(sDir, tDir:string;AHandle:Thandle); //删除给定路径及以下的所有路径和文件 procedure FileDeleteDirectory(sDir: string);overload; //删除给定路径及以下的所有路径和文件 用WinApi procedure FileDeleteDirectory(AHandle: THandle;const ADirName: string);overload; //删除给定路径及以下的所有路径和文件 到回收站 procedure FileDeleteDirectoryToCycle(AHandle: THandle;const ADirName: string); //取得指定文件的大小 function FileGetFileSize(const Filename: string): DWORD; //在Path下取得唯一FilenameX文件 function FileGetUniqueFileName(const Path: string; Filename: string): string; //取得临时文件 function FileGetTemporaryFileName: string; //取得系统路径 function PathGetSystemPath: string; //取得Windows路径 function PathGetWindowsPath: string; //给定文件名取得在系统目录下的路径，复制时用 function PathSystemDirFile(const Filename: string): string; //给定文件名取得在Windows目录下的路径，复制时用 function PathWindowsDirFile(const Filename: string): string; //给定文件名取得在系统盘下的路径，复制时用 function PathSystemDriveFile(const Filename: string): string; //路径最后有'/'则去'/' function PathWithoutSlash(const Path: string): string; //路径最后没有'/'则加'/' function PathWithSlash(const Path: string): string; //取得两路径的不同部分，条件是前半部分相同 function PathRelativePath(BaseDir, FilePath: string): string; //取得去掉属性的路径，文件名也作为DIR function PathExtractFileNameNoExt(Filename: string): string; //判断两路径是否相等 function PathComparePath(const Path1, Path2: string): Boolean; //取得给定路径的父路径 function PathParentDirectory(Path: string): string; //分割路径，Result=根(如d:)sPath = 除根外的其他部分 function PathGetRootDir(var sPath: string): string; //取得路径最后部分和其他部分 如d:\aa\aa result:=aa sPath:=d:\aa\ function PathGetLeafDir(var sPath: string): string; //取得当前应用程序的路径 function PathExeDir(FileName: string = ''): string; //文件操作部分止 //系统处理起 //提示窗口 procedure MsgBox(const Msg: string); //错误显示窗口 procedure MsgErrBox(const Msg: string); //询问窗口 带'是','否'按钮 function MsgYesNoBox(const Msg: string): Boolean; //询问窗口 带'是','否,'取消'按钮//返回值smbYes,smbNo,smbCancel function MsgYesNoCancelBox(const Msg: string): Integer; //使鼠标变忙和恢复正常 procedure DoBusy(Busy: Boolean); //显示错误信息 procedure ShowLastError(const Msg: string = 'API Error'); //发出错误信息 procedure RaiseLastError(const Msg: string = 'API Error'); //释放Strings连接的相关资源 procedure FreeStringsObjects(SL: TStrings); //系统处理止 //时间处理起 //整数到时间 function TimeT_To_DateTime(TimeT: Longint): TDateTime; //转化为秒 function TimeToSecond(const H, M, S: Integer): Integer; //秒转化 procedure TimeSecondToTime(const secs: Integer; var H, M, S: Word); //秒转化 function TimeSecondToTimeStr(secs: Integer): string; //时间处理止 //控件处理起 //设置控件是否能使用 procedure ConEnableControl(AControl: TControl; Enable: Boolean); //设置控件是否能使用，包子控件 procedure ConEnableChildControls(AControl: TControl; Enable: Boolean); procedure ConEnableClassControl(AControl: TControl; Enable: Boolean; ControlClass: TControlClass); procedure ConFree(aCon: TWinControl);//释放aCon上的控件 //从文件本中导入,类似LoadfromFile procedure ConLoadTreeViewFromTextFile(Nodes: TTreeNodes; Filename: string); //存为文本,类似SaveToFile procedure ConSaveTreeViewToTextFile(Nodes: TTreeNodes; Filename: string); //在控件上写文本 procedure ConWriteText(aContr: TControl;sText: string); //控件处理止 //字符串处理起 //取以Delimiters分隔的字符串 bTrail如果为True则把第index个后的也取出来 function StrGetToken(const S: string; index: Integer; bTrail: Boolean = False; Delimiters: TSysCharSet = DEFAULT_DELIMITERS): string; //取以Delimiters分隔的字符串的个数 function StrCountWords(S: string; Delimiters: TSysCharSet = DEFAULT_DELIMITERS): Integer; //用NewToken替换S中所有Token bCaseSensitive:=true大小写敏感 function StrReplaceString(var S: string; const Token, NewToken: string; bCaseSensitive: Boolean): Boolean; //从第Index个起以Substr替换Count个字符 procedure StrSimple_ReplaceString(var S: string; const Substr: string; index, Count: Integer); //去掉S中的回车返行符 procedure StrTruncateCRLF(var S: string); //判定S是否以回车返行符结束 function StrIsContainingCRLF(const S: string): Boolean; //把SL中的各项数据转化为以Delimiter分隔的Str function StrCompositeStrings(SL: TStrings; const Delimiter: string): string; //封装TStrings的LoadFromFile function StrSafeLoadStrings(SL: TStrings; const Filename: string): Boolean; //封装TStrings的SaveToFile procedure StrSafeSaveStrings(SL: TStrings; const Filename: string); //字符串处理止 //字体处理起 procedure StringToFont(sFont: string; Font: TFont; bIncludeColor: Boolean = True); function FontToString(Font: TFont; bIncludeColor: Boolean = True): string; //字体处理止 //网络起 //判定是否在线 function NetJudgeOnline:boolean; //得到本机的局域网Ip地址 Function NetGetLocalIp(var LocalIp:string): Boolean; //通过Ip返回机器名 Function NetGetNameByIPAddr(IPAddr: string; var MacName: string): Boolean ; //获取网络中SQLServer列表 Function NetGetSQLServerList(var List: Tstringlist): Boolean; //获取网络中的所有网络类型 Function NetGetNetList(var List: Tstringlist): Boolean; //获取网络中的工作组 Function NetGetGroupList(var List: TStringList): Boolean; //获取工作组中所有计算机 Function NetGetUsers(GroupName: string; var List: TStringList): Boolean; //获取网络中的资源 Function NetGetUserResource(IpAddr: string; var List: TStringList): Boolean; //映射网络驱动器 Function NetAddConnection(NetPath: Pchar; PassWord: Pchar;LocalPath: Pchar): Boolean; //检测网络状态 Function NetCheckNet(IpAddr:string): Boolean; //检测机器是否登入网络 Function NetCheckMacAttachNet: Boolean; //判断Ip协议有没有安装 这个函数有问题 Function NetIsIPInstalled : boolean; //检测机器是否上网 Function NetInternetConnected: Boolean; //网络止 //窗口起 function FormCreateProcessFrm(MsgTitle: string):TForm; //窗口止 //EMail起 function CheckMailAddress(Text: string): boolean; //EMail止

Delphi与Word（一）合并Word 表格中单元格 (转)

Delphi与Word（一）合并Word 表格中单元格 (转)[@more@]//合并word 表格中单元格procedure mergeWordCell;var WordApp: TWordApplication; Word...