读取word标题信息
来源:互联网 发布:如何找淘宝达人合作 编辑:程序博客网 时间:2024/06/03 15:42
读取word标题信息
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Comobj;
const
wdPropertyTitle = $00000001;
wdPropertySubject = $00000002;
wdPropertyAuthor = $00000003;
wdPropertyKeywords = $00000004;
wdPropertyComments = $00000005;
wdPropertyTemplate = $00000006;
wdPropertyLastAuthor = $00000007;
wdPropertyRevision = $00000008;
wdPropertyAppName = $00000009;
wdPropertyTimeLastPrinted = $0000000A;
wdPropertyTimeCreated = $0000000B;
wdPropertyTimeLastSaved = $0000000C;
wdPropertyVBATotalEdit = $0000000D;
wdPropertyPages = $0000000E;
wdPropertyWords = $0000000F;
wdPropertyCharacters = $00000010;
wdPropertySecurity = $00000011;
wdPropertyCategory = $00000012;
wdPropertyFormat = $00000013;
wdPropertyManager = $00000014;
wdPropertyCompany = $00000015;
wdPropertyBytes = $00000016;
wdPropertyLines = $00000017;
wdPropertyParas = $00000018;
wdPropertySlides = $00000019;
wdPropertyNotes = $0000001A;
wdPropertyHiddenSlides = $0000001B;
wdPropertyMMClips = $0000001C;
wdPropertyHyperlinkBase = $0000001D;
wdPropertyCharsWSpaces = $0000001E;
type
TForm1 = class(TForm)
Button1: TButton;
OpenDialog1: TOpenDialog;
Memo1: TMemo;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
vWord, vDoc, docBuiltInProps, typeDocBuiltInProps: Variant;
begin
if not OpenDialog1.Execute then Exit;
vWord := CreateOleObject('PowerPoint.Application'); //创建Word线程 try //打开要操作的文件
vDoc := vWord.Documents.Open(OpenDialog1.FileName);
docBuiltInProps := vDoc.BuiltInDocumentProperties;
memo1.Lines.Add(format('%s : %s', ['页数', vDoc.BuiltInDocumentProperties[wdPropertyPages].Value]));
memo1.Lines.Add(format('%s : %s', ['作者', vDoc.BuiltInDocumentProperties[wdPropertyAuthor].Value]));
memo1.Lines.Add(format('%s : %s', ['标题', vDoc.BuiltInDocumentProperties[wdPropertyTitle].Value]));
vDoc.Close(True); //关闭文并保存
vWord.Quit(False); //退出Word end
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
RenameFile('c:/1.doc','c:/2.doc');
end;
end.
- 读取word标题信息
- 读取word文档结构图 word文档有多级标题(标题1,标题2,标题3.。。。。。。。)
- C#实现Word中表格信息读取
- C#实现Word中表格信息读取
- 使用JACOB读取word中的表格信息
- POI读取Word文件头信息
- C#实现Word中表格信息读取
- Python读取Word(.docx)正文信息
- office--word--word标题
- python 如何读取文件属性中的 标题 作者等信息呀?
- POI xwpf读取word内容和样式信息
- word读取
- word读取
- 读取word
- 读取word
- Qt实现读取Excel表,并将读取的信息写进word文档中
- Word文章标题
- WORD设置标题格式
- [转]: 腾讯产品经理谈产品经理的基础素质
- C#中DataGridView编辑状态控制
- 这是中国的CTO吗?
- Java中利用package机制实现条件编译
- nhibernate 抓取策略
- 读取word标题信息
- 寒夜静坐
- Mix 10 上的asp.net mvc 2的相关Session
- User Experience Kit
- ASP.NET Performance Toolset
- 相册图片防盗链破解(如:在外部也能显示qq、163或百度空间图片)
- ASP.NET URL Rewrite. URL重写
- 全球域名实名率仅23%
- 封装Ftp API函数,实现上传,下载文件,创建目录