![如何从 PDF 到 Word 转换器中删除锚定字母的微小元素](https://linux22.com/image/1620075/%E5%A6%82%E4%BD%95%E4%BB%8E%20PDF%20%E5%88%B0%20Word%20%E8%BD%AC%E6%8D%A2%E5%99%A8%E4%B8%AD%E5%88%A0%E9%99%A4%E9%94%9A%E5%AE%9A%E5%AD%97%E6%AF%8D%E7%9A%84%E5%BE%AE%E5%B0%8F%E5%85%83%E7%B4%A0.png)
我正在翻译一份最初以 PDF 格式获得的文档。PDF 转 Word 转换器将许多微小元素保留在文档中,其中许多元素看起来像字母轮廓,但出于某种原因,算法将它们识别为小图像元素而不是字母。
有什么方法可以让我选择/循环查看它们以确定是否需要删除吗?还有表格,我不想删除它们。这是一份 60 页的文档,所以这可以节省我很多时间。
我可以突出显示文本,以捕获锚定元素,但如果不删除文本,则很难隔离和捕获它们。
谢谢您的帮助!
答案1
为了完成这些事情,您可以从以下两个小型 VBA 宏开始:
Sub hidepictures()
Dim p As Word.Paragraph
Dim shp As Word.Shape
Dim ishp As Word.InlineShape
With Selection.Paragraphs(1).Range
For Each shp In .ShapeRange
shp.Visible = msoFalse
Next
For Each ishp In .InlineShapes
ishp.Range.Font.Hidden = True
Next
End With
End Sub
和
Sub hidepictures()
Dim p As Word.Paragraph
Dim shp As Word.Shape
Dim ishp As Word.InlineShape
With Selection.Paragraphs(1).Range
For Each shp In .ShapeRange
shp.Visible = msoFalse
Next
For Each ishp In .InlineShapes
ishp.Range.Font.Hidden = True
Next
End With
End Sub
并为每个段落分配一个按键。然后随着操作进行修改。或者您可能希望隐藏与所选段落相关的图片,而不是所选段落中的第一个段落。
为了使“内嵌图片”部分有效,您必须确保隐藏文本未设置为可见。
这里有一些关于如何在 Windows 版本的 Word 上安装 VBA 宏的说明这里