首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

需要在delphi中添加/设置Word/Excel文档的读取/获取CustomDocumentProperties

在Delphi中添加/设置Word/Excel文档的读取/获取CustomDocumentProperties,可以使用Office组件来实现。以下是一个完善且全面的答案:

在Delphi中,可以使用Office组件来操作Word和Excel文档。要读取或获取文档的CustomDocumentProperties,可以按照以下步骤进行操作:

  1. 首先,确保已经安装了Microsoft Office软件,并在Delphi中导入Office组件库。可以使用TWordApplication和TExcelApplication组件来操作Word和Excel文档。
  2. 创建一个Office应用程序对象,例如TWordApplication或TExcelApplication,并设置Visible属性为False,以隐藏应用程序的界面。
  3. 使用应用程序对象的Open方法打开要操作的文档。例如,对于Word文档,可以使用Documents.Open方法打开一个Word文档。
  4. 获取文档的CustomDocumentProperties属性,该属性表示文档的自定义属性集合。可以使用Variants数组来存储属性的名称和值。
  5. 使用属性集合的Item方法获取指定名称的属性,并将其值存储到Variants数组中。
  6. 关闭文档并释放应用程序对象。

以下是一个示例代码,演示如何在Delphi中读取Word文档的CustomDocumentProperties:

代码语言:txt
复制
uses
  ComObj;

procedure ReadCustomDocumentProperties(const FileName: string);
var
  WordApp: Variant;
  WordDoc: Variant;
  Properties: Variant;
  PropertyItem: Variant;
  i: Integer;
begin
  WordApp := CreateOleObject('Word.Application');
  WordApp.Visible := False;

  WordDoc := WordApp.Documents.Open(FileName);
  Properties := WordDoc.CustomDocumentProperties;

  for i := 1 to Properties.Count do
  begin
    PropertyItem := Properties.Item(i);
    ShowMessage('Property Name: ' + PropertyItem.Name);
    ShowMessage('Property Value: ' + VarToStr(PropertyItem.Value));
  end;

  WordDoc.Close;
  WordApp.Quit;

  WordDoc := Unassigned;
  WordApp := Unassigned;
end;

对于Excel文档,操作类似,只需将上述代码中的Word相关对象替换为Excel相关对象即可。

推荐的腾讯云相关产品:腾讯云对象存储(COS),用于存储和管理文档文件。您可以通过以下链接了解更多信息:https://cloud.tencent.com/product/cos

请注意,以上答案仅供参考,具体实现可能因Delphi版本和Office版本而有所差异。在实际开发中,建议参考相关文档和示例代码进行操作。

页面内容是否对你有帮助?
有帮助
没帮助

相关·内容

Excel催化剂开源第10波-VSTO开发之用户配置数据与工作薄文件一同存储

