Вы можете исправить все гиперссылки, заменив части их адресов следующим кодом:
Sub ClearHyperlinks()
Dim hl As Hyperlink
For Each hl In Worksheets("Sheet1").Hyperlinks
hl.Address = Replace(hl.Address, "javascript:go(", "")
hl.Address = Replace(hl.Address, ")", "")
Next hl
End Sub
Каждый оператор Replace()
может использоваться для удаления определенных наборов символов. В этом случае первый удаляет javascript:go(
а второй удаляет )
. Если вам нужно удалить дополнительные символы, просто включите их в операторы или добавьте новую строку, следуя той же схеме. Возможно, вам придется сделать некоторые хитрые вещи, чтобы удалить любые кавычки, так как они также используются самим кодом. Чтобы удалить двойные кавычки, вы можете изменить строки следующим образом:
hl.Address = Replace(hl.Address, "javascript:go(" & Chr(34), "")
hl.Address = Replace(hl.Address, Chr(34) & ")", "")
Chr(34)
- это код для двойной кавычки. Однако, когда я играл с этим только что, Excel изменил мои двойные кавычки на %22
который является очищенной по URL версии двойной цитаты. В этом случае вы бы хотели, чтобы ваш код выглядел так:
hl.Address = Replace(hl.Address, "javascript:go(%22" , "")
hl.Address = Replace(hl.Address, "%22)", "")
Чтобы запустить этот код, нажмите Alt+F11, чтобы открыть окно VBA, и вставьте его в новый или существующий модуль. Если вы собираетесь запустить его только один раз, вы можете просто щелкнуть в любом месте этого кода и нажать F5, чтобы запустить его. Если вам придется запускать это несколько раз, вы можете назначить макрос кнопке.