吾爱破解 - 52pojie.cn

 找回密码
 注册[Register]

QQ登录

只需一步,快速开始

查看: 764|回复: 5
收起左侧

[资源求助] 求一个可以批量修改word excel ppt文档属性详细信息的软件

[复制链接]
JoneNary 发表于 2024-5-6 23:41
50吾爱币
求一个可以批量修改word excel ppt文档属性详细信息的软件,主要批量修改office文件属性详细信息里的标题、作者。谢谢

最佳答案

查看完整内容

😊 **批量修改 Word、Excel、PPT 文档属性详细信息的 Python 脚本** =========================================================== **安装库** ```bash pip install python-docx openpyxl python-pptx ``` **脚本** ```python import os import docx import openpyxl from pptx import Presentation def modify_word_properties(file_path, new_properties): """ 修改 Word 文档属性 ...

发帖前要善用论坛搜索功能,那里可能会有你要找的答案或者已经有人发布过相同内容了,请勿重复发帖。

XiaoHai101 发表于 2024-5-6 23:41


😊

**批量修改 Word、Excel、PPT 文档属性详细信息的 Python 脚本**
===========================================================

**安装库**

```bash
pip install python-docx openpyxl python-pptx
```

**脚本**
```python
import os
import docx
import openpyxl
from pptx import Presentation

def modify_word_properties(file_path, new_properties):
    """
    修改 Word 文档属性
    """
    doc = docx.Document(file_path)
    for key, value in new_properties.items():
        if key == "title":
            doc.core_properties.title = value
        elif key == "author":
            doc.core_properties.author = value
        elif key == "created":
            doc.core_properties.created = value
        elif key == "modified":
            doc.core_properties.modified = value
    doc.save(file_path)

def modify_excel_properties(file_path, new_properties):
    """
    修改 Excel 文档属性
    """
    wb = openpyxl.load_workbook(file_path)
    for key, value in new_properties.items():
        if key == "title":
            wb.properties.title = value
        elif key == "author":
            wb.properties.author = value
        elif key == "created":
            wb.properties.created = value
        elif key == "modified":
            wb.properties.modified = value
    wb.save(file_path)

def modify_ppt_properties(file_path, new_properties):
    """
    修改 PPT 文档属性
    """
    prs = Presentation(file_path)
    for key, value in new_properties.items():
        if key == "title":
            prs.core_properties.title = value
        elif key == "author":
            prs.core_properties.author = value
        elif key == "created":
            prs.core_properties.created = value
        elif key == "modified":
            prs.core_properties.modified = value
    prs.save(file_path)

def main():
    # 文件夹路径
    folder_path = "path/to/folder"

    # 新的属性值
    new_properties = {
        "title": "新标题",
        "author": "新作者",
        "created": "2024-08-16",
        "modified": "2024-08-16"
    }

    # 遍历文件夹中的文件
    for file_name in os.listdir(folder_path):
        file_path = os.path.join(folder_path, file_name)

        # 判断文件类型
        if file_name.endswith(".docx"):
            modify_word_properties(file_path, new_properties)
        elif file_name.endswith(".xlsx"):
            modify_excel_properties(file_path, new_properties)
        elif file_name.endswith(".pptx"):
            modify_ppt_properties(file_path, new_properties)

if __name__ == "__main__":
    main()
```

**使用方法**

1. 将脚本文件保存为 `modify_properties.py`。
2. 修改 `folder_path` 变量为需要批量修改的文件夹路径。
3. 修改 `new_properties` 变量为新的属性值。
4. 运行脚本文件 `python modify_properties.py`。

脚本将批量修改文件夹中的 Word、Excel、PPT 文件的属性详细信息。
QvQsuipian 发表于 2024-5-6 23:51
本文主要分享了修改文件-属性中信息的方法。https://zeyulong.com/posts/1e805a22/
yucevip 发表于 2024-5-7 08:49
#PowerShell 脚本
# 定义函数来修改 Word 文档的属性  
function SetWordDocumentProperties($filePath, $title, $author) {  
    $word = New-Object -ComObject Word.Application  
    $doc = $word.Documents.Open($filePath)  
      
    # 修改文档属性  
    $doc.BuiltInDocumentProperties("标题666").Value = $title  
    $doc.BuiltInDocumentProperties("作者666").Value = $author  
      
    # 保存并关闭文档  
    $doc.Save()  
    $doc.Close()  
      
    # 退出 Word 应用程序  
    $word.Quit()  
      
    # 释放 COM 对象  
    [System.Runtime.Interopservices.Marshal]::ReleaseComObject($doc) | Out-Null  
    [System.Runtime.Interopservices.Marshal]::ReleaseComObject($word) | Out-Null  
    [GC]::Collect()  
    [GC]::WaitForPendingFinalizers()  
}  
  
# 遍历指定目录中的 Word 文档并修改其属性  
$directory = "D:\Staging\666" # 替换为你的文档目录  
$files = Get-ChildItem -Path $directory -Filter *.docx -Recurse # 假设只处理 .docx 文件  
  
foreach ($file in $files) {  
    SetWordDocumentProperties($file.FullName, "New Title", "New Author") # 调用函数并传入新属性值  
}
Shiliu2713 发表于 2024-5-7 10:01
菲菲更名宝贝 -- office文档摘要处理  
woi1111 发表于 2024-8-16 18:36
QvQsuipian 发表于 2024-5-6 23:51
本文主要分享了修改文件-属性中信息的方法。https://zeyulong.com/posts/1e805a22/

这个链接文章附上的链接里,有个好用的工具NewFileTime 7.29 Download  https://www.softwareok.com/?Download=NewFileTime
您需要登录后才可以回帖 登录 | 注册[Register]

本版积分规则

返回列表

RSS订阅|小黑屋|处罚记录|联系我们|吾爱破解 - LCG - LSG ( 京ICP备16042023号 | 京公网安备 11010502030087号 )

GMT+8, 2024-12-14 20:38

Powered by Discuz!

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表