удаление гиперссылок

@Elena S · Регистрация: 22.04.2011

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

добрый день,

подскажите пож-та, как удалить гиперссылки: выгрузили из "консультатнт+" типовой устав в 2007й ворд, там по тексту гиперссылки, которые нужно убрать.

выделила весь документ ctrl+A, кликнула правой мышкой - раздел раскрывающегося меню "гиперссылки" не активен...

посмотрела в книжке, Новиков, Сотскова, аж 900 страниц книжка )) , ничего не нашла ((

@~~Busine2009~~ · 19.08.2011, 12:51

Elena S,
понятно.

Fairuza · 21.08.2011, 20:05

Elena S, Извините, Ctrl+Z обычно срабатывает на одной гиперссылке, т.е. поставил, а потом удалил.
А если по тексту их много, то после выделения - Crtl+6 срабатывает. Хотя Вы уже нашли способ)))

@Elena S · 22.08.2011, 09:37 **[ТС]**

один способ - хорошо, а 2 лучше! )) сейчас попробую

Добавлено через 6 минут
РАБОТАЕТ!!!

спасибочки

@~~Busine2009~~ · 24.08.2011, 07:38

Elena S,
советую макрос использовать - я код не писал, но если хотите, напишу.

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

А если по тексту их много, то после выделения

это удаление полей, в т.ч. и гиперссылок (как впрочем и предыдущее предложение участника форума).

Ctrl+Z - это отмена действия. Лучше писать, какую кнопку нажать на панели инструментов.

@aap77 · 12.09.2011, 18:49

Вот простой макросик по удалению всех гиперссылок из документа:
Public Sub Hyp_Delete()
Dim hp As Hyperlink
For Each hp In ActiveDocument.Hyperlinks
hp.Delete
Next hp
End Sub

@~~Busine2009~~ · 12.09.2011, 19:42

aap77,
прежде чем выкладывать коды - тестируйте их. Ваш макрос не удаляет все гиперссылки.

@Ципихович Эндрю · 12.09.2011, 21:36

текст выделяем, Контрол+Шифт+Эф9
Кстати никто не знает как на ВБА в нужном месте поставить ссылку не выделяя это место??

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

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

прежде чем выкладывать коды - тестируйте их. Ваш макрос не удаляет все гиперссылки.

я не пробовал, судя по строкам всё ОК, а что не так, вернее какие удаляет, а какие нет??

@~~Busine2009~~ · 13.09.2011, 08:28

Сообщение от Ципихович Эндрю

текст выделяем, Контрол+Шифт+Эф9

так удалятся и все поля, содержащиеся в документе, а не только гиперссылки.

Сообщение от Ципихович Эндрю

Кстати никто не знает как на ВБА в нужном месте поставить ссылку не выделяя это место??

Указать диапазон в документе с помощью Range.

Сообщение от Ципихович Эндрю

я не пробовал, судя по строкам всё ОК, а что не так, вернее какие удаляет, а какие нет??

есть в Word свои особенности, которые узнаёшь на практике.

@Ципихович Эндрю · 13.09.2011, 16:09

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

Указать диапазон в документе с помощью Range.

можете подсказать скрипт?

@~~Busine2009~~ · 13.09.2011, 16:17

Вставка гиперссылки во фрагмент документа с 6 символа до 10 включительно.

Visual Basic

1
2
3

Sub Процедура1()
ActiveDocument.Range(Start:=5, End:=10).Hyperlinks.Add 'И обязательные аргументы.
End Sub

Вставка гиперссылки во 2 слово в документе:

Visual Basic

1
2
3

Sub Процедура1()
ActiveDocument.Words(2).Hyperlinks.Add 'И обязательные аргументы.
End Sub

@Ципихович Эндрю · 13.09.2011, 16:37

спасибо, разобрался, в документе с 0 до 20 ти

Visual Basic

ActiveDocument.Hyperlinks.Add Anchor:=ActiveDocument.Range( _
Start:=0, _
End:=20), Address:="", SubAddress:="Значение", ScreenTip:="", TextToDisplay:=ActiveDocument.Range( _
Start:=0, _
End:=20)

