Передать Range в Selection

@БорисЛотус · Регистрация: 07.10.2016

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

Хочу передать диапазон с ворд текста myRange в объект Selection, чтобы потом его обработать.

Selection.InsertAfter уже не работает.

Visual Basic
1
2
3
4
5
6
7
8
Set Bookmark = ActiveDocument.Bookmarks
 mStart% = Bookmark(1).Range.Start
 mEnd% = Bookmark(2).Range.End
 
Dim myRange As Range
 Set myRange = ActiveDocument.Range(mStart%, mEnd%)
  myRange.Select
  Selection.InsertAfter "ТЕКСТ-ТЕКСТ-ТЕКСТ"

@Казанский · 19.11.2016, 02:11

БорисЛотус, как именно не работает? Приложите файл-пример.
Про работу с закладками: Создание шаблона и работа с полями

@БорисЛотус · 21.11.2016, 09:45 **[ТС]**

Выкладываю пример. Там есть макрос, в нем в комментах указаны проблемные места.

Письмо-c макросом.doc

@Казанский · 21.11.2016, 19:09

БорисЛотус,

Visual Basic
1
  Selection.InsertAfter "ТЕКСТ-ТЕКСТ-ТЕКСТ"   ' НЕ РАБОТАЕТ

Ну а как ему работать, если документ защищен от изменений? Вы же пытаетесь вставить после (After) диапазона закладки, в защищенную область.

Visual Basic
1
    Selection.Find.Execute Replace:=wdReplaceAll  ' НЕ РАБОТАЕТ

Попробуйте то же самое через Ctrl+H. Найти далее - находится 11111 в защищенной области, кнопка Заменить неактивна.
Объясните лучше словами, что нужно получить.

@БорисЛотус · 22.11.2016, 10:45 **[ТС]**

Я хочу в незащищенной области, там где "Текс аа ББББББ" сделать замену жирного текста.
Скрипт замены корректен, я вроде как пытаюсь сделать изменения в незащищенной области, я её в myRange выделил.

@БорисЛотус · 23.11.2016, 12:55 **[ТС]**

Ну как, получилось у кого-то ??

@БорисЛотус · 29.11.2016, 10:43 **[ТС]**

Судя по количеству советов - то нет (((

@БорисЛотус · 06.12.2016, 11:16 **[ТС]**

Апдейт. Может кто еще не читал тему ((

toiai · 06.12.2016, 15:38

Попробуй так, заменив часть кода:

Visual Basic
1
2
3
4
5
6
7
 mStart% = Bookmark(1).Range.Start + 1
 mEnd% = Bookmark(2).Range.End - 2
 
Dim myRange As Range
 Set myRange = ActiveDocument.Range(mStart%, mEnd%)
  myRange.Select
  Selection.InsertAfter "ТЕКСТ-ТЕКСТ-ТЕКСТ"   ' РАБОТАЕТ

@БорисЛотус · 25.01.2017, 11:24 **[ТС]**

Кто в курсе, почему у больших документов ворд
mStart% = Bookmark(1).Range.Start
mEnd%= Bookmark(2).Range.End - Выдает ошибку overflow
...
Set myRange = worddoc.Range(mStart%,mEnd%)

И как тогда выделить правильно текст между закладками?

@БорисЛотус · 27.01.2017, 12:02 **[ТС]**

Никто не сталкивался с подобным ограничением Range.End ???

@snipe · 27.01.2017, 12:31

попробуйте заменить % на &

Добавлено через 1 минуту
или даже на #

Shersh · 27.01.2017, 12:46

Сообщение от F2

Property End As Long
Member of Word.Range

Сообщение от F1

Переменные типа Long (длинное целое) сохраняются как 32-разрядные (4-байтовые) числа со знаком в диапазоне от -2 147 483 648 до 2 147 483 647. Символом объявления типа для Long является амперсанд (&).

Переменные типа Integer (целочисленные) хранятся как 16-битовые (2-байтовые) числа, входящие в диапазон от -32 768 до 32 767. Символом объявления типа для Integer является знак процента (%).

Зачем вам приспичило присваивать значение LONG переменной типа Integer (%)?

Сообщение от snipe

или даже на #

- это избыточно, наверно

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	19.11.2016, 02:11
	БорисЛотус, как именно не работает? Приложите файл-пример. Про работу с закладками: Создание шаблона и работа с полями 0

@БорисЛотус 1 / 1 / 0 Регистрация: 07.10.2016 Сообщений: 24
	21.11.2016, 09:45 [ТС]
	Выкладываю пример. Там есть макрос, в нем в комментах указаны проблемные места. Письмо-c макросом.doc 0

@БорисЛотус 1 / 1 / 0 Регистрация: 07.10.2016 Сообщений: 24
	22.11.2016, 10:45 [ТС]
	Я хочу в незащищенной области, там где "Текс аа ББББББ" сделать замену жирного текста. Скрипт замены корректен, я вроде как пытаюсь сделать изменения в незащищенной области, я её в myRange выделил. 0

@БорисЛотус 1 / 1 / 0 Регистрация: 07.10.2016 Сообщений: 24
	23.11.2016, 12:55 [ТС]
	Ну как, получилось у кого-то ?? 0

@БорисЛотус 1 / 1 / 0 Регистрация: 07.10.2016 Сообщений: 24
	29.11.2016, 10:43 [ТС]
	Судя по количеству советов - то нет ((( 1

@БорисЛотус 1 / 1 / 0 Регистрация: 07.10.2016 Сообщений: 24
	06.12.2016, 11:16 [ТС]
	Апдейт. Может кто еще не читал тему (( 0

@БорисЛотус 1 / 1 / 0 Регистрация: 07.10.2016 Сообщений: 24
	25.01.2017, 11:24 [ТС]
	Кто в курсе, почему у больших документов ворд mStart% = Bookmark(1).Range.Start mEnd%= Bookmark(2).Range.End - Выдает ошибку overflow ... Set myRange = worddoc.Range(mStart%,mEnd%) И как тогда выделить правильно текст между закладками? 0

@БорисЛотус 1 / 1 / 0 Регистрация: 07.10.2016 Сообщений: 24
	27.01.2017, 12:02 [ТС]
	Никто не сталкивался с подобным ограничением Range.End ??? 0

@snipe 4089 / 1469 / 401 Регистрация: 07.08.2013 Сообщений: 3,670
	27.01.2017, 12:31
	попробуйте заменить % на & Добавлено через 1 минуту или даже на # 1