我将活动文档另存为 HTML 文件,它会自动生成一个子文件夹,其中包含文档的所有内联形状(图片)。我为此使用了这段代码:
ActiveDocument.SaveAs FileName:=HTMLPath, _
FileFormat:=wdFormatHTML, AddToRecentFiles:=True
这正是我想要的,但是对于文档中的每个图像,它会保存一个或两个文件。如果在 Word 中,图像未受影响。但是任何操作(调整大小、着色、裁剪等)都会导致此 HTML 保存生成原始图像版本并进行编辑。我想删除原件。图像只是像 image001.png、image002.png 等那样递增,所以我无法比较文件名,文件大小可能不同等。
如何确定活动文档中的图像是原始的还是编辑过的?通过获得这些信息,我假设我可以删除所有其他图像(如果所有图像都已编辑)或跟踪哪些是,哪些不是。
如果我有这样的循环,可以存储一个数组或其他东西来确定哪些是原始的或编辑过的。
For Each oILShp In ActiveDocument.InlineShapes
'if oILShp is not edited, add current index to array
'loop through array and delete images that have an original and edited version
Next