Ваш ответ увидел позже, спасибо

@Elena S 13 / 1 / 0 Регистрация: 22.04.2011 Сообщений: 97
	22.08.2011, 09:37 [ТС]	23
	один способ - хорошо, а 2 лучше! )) сейчас попробую Добавлено через 6 минут РАБОТАЕТ!!! спасибочки 0

@aap77 440 / 33 / 4 Регистрация: 12.09.2011 Сообщений: 109
	12.09.2011, 18:49	25
	Вот простой макросик по удалению всех гиперссылок из документа: Public Sub Hyp_Delete() Dim hp As Hyperlink For Each hp In ActiveDocument.Hyperlinks hp.Delete Next hp End Sub 0

@~~Busine2009~~ Заблокирован
	12.09.2011, 19:42	26
	aap77, прежде чем выкладывать коды - тестируйте их. Ваш макрос не удаляет все гиперссылки. 0

@Ципихович Эндрю 1389 / 530 / 67 Регистрация: 10.04.2009 Сообщений: 8,719
	12.09.2011, 21:36	27
	текст выделяем, Контрол+Шифт+Эф9 Кстати никто не знает как на ВБА в нужном месте поставить ссылку не выделяя это место?? Добавлено через 1 минуту Сообщение от Busine2009 прежде чем выкладывать коды - тестируйте их. Ваш макрос не удаляет все гиперссылки. я не пробовал, судя по строкам всё ОК, а что не так, вернее какие удаляет, а какие нет?? 0

@Ципихович Эндрю 1389 / 530 / 67 Регистрация: 10.04.2009 Сообщений: 8,719
	13.09.2011, 16:09	29
	Сообщение от Busine2009 Указать диапазон в документе с помощью Range. можете подсказать скрипт? 0

@Elena S 13 / 1 / 0 Регистрация: 22.04.2011 Сообщений: 97
		1
	удаление гиперссылок 16.08.2011, 17:50. Показов 7680. Ответов 30 Метки нет (Все метки) добрый день, подскажите пож-та, как удалить гиперссылки: выгрузили из "консультатнт+" типовой устав в 2007й ворд, там по тексту гиперссылки, которые нужно убрать. выделила весь документ ctrl+A, кликнула правой мышкой - раздел раскрывающегося меню "гиперссылки" не активен... посмотрела в книжке, Новиков, Сотскова, аж 900 страниц книжка )) , ничего не нашла (( 0

@~~Busine2009~~ Заблокирован
	19.08.2011, 12:51	21
	Elena S, понятно. 0

Fairuza 6002 / 3197 / 716 Регистрация: 23.11.2010 Сообщений: 10,683
	21.08.2011, 20:05	22
	Elena S, Извините, Ctrl+Z обычно срабатывает на одной гиперссылке, т.е. поставил, а потом удалил. А если по тексту их много, то после выделения - Crtl+6 срабатывает. Хотя Вы уже нашли способ))) 1

@~~Busine2009~~ Заблокирован
	24.08.2011, 07:38	24
	Elena S, советую макрос использовать - я код не писал, но если хотите, напишу. Сообщение от Fairuza А если по тексту их много, то после выделения это удаление полей, в т.ч. и гиперссылок (как впрочем и предыдущее предложение участника форума). Ctrl+Z - это отмена действия. Лучше писать, какую кнопку нажать на панели инструментов. 0

@~~Busine2009~~ Заблокирован
	13.09.2011, 08:28	28
	Сообщение от Ципихович Эндрю текст выделяем, Контрол+Шифт+Эф9 так удалятся и все поля, содержащиеся в документе, а не только гиперссылки. Сообщение от Ципихович Эндрю Кстати никто не знает как на ВБА в нужном месте поставить ссылку не выделяя это место?? Указать диапазон в документе с помощью Range. Сообщение от Ципихович Эндрю я не пробовал, судя по строкам всё ОК, а что не так, вернее какие удаляет, а какие нет?? есть в Word свои особенности, которые узнаёшь на практике. 0

	13.09.2011, 16:37