Объект, с которым Word умеет работать, а VBA - нет

@Oldchat · Регистрация: 29.08.2011

Author24 — интернет-сервис помощи студентам

Есть объект, с которым Word умеет работать, а VBA - нет. Создается он просто:

Сначала встраиваем лист Excel
1. Вставка->Объект->Лист Microsoft Excel->отметить CheckBox 'В виде значка'->Ok. Кликаем на значок, вводим в несколько первых столбцов/строк белиберду для идентификации и копируем несколько последовательных ячеек в какой-нибудь строке (выделение 'протяжкой'->Copy).

2. Возвращаемся в Word и создаем этот неопознанный объект двумя разными способами, которые отличаются один от другого лишь тем, что в одном случае начинаем и ведем в дальнейшем запись макроса, а в другом - нет. Продолжаем:
Правка->Специальная вставка...->Связать->Лист Vicrosoft Excel(объект)->убедиться, что в левом верхнем углу правильно передан связываемый диапазон таблицы->Ok->правый клик на вставленный объект->Формат объекта...->закладка Положение->'в тексте'->Ok.

Если указанное OLE идет без записи макроса, Word знает как поместить полученный объект - строку - в тексте. А если под запись, он дает неактивную иконку 'в тексте', поэтому ее невозможно выбрать.

Что же это за объект? Как с такой строкой работать: как обращаться к ней для чтения/записи (если возможно), как указать ее положение?

Размещаю еще в одном месте, моет кто-то догадается?

30.08.2011, 01:57

Это вы точно заметили.
Не знаю, в чём тут 'глубинный смысл', но:

Описываемая вставка ячеек в документ Ворда через 'Правка->Специальная вставка...->Связать' выглядит (если кодом) так:

Visual Basic

1 2	Selection.PasteSpecial Link:=True, DataType:=wdPasteOLEObject, Placement:= _ wdFloatOverText, DisplayAsIcon:=False

В этом случае нам доступны 5 констант из Enum WdWrapType; вот их имена (и соотв. опции в диалоге 'Формат объекта' / 'Положение' / 'Дополнительно' / 'Обтекание текстом'):

вокруг рамки - wdWrapSquare
по контуру - wdWrapTight
сквозное - wdWrapThrough
сверху и снизу - wdWrapTopBottom
за текстом - wdWrapNone, ZOrder 4
перед текстом - wdWrapNone, ZOrder 5

Их нужно использовать следующим образом:

Visual Basic

1
2
3

Selection.ShapeRange.WrapFormat.Type = <wdWrap.....>
' и для двух последних положений ещё потребуется
' вызов Selection.ShapeRange.ZOrder

Как видно, положению 'в тексте' не соответствует ни одной wdWrap-константы. Причина проста: все эти шесть положений уместны лишь при Placement:= wdFloatOverText. А вот когда хотим, чтоб было 'в тексте', то должны указать (при вызове Selection.PasteSpecial), что Placement:= wdInLine. Почему к этому приходится идти путём догадок и экспериментов - непонятно: было бы проще, если бы всё было видно из макрорекордера. Ан-нет, как вы сами и заметили...

PS: А вот как быть, если изначально Selection.PasteSpecial отработал с Placement:= wdFloatOverText, и лишь потом мы хотим сделать, чтоб было 'в тексте'? Где тогда указывать wdInLine? - а нигде, нужно просто выделить объект и выполнить вот такую строчку:

Visual Basic

1	Selection.ShapeRange.ConvertToInlineShape

И всё: после этого положение изменится на 'в тексте'.

30.08.2011, 02:04

Кстати, когда оно 'в тексте', то это есть 'InlineShape Object', а не просто 'Shape'. Их принципиальные отличия описаны подробно в MSDN. Из-за того, что отличия эти и впрямь серьёзные, обычной wdWrap-константой (для положения 'в тексте') не отстреляешься.

Было бы логичнее, если бы и в диалоге 'Формат объекта' / 'Положение' / 'Дополнительно' / 'Обтекание текстом' эта опция была выведена в отдельный уровень логики, а не сделана одним из семи возможных 'положений'...

@Oldchat · 30.08.2011, 10:15 **[ТС]**

Спасибо за ответ, он все поставил на место. Конечно, InLineShape объект ПОДЛЕЖИТ форматированию, принятому для текста, поэтому должен управляться иначе.

Вы правы, что макрорекордер упускает данный вид объектов: ведь он сделан человеком и для человека...

Интересно, как ам так быстро удалось разобраться? Интуиция? Или просто опыт?

Всего наилучшего!

@Oldchat · 30.08.2011, 10:16 **[ТС]**

Извините за опечатку: д.б. 'Вам' вместо 'ам' - клавиатура устала

30.08.2011, 11:40

>> Интересно, как ам так быстро удалось разобраться? Интуиция? Или просто опыт?

На самом деле всё очень просто. Посчитал wdWrap-константы внутри Enum wdWrapType (в броузере объектов). Посчитал 'картинки' в диалоге 'Формат объекта'. Сравнил - не сошлось. Ну а дальше - MSDN, MSDN, MSDN. Который, как известно, всегда наш спаситель

))

