WPSAI批量总结文档内容并重命名docx文档，怎么做

WPS文字和WPS表格都内置有AI功能。特别注意到WPS表格有一个WPSAI.SUMMARIZE公式，把AI的文本总结能力做了公式，觉得很神奇很方便。

但当我录制宏的时候，发现这些在线的AI功能都不能被录制，也就是不能通过写代码来批量直接使用这些功能。

嗯，差点意思！

但我还是用间接的办法试了一下。

一不小心，把我的一批docx文档名称搞乱码了

如下图。一个一个手动把文件名改回来太费事，于是就想能不能写个vba代码自动根据文件内容的总结把这些文件名改回来。

每个文档开头的内容如下，一般第2段内容包含有文档的主题。

我的思路

在WPS表格中写vba代码，提取同一文件夹的所有docx文档的第2段内容，放到A列，然后在B1写入函数=WPSAI.SUMMARIZE(A1,20)，此函数充填B列其他单元格。然后提取B列的文本，重命名对应的文档。

我问WPS灵犀，如何使用vba代码实现这一功能？

经过多次调试后得到的可行的代码

虽然我的编程经验不多，但通过与AI合作，经过自己多次调试后，得了如下可行的代码。

这个代码的问题是，只有几个文档的时候，成功率还是挺高的。但文档一多起来，WPSAI.SUMMARIZE这个在线函数的计算时间是不确定的，常常会卡住，导致后面的重命名操作因为取不到值而失败。

如下图，如果你手动充填公式的话还好，不会等待很长时间，但你通过vba充填的公式，就常常会卡住，不知道为什么会这样。

总结

失败了，没意思！

以上首发于知乎