cao2340的博客

删除水印一般使用的是直接进入页眉视图，然后删除代码如下：_appWord.ActiveWindow.ActivePane.View.SeekView = WdSeekView.wdSeekCurrentPageHeader;_appWord.Selection.HeaderFooter.Shapes["PowerPlusWaterMarkObject53265"].Select();_appWord.Selection.Delete();_appWord.ActiveWindow.ActivePan

想要完整提取word文件中的图片，VBA宏中并没有相应的方法，在网络中能找的方法一般就2种，一种是另存为网页，然后在files文件夹下会自动产生图片，此方法有弊端，当一个图片重复使用则只会保存一份，当然这其实正常，而且是按照浏览顺序产生的文件名，如图中所示：这种还是比较简单的图片类型，但是如果你有需要顺序数据的需求的话，重复的图片会导致index错误。所以记录一种单独提取图片的方法，代码如下： int picindex = 0; forea