For Each Hyperlinks In ActiveSheet.Hyperlinks
Application.CutCopyMode = False
Hyperlinks.Delete
Next
For Each Hyperlinks In ActiveDocument.Hyperlinks
Hyperlinks.Delete
Next
iv-mi сказал(а):
'Удаление гиперссылок в документе
Set myInDesign = CreateObject("InDesign.Application.CS2")
Set myDocument = myInDesign.ActiveDocument
For Each hyperlink in myDocument.hyperlinks
myDocument.hyperlinks.Item(1).Delete
Next
iv-mi сказал(а):А что Вы предлагаете?Вы пробовали Ваш метод, прежде чем опубликовать его?
-IKS- сказал(а):Может я чего-то не понимаю, но не проще ли выбрать все гиперссылки в палитре Гиперссылки (Window-Interactive-Hyperlinks) и нажать на мусорную корзинку?
sakhar сказал(а):Скриптом, например на VBS:
И потом грохнуть CharacterStyle гиперссылки...Код:'Удаление гиперссылок в документе Set myInDesign = CreateObject("InDesign.Application.CS2") Set myDocument = myInDesign.ActiveDocument For Each hyperlink in myDocument.hyperlinks myDocument.hyperlinks.Item(1).Delete Next
Эпидемия что ли???Аннушка сказал(а):А можно подробнее рассказать, как пользоваться скриптами, пожалуйста, если не трудно на примере этого?...