MATLAB合并Word文档

功能：将多个word合并成一个word，按照文件名称进行分节。

实现步骤：建立新word作为合并文件，将需要合并的word打开，然后按文件夹中的顺序进行复制粘贴。

问题解决：针对参考链接2中存在的修改原有word进行了修改，存在只读word文档不允许修改保存问题，本文建立了新的word进行合并；

参考链接2会在原word中添加分页符，本文在复制粘贴后关闭原word，然后添加分页符。

应用：将类似的word进行合并，如测试报告，测试表格。

具体代码如下：

clear
clc
pwd = dir('D:\word_write\WordPath');%获取文件夹路径
pwd(1:2) = [];%删除前两个空值
FilePath = string(pwd(1).folder);%文件夹路径
for i=1:1:length(pwd)
%     FilePath(i) = string(strcat(pwd(i).folder,'\',pwd(i).name));
    FileName(i) = string(pwd(i).name);%文件名
end
%% 合并文件的文件名称
[file, path] = uiputfile('*.docx');%命名文件
if isequal(file,0) || isequal(path,0)
 
    errordlg('未命名文件','错误');%错误提示
    return
else
    filespec_user = strcat(path,file);% 设Word文件名和路径
end
if exist(filespec_user,'file')
    delete(filespec_user);
end
% 判断Word是否已经打开，若已打开，就在打开的Word中进行操作，否则就打开Word
try
    % 若Word服务器已经打开，返回其句柄Word
    word = actxGetRunningServer('Word.Application');
catch
    % 否则，创建一个Microsoft Word服务器，返回句柄Word
    word = actxserver('Word.Application');
end
word.Visible = 1; % 写入Word可视化，0则不可见
%% 先写合并文档标题
Document = word.Documents.Add;
Document.SaveAs2(filespec_user);
Document.PageSetup.Orientation=1;
Content = Document.Content;
Content.Text = "合并文档";
Content.Start =0;
Content.Paragraphs.Alignment='wdAlignParagraphCenter';%
Content.Font.Name = '宋体' ;
Content.Font.Size=20;
Document.Save; % 保存文档
Document.Close; % 关闭文档
mergedDoc = word.Documents.Open(filespec_user);%这里关闭之后再打开，直接可能会报错
%%
% 合并剩余文档
for DocIndex = 1:length(FileName)
    currentDoc = word.Documents.Open(fullfile(FilePath,FileName{DocIndex}));%打开需要合并的文档
    % 将当前文档复制到合并文档
    currentDocRange = currentDoc.Content;
    currentDocRange.Copy;
    %% %按照Word名称建立标题 这部分代码比较烂，待优化
    mergedDocRange = mergedDoc.Content;
    mergedDocRange.Start = mergedDocRange.End;
    mergedDocRange.Text = newline;%换行
    fileWord = char(FileName(DocIndex));
    mergedDocRange.Start = mergedDocRange.End;
    mergedDocRange.Text = fileWord(1:end-5);
    mergedDocRange.Start = mergedDocRange.End;
    mergedDocRange.Text = newline;
    mergedDocRange.Start = mergedDocRange.End;
    %% 粘贴至合并word
    mergedDocRange.Paste;
    currentDoc.Close;%关闭粘贴word后插入分页符   
    mergedDoc.Application.Selection.EndKey(6);%移动光标至文末
    mergedDoc.Application.Selection.InsertBreak(7);% 在当前文档末尾插入分页符
 
end
mergedDoc.Save; % 保存文档
mergedDoc.Close;
word.Quit;
delete(word);

参考资料：

Word Visual Basic for Applications (VBA) 参考 | Microsoft Learnhttps://learn.microsoft.com/zh-cn/office/vba/api/overview/word合并多个word文档_matlab操作word-优快云博客https://blog.youkuaiyun.com/weixin_50976580/article/details/135003119