我正在翻译一份最初以 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 宏的说明这里