MATLAB R2018b 使用 ActiveX 自动修改Word(.doc)文档标题

MATLAB R2018b 使用 ActiveX 自动修改 Word (.doc) 文档标题

在 MATLAB R2018b 版本中，可以使用 actxserver 函数与 Microsoft Word 进行交互来读取和处理 .doc 格式的 Word 文档。以下是一个示例，用于修改指定文件夹下所有 .doc 文档的标题，提取标题中的数字部分并使用它重命名文档：matlab% 设置要读取的Word文档所在的文件夹路径folderPath = 'C:\Documents';

% 获取文件夹中的所有Word文档files = dir(fullfile(folderPath, '*.doc'));

pattern1 = '(\d+-\d+-1)(.)';pattern2 = '(\d+-\d+)(.)';

% 创建一个ActiveX服务器连接到Microsoft WordwordApp = actxserver('Word.Application');

% 遍历所有Word文档，修改它们的名称for i = 1:length(files) filePath = fullfile(files(i).folder, files(i).name); % 打开指定的doc文档 doc = wordApp.Documents.Open(filePath); docName = doc.BuiltInDocumentProperties('Title').Value; % 提取数字部分 match1 = regexp(docName, pattern1, 'tokens'); match2 = regexp(docName, pattern2, 'tokens'); if ~isempty(match1) % 保留前面的数字部分 docName = match1{1}{1}; elseif ~isempty(match2) % 保留前面的数字部分 docName = match2{1}{1}; else % 若不属于以上两种情况，则跳过此文档 doc.Close(); continue; end % 更新文档名称 doc.BuiltInDocumentProperties('Title').Value = docName; doc.Save(); doc.Close(); % 构建新的文档路径 newFilePath = fullfile(files(i).folder, [docName, '.doc']); % 更改文档路径 movefile(filePath, newFilePath);end

% 退出Word应用程序并释放COM对象wordApp.Quit();delete(wordApp);

代码解释：

1. 设置目标文件夹： 代码首先定义了目标文件夹路径 folderPath，并使用 dir 函数获取该文件夹下所有 .doc 文件的信息。2. 连接 Word 应用程序： 使用 actxserver 函数创建一个与 Microsoft Word 的 ActiveX 连接。3. 遍历文档并修改标题： 代码使用 for 循环遍历所有找到的 .doc 文件。 * 对于每个文件，首先使用 fullfile 函数构建完整的文件路径，然后使用 wordApp.Documents.Open 函数打开该文档。 * 使用 doc.BuiltInDocumentProperties('Title').Value 获取文档标题。 * 使用 regexp 函数和预定义的正则表达式 pattern1 和 pattern2 提取标题中的数字部分。 * 根据匹配结果，使用提取的数字部分更新文档标题 (doc.BuiltInDocumentProperties('Title').Value = docName)。 * 保存 (doc.Save()) 并关闭 (doc.Close()) 文档。4. 重命名文件： 使用 movefile 函数根据更新后的标题重命名文件。5. 退出 Word 应用程序： 最后，使用 wordApp.Quit() 退出 Word 应用程序，并使用 delete(wordApp) 释放 ActiveX 对象。

注意事项：

• 这段代码仅适用于 MATLAB R2018b 版本，并假设已经正确安装和配置了 Microsoft Word。* 确保修改 folderPath 变量为你的目标文件夹路径。* 正则表达式 pattern1 和 pattern2 用于匹配特定格式的标题，你可以根据需要修改它们以适应你的文档标题格式。