Подскажите дилетанту

[PAP]

Подскажите, пожалуйста, можно ли в данном фрагменте:
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, _
Address:=
вставлять адресс ссылки из буфера?
Спасибо!

[GSerg]

Да.

[PAP]

Тогда подскажите как, если не сложно.

[GSerg]

http://bbs.vbstreets.ru/viewtopic.php?t=23763

[AntonK18]

PAP
В кавычках адрес пиши

[PAP]

Спасибо за ссылку, но видимо я совсем дилетант и я не очень понял, как это можно сделать. Я попробовал поставить Address:=GetFromClipboard - но выдает ошибку.

[PAP]

AntonK18
Мне как раз необходимо из буфера.Этот макрос я делаю в Ворде, причем вначале щелкаю кнопками, а потом смотрю в редакторе что получилось (навыки программирования у меня минимальные). И вот несмотря на то, что я вставляю из буфера, в коде записывается, как текст в кавычках...

[GSerg]

Я, конечно, всё понимаю, но не настолько же...

http://bbs.vbstreets.ru/viewtopic.php?p=6589162#6589162
Выполняем код. Смотрим, что появляется в msgbox. Делаем выводы.

[PAP]

GSerg
Спасибо!
Пришлось поломать голову, но в итоге все работает.
Спасибо, еще раз!

[PAP]

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

[GSerg]

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

Dim f As Field

For Each f In ThisDocument.Fields
  If f.Type = wdFieldHyperlink Then f.Unlink
Next

[PAP]

GSerg
Спасибо. Этот код требует доработки? Я запустил его, но ничего не произошло.

[PAP]

Что-то не получается...

[GSerg]

Этот код не требует доработки. Разве что тогда вопрос требует уточнения...

[PAP]

Этот код не требует доработки. Разве что тогда вопрос требует уточнения...

Я на всякий случай проверил на домшнем компе, однако результат по-прежнему отрицательный. Возможно, я не очень внятно описал ситуацию. Попробую разъяснить подробнее. Существует задача: убрать в документе Ворда все гиперссылки (то есть www.yandex.ru превратить в текст). Я пробовал убрать через изменение стиля, однако получилось, что вместе со ссылкой удаляется и текст ссылки, а необходимо чтобы сам текст остался. Все мои остальные попытки оказались неудачными, так как использую, вероятно, самые примитивные инструменты. Помогите, пожалуйста.

[GSerg]

Приведённый код делает именно это. В том документе, из которого запущен.

[PAP]

GSerg
Я запускаю этот код из того документа, в котором мне нужно убрать ссылки, но ничего не происходит (ссылки как были, так и остаются...). Почему такое может происходить? Может есть какие-то нюансы связанные с Виндом или какими-то другими причинами?

[GSerg]

Документ приложи.

[PAP]

GSerg
Да в общем-то документ-то как раз самый обычный. Я прикоеплю только часть документа (так как он довольно внушительных размеров). Кстати, я пробовал на разных документах - результат отрицательный.

[PAP]

Что-то не получилось добавить приложение с первого раза....

[GSerg]

Замечательно заменились все.

А что, не в normal ли dot был помещён этот код?..

[PAP]

GSerg
То есть? Он у меня в макросах сохранен... Вызываю макрос через кнопку в панели Ворда... Наверное панель является частью Шаблона, хотя не знаю.

[GSerg]

PAP

Приведённый код делает именно это. В том документе, из которого запущен.

Ы?

ThisDocument = документ, в котором физически находится макрос. И именно на него оказывается влияние (о чём было сказано дважды).
Текущий документ - ActiveDocument.

[PAP]

GSerg
Ну теперь мне понятно. Хотя не все. Я просто заменил ThisDocument на ActiveDocument и все заработало. Спасибо. Прошу прощения за вопиющий дилетантизм, но вроде и ветка для начинающих
Я просто давно хочу освоить VB, а тут выдался удобный повод - по роду деятельности есть необходимость в создании эдакой системы по обработке текста в Ворде (хотя это наверное громко сказано). Так что огромное спасибо.

А есть ли электронные книги по работе с VBA? Доступные и фундаментальные? Если нет, то может быть из печатной есть удачные издания. Так как сейчас большое количество печатается, но многое из этого довольно специфично (наблюдения по своей проф. области)

[PAP]

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

Dim f As Field

For Each f In ThisDocument.Fields
  If f.Type = wdFieldHyperlink Then f.Unlink
Next

А можно ли по этому же принципу конвертировать все таблицы в текст, а также удалять все графические объекты в тексте?

[alibek]

Да.

[PAP]

А какой тип переменной f в таком случае надо указывать?

[alibek]

Скорее всего Table и Shape, но лучше проверь.
И да, Untable и Unshape методов нет, надо будет делать по другому.

[GSerg]

Угу. Методом converttotext.

PAP
Меня терзают смутные сомненья.
Нажимал ли ты F2 когда-нибудь в редакторе кода?
Потому что если нажимал, то ничего, кроме английского языка, там знать не нужно для полного понимания происходящего.

[PAP]

Меня терзают смутные сомненья.
Нажимал ли ты F2 когда-нибудь в редакторе кода?
Потому что если нажимал, то ничего, кроме английского языка, там знать не нужно для полного понимания происходящего.

Признаюсь, что нажимал. Не скажу, что в совершенстве владею английским, но читать более менее могу. Не знаю, согласится со мной кто-то или нет, но если ты полный ноль в этом, то Help никогда никому не помогал существенно. Во всяком случае, пока ты не будешь разбирать практические примеры, параллельно изучая все тот же Help и список операторов (видимо не только), выводимый F2, а еще лучше какую-нибудь толковую книгу (про которую мне никто, кстати, ответил), продвижений не будет.
Кстати, до сих пор пытаюсь создать код, конвертирующий все таблицы в текст и при этом не выдающий сообщений, прерывающих весь код, в который он встроен, если таблиц в тексте нет. F2 использую, но пока не получилось. Но думаю, что это вопрос времени.