Совершенно случайно наткнулся на мало кому известный, но очень удобный хоткей Ворда! Оказывается, создать в документе связь (автоматически обновляемый дубликат какого-то другого его фрагмента - аналог инструмента "камера" в Excel'e) очень просто. Достаточно выделить копируемый текст-образец, нажать ОДНОВРЕМЕННО Ctrl+Shift и утащить выделенный текст в нужное место документа мышкой (ЛКМ). Полученная копия окажется OLELink-объектом, значение и формат которого будет автоматически меняться при изменении образца.
Смешно то, что я наткнулся на этот хоткей действительно случайно: при копировании выделил текст и, собравшись зажать Ctrl и тянуть фрагмент ЛКМ, зацепил "сарделькой" ещё и Shift… А когда скопировалось, получилась не копия, а ссылка.
Совершенно случайно наткнулся на мало кому известный, но очень удобный хоткей Ворда! Оказывается, создать в документе связь (автоматически обновляемый дубликат какого-то другого его фрагмента - аналог инструмента "камера" в Excel'e) очень просто. Достаточно выделить копируемый текст-образец, нажать ОДНОВРЕМЕННО Ctrl+Shift и утащить выделенный текст в нужное место документа мышкой (ЛКМ). Полученная копия окажется OLELink-объектом, значение и формат которого будет автоматически меняться при изменении образца.
Смешно то, что я наткнулся на этот хоткей действительно случайно: при копировании выделил текст и, собравшись зажать Ctrl и тянуть фрагмент ЛКМ, зацепил "сарделькой" ещё и Shift… А когда скопировалось, получилась не копия, а ссылка.Alex_ST
Пожалуйста, Вить, юзай. А круто я по кнопочке-то промахнулся! Аж сам удивился, что так просто можно делать то, что вообще стандартными средствами не делалось (ведь обычную перекрёстную ссылку поставить можно только на абзац, заголовок, закладку, сноску, рисунок, таблицу, но никак не на произвольный фрагмент текста, да ещё и с форматированием).
Пожалуйста, Вить, юзай. А круто я по кнопочке-то промахнулся! Аж сам удивился, что так просто можно делать то, что вообще стандартными средствами не делалось (ведь обычную перекрёстную ссылку поставить можно только на абзац, заголовок, закладку, сноску, рисунок, таблицу, но никак не на произвольный фрагмент текста, да ещё и с форматированием).Alex_ST
Ну, а из экспериментов с новым хоткеем родились и два макроса: Первый макрос: Вставить не форматированную связь (такую связь можно форматировать на месте и её формат не зависит от формата источника)[vba]
Code
Sub InsertUnFormatedLink() With Selection If .Type <> wdSelectionNormal And .Type <> wdSelectionIP Then MsgBox "ERROR": Exit Sub .PasteSpecial Link:=True, DataType:=wdPasteText End With End Sub
[/vba]Таким макросом удобно, например, какое-то название из текста (ну, например, "Регламент взаимодействия с ЗАО "Рога и Копыта") вставить в колонтитул. Тогда при изменении текста в документе одновременно изменятся и колонтитулы.
Второй макрос: Вставить форматированную связь (формат такой связи зависит от формата источника - это точно то же самое, что получается при "тягании" выделенного фрагмента ЛКМ+Ctrl+Shift)[vba]
Code
Sub InsertFormatedLink() With Selection If .Type <> wdSelectionNormal And .Type <> wdSelectionIP Then MsgBox "ERROR": Exit Sub .PasteSpecial Link:=True, DataType:=wdPasteRTF End With End Sub
[/vba]Правда, куда это можно с толком применить, пока не придумал
Ну, а из экспериментов с новым хоткеем родились и два макроса: Первый макрос: Вставить не форматированную связь (такую связь можно форматировать на месте и её формат не зависит от формата источника)[vba]
Code
Sub InsertUnFormatedLink() With Selection If .Type <> wdSelectionNormal And .Type <> wdSelectionIP Then MsgBox "ERROR": Exit Sub .PasteSpecial Link:=True, DataType:=wdPasteText End With End Sub
[/vba]Таким макросом удобно, например, какое-то название из текста (ну, например, "Регламент взаимодействия с ЗАО "Рога и Копыта") вставить в колонтитул. Тогда при изменении текста в документе одновременно изменятся и колонтитулы.
Второй макрос: Вставить форматированную связь (формат такой связи зависит от формата источника - это точно то же самое, что получается при "тягании" выделенного фрагмента ЛКМ+Ctrl+Shift)[vba]
Code
Sub InsertFormatedLink() With Selection If .Type <> wdSelectionNormal And .Type <> wdSelectionIP Then MsgBox "ERROR": Exit Sub .PasteSpecial Link:=True, DataType:=wdPasteRTF End With End Sub
[/vba]Правда, куда это можно с толком применить, пока не придумал Alex_ST
С уважением, Алексей MS Excel 2003 - the best!!!
Сообщение отредактировал Alex_ST - Четверг, 12.07.2012, 22:28
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
Смешно то, что я наткнулся на этот хоткей действительно случайно: при копировании выделил текст и, собравшись зажать Ctrl и тянуть фрагмент ЛКМ, зацепил "сарделькой" ещё и Shift… А когда скопировалось, получилась не копия, а ссылка.
