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

Question

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

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

Answer 1

文字属于WdSelectionNormal类型

因此，如果您遍历文档的所有字符并删除＆＃34;字符＆＃34;选择时为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