vba - 如何使用宏删除 Word 文档中的所有文本？

Question

我要删除 Word 文档中的所有文本，留下图像/嵌入文件 .

我知道这应该很容易，但在网络上不能成为一个很好的例子。

Answer 1

文本类型为 wdSelectionNormal

因此，如果您遍历文档的所有字符并删除选择时属于类型 2 的“字符”。它会解决问题。

这应该不是很快，但它有效。

此示例响应简单的情况:

Dim curCharIndex As Integer
Dim charCount As Integer
curCharIndex = 1
charCount = ActiveDocument.Characters.Count

While curCharIndex <= charCount
    ActiveDocument.Characters(curCharIndex).Select
    If Selection.Type = wdSelectionNormal Then
        Selection.Delete
        charCount = charCount - 1
    Else
        'Skip it
        curCharIndex = curCharIndex + 1
    End If
Wend