(如果是xlsm或文档型VSTO项目可以做到数据在文件,但代码也仅能对此文档有效,对其他文档无效,也不是此处需要完美解决方案) 大部分人能想到方案是在自定义属性里CustomDocumentProperties...添加配置信息,但自定义属性,它容量有限,且内容存储仅为文本型且有长度限制。...使用CustomXMLPart对象保存配置信息 在xlsx版Excel文件,区别于传统xls文件,其文件本质是xml文件集合,在xlsx版文件结构,除去工作表外,有另外一个对象同样可以存储数据,其存储数据要求只要是...具体场景分享 在Excel催化剂功能,有好几个经典功能用上了CustomXMLPart存储配置信息,跟随文档传输安全。...同样用到了自定义文档属性,用于存放customXMLPartID信息 Wb.CustomDocumentProperties.Add( Name: xmlPartIdName

1.3K20

GUI实战|Python做一个文档图片提取软件

craterDir = values["lujing"] + '/' 这是存放zip文件文件夹路径,注意这里读取键为“lujing”值后要在后面添加/。...,由于PDF不能像ExcelWord一样改后缀名进行提取,故这里运用python一个模块PyMuPDF,过程如下 读取PDF并遍历每一页 筛选无用元素并用正则表达式获取图片 生成并保存图片 fitz.open...(path)是打开PDF文件夹,这里path是需要在GUI界面获取用户文件存放路径于文件名。...:解析选定位置中所有的Excel文件,无需在文件名处填写", "Excel2 :解析选定位置单个指定Excel文件,在文件名处填写",..."Word : 解析选定位置单个指定docx结尾文件,无需在文件名处填写", "PDF : 解析选定位置单个指定PDF文件,在文件名处填写") window.close

1.4K10
  • Python自动化办公 | 同事要我帮忙补写178份Word日报!别闹!

    1)两种情况,分别整理成两种日报,一为纯文本描述,二为附带表格文档。...使用 xlrd 库读表,获取工作簿活动表名,再使用 pandas 库遍历子表以合并,dataframe 格式数据对 excel相性绝佳。...(一)纯文本文档 根据需要输出日报样式,输出无记录日报只需读取【日期】列和【填报部门】列,将【填报部门】列为无日期段按每日输出即可。...1、整理表格 获取 excel一行数据(说明:df_total[df_index] 为一个 dataframe,其 values 为一个二维 numpy 数组),整理各级指标、各部门报送情况和备注...调整 word 文本和表格样式操作比较繁琐,一步一步设置,预设表头如下: table_title = ['一级指标', '二级指标', '三级指标', '四级指标', '各部门报送情况', '备注

    98410

    别再问我Python怎么操作Word了!

    前言 在之前自动化系列文章,我们分别讲解过?Python操作Excel利器openpyxl,也讲过?...Python操作PDF几种方式,今天我们将通过代码讲解Python操作Word文档docx常用方法。...此时就有4个文字块,同时有时候一个Word文档是存在表格,这时就会新文档结构产生 这时结构非常类似Excel,可以看成Document - Table - Row/Column - Cell四级结构...Word读取 1.打开Word from docx import Document path = ... wordfile = Document(path) 2....段落样式设置 默认对齐方式是左对齐,可以自行修改 小结 以上就是如何用Pythondocx模块实现Word常用操作,只要明白什么类型操作可以用Python执行,并能在之后遇到繁琐任务时想到使用

    1.3K11

    基于Python操作将数据存储到本地文件

    Excel文件存储 python操作Excel时,对应有不同版本支持库,若Excel为2003时,选择pyExcelerator;若Excel为2007时,选择openpyxl;而xlrd库支持所有版本数据读取...Excel还有其他单元格颜色,单元格边框,字体颜色,字体大小,数据类型等等,这里就不展开描述了,下面来看看Excel读取数据。 读取数据需要第三方库 xlrd 来实现,具体代码如下。...看到这里,顺便在说一下怎么把数据存储到WordWord文档存储一般为文章、新闻报道和小说这类文字内容较长数据。...'Word-') #添加内容并设置为斜体 p.add_run('存储实例。')....通过上图看出,Word图片以及表格使用此方法是没法读取,还是不尽如人意啊!

    5.4K20

    这52页pdf,顶10篇python自动化办公文章

    1)Excel表格述语 2)打开Excel表格并获取表格名称 3)通过sheet名称获取表格 4)获取表格尺寸大小 5)获取表格内某个格子数据 sheet[“A1”]方式 sheet.cell(row...1)修改表格内容 ① 向某个格子写入内容并保存 ② .append():向表格插入行数据 ③ 在python中使用excel函数公式(很有用) ④ .insert_cols()和.insert_rows...:python使用python-docx操作word 1、python-docx库介绍 2、Python读取Word文档内容 1)word文档结构介绍 2)python-docx提取文字和文字块儿 ①...python-docx提取文字 ② python-docx提取文字块儿 3)利用Python向Word文档写入内容 ① 添加段落 ② 添加文字块儿 ③ 添加一个分页 ④ 添加图片 ⑤ 添加表格 ⑥ 提取...word表格,并保存在excel(很重要) 3、利用Python调整Word文档样式 1)修改文字字体样式 2)修改段落样式 ① 对齐样式 ② 行间距调整 ③ 段前与段后间距 欢迎关注黄同学CSDN

    4K20

    Python与Microsoft Office

    最后,通过将Visible属性设置为True,使Excel程序本身可见。 要设置特定单元格值,调用如下内容:sh.Cells(row,col).Value=“一些值”。...()添加一个新文档。...如果想向用户展示正在做什么,可以将Word可见性设置为True。 如果要向文档添加文本,则需要告诉Word要将文本放到哪里。这就是Range方法用武之地。...虽然看不见,但有一个“网格”告诉Word如何在屏幕上布局文本。因此,如果想在文档最顶端插入文本,告诉它从(0,0)开始。若要在Word添加新行,需要在字符串末尾附加“\r\n”。...如果要阅读文档文本,可以执行以下操作: docText = word.Documents[0].Content 以上都是非常基础内容,抛砖引玉,由此开启更深入学习之旅。

    2.6K20

    利用python实现字音回填

    作者:小小明 大家好,我是小小明,今天我要给大家分享是两个word文档处理案例,核心是读取excel数据,按照指定规则写入到word。...之前们已经分享过一些pandas读写excel例子,这次我们需要在此基础上还需读写word文档。...分析需求呢,会发现它要求在word文档添加一行在excel对应声韵调,若音1声超过1个字符还需将最后一个字符上标,音1韵不上标,音1调整体上标。...测试数据匹配 好,接下来,我们尝试读取word文档第一个表格,并匹配获取每个字音需要添加音韵调: from docx import Document doc = Document(r"01老男单字字音对照表...那同样思路,先读取excel并解析出需要数据: 数据读取并解析 import pandas as pd df = pd.read_excel("词汇(凯里).xls", index_col=0)

    35330

    当Python遇到Excel后,将开启你认知虫洞

    通过这种方式,可以将系统数据按着一定格式直接传输到Excel,给用户提交是包含表格数据Excel文档。 反客为主方式:这种方式将Excel作为主体。...也就是说,主要操作界面是Excel,在Excel调用或访问其他系统。例如,很多年前我做过一个基于Excel报表系统。该系统分别使用DelphiExcel实现。...Delphi管理系统,将数据发送给Excel。但需要用户自己调整报表格式。我采用方案是通过ExcelVBA实现表格格式设置。...后来我实在不想这么弄了(因为买了几张影碟,着急回家看电影,不想加班),于是想到了利用ExcelWord来完成这个报表系统。通过Delphi传输数据。...从这段程序可以看出,转换该表格需要多少步,代码并不复杂,大家可以根据openpyxl文档研究。 8.

    3.5K31

    AI帮助下,10分钟写一个word批量搜索替换python程序2024.5.10

    import Document # 从python-docx库导入Document类,用于处理Word文档 # 定义函数读取_excel,用于读取Excel文件 def 读取_excel(文件路径...,用于执行Excel读取Word替换整个流程 def 主程序(excel_文件路径, word_文件路径): # 使用定义好读取_excel函数读取Excel文件,获取数据表 数据表...= 读取_excel(excel_文件路径) # 将数据表“搜索文本”列和“要替换文本”列转换成字典形式替换映射 替换映射 = dict(zip(数据表['搜索文本'],...数据表['要替换文本'])) # 使用定义好替换_word文本函数,根据替换映射查找并替换Word文档文本 替换_word文本(word_文件路径, 替换映射) # 打印完成消息...# 当直接运行该脚本时执行以下代码 if __name__ == "__main__": # 设置Excel文件路径 excel_文件路径 = '替换映射.xlsx' # 设置Word

    13610

    ASPOSE.Cells & ASPOSE.Words 操纵ExcelWord文档 .NET Core 实例

    下面我使用ASP.NET Core MVC 做一个从Excel文件读取列表数据,并生成一个Word文档,同时在Word里面生成同样列表和数据例子。...在 Program.cs里,添加以下代码,完成许可设置: ? 运行,如果能输出以下内容,说明许可安装成功了: ? 读取Excel 为了方便,我直接把要读取Excel文件放在项目根目录下: ?...打开HomeController,在Privacy方法里进行实现,也就是我点击Privacy菜单时候,会读取Excel文件内容并生成一个Word文档: ?...可以看到数据从Excel文件里成功读取了。 写入Word文档 在Aspose里面,Word文档对应是Document对象。...运行,文档已经生成成功: ? 其内容如下: ? 目前还差一个表头,所以我添加如下代码: ? 这里我设置表头字体是加粗,表格其它内容字体是不加粗。 表头背景色是浅灰色。 最后效果如下: ?

    2.8K30

    【万字收藏】教你如何用Python轻轻松松操作ExcelWord、CSV,一文就够了,赶紧码住!!!

    修改 excel 上面说了写入和读取 Excel 内容,接下来我们就说下更新修改 Excel 该如何操作,修改时就需要用到 xlutils 方法了。...# 创建段落,添加文档内容 paragraph = doc1.add_paragraph('这是第二步安装描述!')....docx') 读取 Word 文件 上面写了很多用 Python 创建空白 Word 文件格式化字体并保存到文件,接下来我们再简单介绍下如何读取已有的 Word 文件,请看如下代码: # 引入库...模块来实现 CSV 格式文件数据读写,该模块提供了兼容 Excel 方式输出、读取数据文件功能,这样我们无需知道 Excel 所采用 CSV 格式细节,同样它还可以定义其他应用程序可用或特定需求...fmtparams 可以覆写当前变种格式单个格式设置

    2.1K31

    教你如何用Python轻轻松松操作ExcelWord、CSV,一文就够了,赶紧码住!!!

    修改 excel 上面说了写入和读取 Excel 内容,接下来我们就说下更新修改 Excel 该如何操作,修改时就需要用到 xlutils 方法了。...# 创建段落,添加文档内容 paragraph = doc1.add_paragraph('这是第二步安装描述!')....docx') 读取 Word 文件 上面写了很多用 Python 创建空白 Word 文件格式化字体并保存到文件,接下来我们再简单介绍下如何读取已有的 Word 文件,请看如下代码: # 引入库...模块来实现 CSV 格式文件数据读写,该模块提供了兼容 Excel 方式输出、读取数据文件功能,这样我们无需知道 Excel 所采用 CSV 格式细节,同样它还可以定义其他应用程序可用或特定需求...fmtparams 可以覆写当前变种格式单个格式设置

    2.3K20

    Java解析OFFICE(word,excel,powerpoint)以及PDF实现方案及开发点滴分享

    Java解析OFFICE(word,excel,powerpoint)以及PDF实现方案及开发点滴分享   在此,先分享下写此文前经历与感受,我所有的感觉浓缩到一个字,那就是:"坑",如果是两个字那就是...  B>能解析对象,解析出来效果不是很好,比如word和ppt自身排版乱了,excel单元格里面的自定义格式全变成数字了~等等   C>开源社区资料并不是很全,导致结果是不同文档类型需要用不同解析方式去解析...,比如word用docx4j解析、excel用poi解析带来代码量巨大   D>由于代码自身解析效果不是很好,更改后方案需要在上传之前将源文件处理成其他形式,如pdf需要切成图片,ppt需要转换成视频或是图片...:  A>Word文档分两种格式(03版)doc和(07版)docx,由于doc属于即将淘汰格式同时为方便使用docx4j一步到位实现方式,故不考虑doc格式文档   B>同Word一样,excel...解决方式是在实际项目的log4j.properties添加docx4j消息级别为ERROR,如: ?

    2.8K170

    Python办公自动化|光速对比并提取两份WordExcel不同元素

    大家好,又到了Python办公自动化专题 如果你经常与ExcelWord打交道,那么从两份表格/文档中找到不一样元素是一件让人很头疼工作,当然网上有很多方法、第三方软件教你如何对比两份文件。...本文就将以两份真实Excel/Word文件为例,讲解如何使用Python光速对比并提取文件不同之处! 比较Excel 为了方便说明,我创建了一个简单Excel用于示例 ?...首先我们还是创建两份有区别的Word文档,内容取自百度百科Python介绍[1] ? 左边为原始word右边word是我修改了几处文档, 现在我们用Python来快速找到两份文档不同。...结束语 通过介绍如何使用Python来对两个Excel/Word文件进行比较,我想你应该体会到了Python强大之处,其实思路无非就是读取文件、定位之处并标记。...0512获取 注2: 以上代码在Python3环境下运行 如果喜欢Python自动化系列请点击在看并多多转发~ 参考资料 [1] 百度百科: https://baike.baidu.com/item/

    5.1K31

    一文学会用Python操作Excel+Word+CSV

    细心朋友可能注意到,这里我们可以获取到单元格类型,上面我们读取类型时获取是数字1,那1表示什么类型,又都有什么类型呢?...修改 excel 上面说了写入和读取 Excel 内容,接下来我们就说下更新修改 Excel 该如何操作,修改时就需要用到 xlutils 方法了。...读取 Word 文件 上面写了很多用 Python 创建空白 Word 文件格式化字体并保存到文件,接下来我们再简单介绍下如何读取已有的 Word 文件,请看如下代码: # 引入库 from docx...模块来实现 CSV 格式文件数据读写,该模块提供了兼容 Excel 方式输出、读取数据文件功能,这样我们无需知道 Excel 所采用 CSV 格式细节,同样它还可以定义其他应用程序可用或特定需求...fmtparams 可以覆写当前变种格式单个格式设置

    3.1K20

    Python 助力词频统计自动化

    Excel 表格 the 频次在 B 列,数目为 2784。我们要实现就是把 the 单词在 Excel 表格对应词频数更新到 Word 文档 the 考频。...首先是读取 Word 文档不同表格,并将其中所有的单词和对应考频提取出来; 2. 读取 Excel 表格数据,将单词和要更新词频一一对应; 3....遍历 Word 文档每个单词,以单词为引在 Excel 表格词库检索相应次数,有数据就更新到 Word 文档相应位置。...那么要实现以上思路,除了读取 Excel 表格数据,比较关键就是可以精准地读写 Word 文档中表格数据。...: from docx import Document # 读取 word 文档 path="高考词频表.docx" document = Document(path) # 读取文档所有表格 tables

    1.3K10

    按键精灵——如何实现excel办公自由

    索引值为从1开始计数正整数 命令名称:lxj_ExcelHwnd 获取EXCEL窗口句柄命令名称:lxj_ExcelLastR 获取EXCEL总行数命令名称:lxj_ExcelLastC 获取EXCEL...保存EXCEL文档命令名称:lxj_ExcelClose 关闭EXCEL文档 下面贴一个插件自带代码示例(有删改): path="D:\测试.xlsx" index = Plugin.lxj_Office.lxj_ExcelOpen...默认为0 返回值:无 命令名称:lxj_WordReadEX 读取Word文档全文命令名称:lxj_WordWriteEX 重写Word文档命令名称:lxj_WordSet 设置光标位置命令名称:...保存Word文档命令名称:lxj_WordClose 关闭Word文档 下面贴一个插件自带代码示例(8.x语法): path="C:\a.doc" //打开Word文档,为了演示,将第二个参数...还是老问题,写代码时,末尾记得加上“关闭文档”命令,不然会一直卡在后台进程,如果没保存可能会丢失。 如果真的被卡后台里了,怎么办?打开进程管理,找到excel或者word进程,关掉即可。

    6.7K20

    VBA实战技巧32:安装Excel加载宏

    这两种方法操作演示如下图2所示。 图2 如果你加载宏不在“可用加载宏”列表,则必须单击该对话框右侧“浏览”按钮,进行查找,然后将其添加到可用加载宏列表。...2.注册表 对于与上述位置不同加载项,Excel将在注册表查找。当单击“浏览”按钮以查找加载项时,会在此处添加键。...vbNewLine & _ vbNewLine &vbNewLine & _ "建议你将加载项文件保存到文档文件夹专用文件夹...Excel可以打开此类文件,但无法安装zip文件夹加载项。并且压缩软件会在关闭后立即删除Temp该文件夹。然后,会在Excel得到一个指向已安装加载项指针,该加载项没有随附xlam文件。...最后一行关闭加载项打开所有工作簿。为什么?因为当没有活动工作簿时你无法打开加载项对话框,显然这也会阻止Excel通过VBA将新加载项添加到列表

    4.9K20
    领券