我想删除Word文档中的所有文本,保留图像/嵌入式文件。

我知道这应该很容易,但是在网络上却不是一个很好的例子。

最佳答案

文本的类型为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

08-05 00:07