Как я могу удалить весь текст в документе 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