undo/redo в Word

[Talker]

Делаю на VBA под Word программку по оформлению текста (удаление лишних пробелов, знаков, расстановка отступов и т.п.). Различные виды оформления доступны через специально созданную панель инструментов.
После применения к тексту какого-нибудь оформления в списке Undo появляется 5-6 строчек с командами VBA, нажимать 5-6 раз кнопку для отмены оформления не гумано. Что здесь можно сделать?
Первое, что мне пришло в голову - сделать свою кнопку Отмена и хранить где-нибудь (хотя бы в Parameter этой кнопки) последовательность колиичества операция по каждому примененного оформлению (из набора типа 5 6 10 5 выбираем последнее число и делаем откат на это число пераций). Но такая штука работает если все операции выполняются через мои макросы, а если просто вводится или правится текст, то в список Undo добавляются записи, которые в моем списке не учитываются.
Кто-нибудь занимался этим вопросом? Что с этим добром делать? Можно как-то перенастроить стандартный Undo (вообще в каком объекте он хранится?) или перехватывать все действия пользователя?

[GSerg]

Перехватывать все действия пользователя - это слишком непростая задача в свете VBA...

Есть мысль форматировать текст целиком в памяти, и потом одной командой вставлять его в документ... но это для простого текста и именно в плане правки самого текста. В плане оформления придётся тогда использовать временный документ, в нём форматировать и потом всё разом копировать обратно, тогда будет одна команда в Undo, но это криво и смотрится неприятно... Возможно, поможет application.sreenupdating, а возможно нет. Создавать из макроса новый объект word менее криво в визуальном плане, но более криво в плане скорости...

[Talker]

GSerg
Как всё просто Спасибо!

[Talker]

Ещё один глупый вопрос - как скопировать текст с оформлением из временного документа в исходный?
Сделал это через Буфер обмена, работает, но как-то криво смотрится и в буфере обмена остается текст.

[GSerg]

Я ж говорю, и так криво, и так криво, только кривизна в разную сторону.
Ворд умеет так копировать, когда ctrl+мышью, но в объектной модели похоже нет этих методов. И при записи макроса мышь отключается.

[Talker]

Удалить последнюю строчку из Буфера обмена нильзя?

[GSerg]

Можна.


ЗЫ. Вот яркий пример выдачи той информации, которая была запрошена, а не той, которая на самом деле нужна.

[Talker]

Каким образом?

[GSerg]

Это сложный вопрос!

Примерно http://bbs.vbstreets.ru/viewtopic.php?p=99963#99963

[Talker]

Прежде чем спрашивать я воспользовался поиском, нашел эту тему и попытался использовать EmptyClipboard - вообще ничего не произошло. Или я не туда смотрю?

[GSerg]

Там перечислены три функции, и надо использовать все три, в порядке их приведения...

[Talker]

Мда, туплю
Последний вопрос - что передать в качестве параметра OpenClipboard?

[Talker]

Т.е. что передать я понял, а где мне это значение взять?

[GSerg]

Пользуемся кнопкой Правка для добавления неожиданно пришедших мыслей.


Потом читаем справку и передаём 0.

[Talker]

Clipboard очищается, но буфер обмена остается нетронутым. Или так задумано?

[GSerg]

Перечитай приведённую выше ссылку... я в основном имел в виду приводимые там рассуждения, а не код...

[Talker]

Т.е. рабочего кода для этой задачи не существует?

[Talker]

Ещё одна трабла. Текст в памяти формировал в новой копии класса ThisDocument, а в 97 и 2000 такого класса нет Просто Document открывает новый документ, что не есть good. Что тут можно сделать?

[GSerg]

Thisdocument всегда есть. И всегда ссылается на документ, в котором расположен выполняемый код.
Просто document - правильно, я же говорил, смотрится неприятно...

[Talker]

Тьфу, опять я замудрил Работает эта фишка и в 97, и в 2000, и в 2003. Жалко что с буфером ничего нельзя сделать

[Talker]

В продолжение темы о буфере обмена. Эффект, аналогичный использованию библиотечных функций дает код

Код: Выделить всё

Dim MyData As DataObject
Set MyData = New DataObject
MyData.SetText ""
MyData.PutInClipboard

Жаль, что мою задачу этот код не решает

[alibek]

У офиса XP/2003 свой собственный буфер, с ним надо работать через методы офиса.

[Talker]

alibek
Какие именно, если не секрет?

[Talker]

GSerg
Не знаете, какой более простой класс можно использовать вместо ThisDocument? А то на больши строках тормоза заметные получаются

[GSerg]

Вопрос неясен.

[Talker]

В начале процедуры я перекидываю значение из текущего параграфа в ThisDocument

Код: Выделить всё

Set S = Selection.Paragraphs.First.Range
Set d = ThisDocument

S.Copy
d.Paragraphs.First.Range.Select
d.Paragraphs.First.Range.Paste

далее делаю обработку d.Paragraphs.First.Range и в конце перекидываю всё обратно

Код: Выделить всё

d.Paragraphs.First.Range.Select
d.Paragraphs.First.Range.Cut
S.Select
S.Paste

Полагаю, что немного перемудрил, потому что из-за обращения к ThisDocument происходят заметные тормоза. Что здесь можно улучшить? В какой объект кроме ThisDocument и Document можно таким вот образом передать текст (с оформлением) на обработку?

[GSerg]

Ни в какой, разумеется.
Только select не надо делать.

[Talker]

Только select не надо делать.

А как без этого делать замену текста?

[GSerg]

Методами range (то есть так, как это делаешь ты сейчас).

[Talker]

Спасибо