Есть ли способ использовать Word Interop или VBA для получения исходного текста абзаца (или любого диапазона), который содержит ревизии?

Question

Похоже, доступ к диапазонам ревизий дает мне только обновленный текст.Мне бы хотелось, чтобы текст был таким, каким он был изначально, чтобы я мог создать отчет, в котором будет что-то вроде «Изменить на».

Answer 1

Я считаю, что как только вы получите объект диапазона, вы можете получить доступ к ревизиям, сделанным в этом диапазоне, через Range.Revisions.

, тогда вам придется перечислить ревизии и посмотреть на ТИП ревизии, чтобыопределите, какое это было изменение.

Если вы хотите оригинальную версию, вам, возможно, придется открыть вторую копию документа, выбрать диапазон, затем ОТКЛОНИТЬ все ревизии в этом диапазоне, прочитать значениедиапазон и через эту копию документа прочь.

Answer 2

Отклонение ревизии изменит

Range.text

на исходный текст.

Затем можно отменить изменения, чтобы вернуть его к пересмотренному тексту.