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

2019年8月3日 405次阅读

我想删除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
点赞