Новые блоги и статьи
Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution прилагаю файл архива проекта Gowin Eda и снимок. Восьмибитный счётчик из сумматора+ генератор сигнала согласования+ стартер fast регистров. Файлы прилагаю. . . .	UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форм быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .	Введение в модели и алгоритмы машинного обучения InfoMaster 12.01.2025 Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .	Как на Python создать нейросеть для решения задач InfoMaster 12.01.2025 В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .	Как создать нейросеть для генерации картинок на Python InfoMaster 12.01.2025 Генерация изображений с помощью искусственных нейронных сетей стала одним из наиболее захватывающих направлений в области компьютерного зрения и машинного обучения. В этой статье мы рассмотрим. . .	Создание нейросети для генерации текста на Python InfoMaster 12.01.2025 Нейросети, или искусственные нейронные сети, представляют собой модели машинного обучения, вдохновленные работой человеческого мозга. Они состоят из множества взаимосвязанных узлов, или "нейронов",. . .
Как создать нейросеть распознавания изображений на Python InfoMaster 12.01.2025 Введение в распознавание изображений с помощью нейросетей Распознавание изображений с помощью нейронных сетей стало одним из самых впечатляющих достижений в области искусственного интеллекта. Эта. . .	Основы искуственного интеллекта InfoMaster 12.01.2025 Искусственный интеллект (ИИ) представляет собой одну из наиболее динамично развивающихся областей современной науки и технологий. В широком смысле под искусственным интеллектом понимается способность. . .	Python и нейросети InfoMaster 12.01.2025 Искусственные нейронные сети стали неотъемлемой частью современных технологий, революционизировав множество областей - от медицинской диагностики до автономных транспортных средств. Python, благодаря. . .	Python в машинном обучении InfoMaster 12.01.2025 Python стал неотъемлемой частью современного машинного обучения, завоевав позицию ведущего языка программирования в этой области. Его популярность обусловлена несколькими ключевыми факторами, которые. . .	Создание UI на Python с TKinter InfoMaster 12.01.2025 TKinter — это одна из наиболее популярных библиотек для создания графических интерфейсов пользователей (GUI) в языке программирования Python. TKinter входит в стандартную библиотеку Python, что. . .	HTML5 в разработке мобильных приложений InfoMaster 12.01.2025 Введение: Обзор роли HTML5 в мобильной разработке В современном мире мобильных технологий HTML5 стал ключевым инструментом для разработки кроссплатформенных приложений. Эта технология произвела. . .

@Oldchat 0 / 0 / 0 Регистрация: 29.08.2011 Сообщений: 6
		1
	Объект, с которым Word умеет работать, а VBA - нет 29.08.2011, 21:20. Показов 3423. Ответов 5 Метки нет (Все метки) Есть объект, с которым Word умеет работать, а VBA - нет. Создается он просто: Сначала встраиваем лист Excel 1. Вставка->Объект->Лист Microsoft Excel->отметить CheckBox 'В виде значка'->Ok. Кликаем на значок, вводим в несколько первых столбцов/строк белиберду для идентификации и копируем несколько последовательных ячеек в какой-нибудь строке (выделение 'протяжкой'->Copy). 2. Возвращаемся в Word и создаем этот неопознанный объект двумя разными способами, которые отличаются один от другого лишь тем, что в одном случае начинаем и ведем в дальнейшем запись макроса, а в другом - нет. Продолжаем: Правка->Специальная вставка...->Связать->Лист Vicrosoft Excel(объект)->убедиться, что в левом верхнем углу правильно передан связываемый диапазон таблицы->Ok->правый клик на вставленный объект->Формат объекта...->закладка Положение->'в тексте'->Ok. Если указанное OLE идет без записи макроса, Word знает как поместить полученный объект - строку - в тексте. А если под запись, он дает неактивную иконку 'в тексте', поэтому ее невозможно выбрать. Что же это за объект? Как с такой строкой работать: как обращаться к ней для чтения/записи (если возможно), как указать ее положение? Размещаю еще в одном месте, моет кто-то догадается? 0

Comanche
	30.08.2011, 02:04	3
	Кстати, когда оно 'в тексте', то это есть 'InlineShape Object', а не просто 'Shape'. Их принципиальные отличия описаны подробно в MSDN. Из-за того, что отличия эти и впрямь серьёзные, обычной wdWrap-константой (для положения 'в тексте') не отстреляешься. Было бы логичнее, если бы и в диалоге 'Формат объекта' / 'Положение' / 'Дополнительно' / 'Обтекание текстом' эта опция была выведена в отдельный уровень логики, а не сделана одним из семи возможных 'положений'...

@Oldchat 0 / 0 / 0 Регистрация: 29.08.2011 Сообщений: 6
	30.08.2011, 10:15 [ТС]	4
	Спасибо за ответ, он все поставил на место. Конечно, InLineShape объект ПОДЛЕЖИТ форматированию, принятому для текста, поэтому должен управляться иначе. Вы правы, что макрорекордер упускает данный вид объектов: ведь он сделан человеком и для человека... Интересно, как ам так быстро удалось разобраться? Интуиция? Или просто опыт? Всего наилучшего! 0

@Oldchat 0 / 0 / 0 Регистрация: 29.08.2011 Сообщений: 6
	30.08.2011, 10:16 [ТС]	5
	Извините за опечатку: д.б. 'Вам' вместо 'ам' - клавиатура устала 0

Comanche
	30.08.2011, 11:40	6
	>> Интересно, как ам так быстро удалось разобраться? Интуиция? Или просто опыт? На самом деле всё очень просто. Посчитал wdWrap-константы внутри Enum wdWrapType (в броузере объектов). Посчитал 'картинки' в диалоге 'Формат объекта'. Сравнил - не сошлось. Ну а дальше - MSDN, MSDN, MSDN. Который, как известно, всегда наш спаситель ))