Как в wordpress массово изменить текст?
В этой статье я покажу как можно скоро и качественно изменить адреса гиперссылок на листе Excel.
Есть ситуации, когда на листе кушать немало гиперссылок(если еще на известны с гиперссылками — Что такое гиперссылка?) на различные папки или интернет ресурсы. И порой случаются ситуации когда адреса этих гиперссылок надо поменять. Как правило это выходит если либо домен сменился, либо на сервере добавилась директория и эти изменения надо отбить в гиперссылках, либо все попросту было перемещено в иную папку. Для образца возьмем такие отправные эти: надо заменить текст ссылки. excel_vba на текст excel-vba.
Прежде чем приступить замену необходимо еще установить каким способом введена гиперссылка. Если введена сквозь формулу ГИПЕРССЫЛКА, то все попросту:
- выделяем диапазон с гиперссылками;
- жмем Ctrl+H.
- Отыскать:.excel_vba
- Заменить на: excel-vba
- Жмем кнопочку «Параметры» и устанавливаем Район розыска — Формулы и снимаем галочку «Ячея целиком«
- Жмем «Заменить все«
Сейчас адреса ссылок должны поменяться.
Все гораздо сложнее, если гиперссылки бывальщины созданы сквозь типовое меню: правый камарилью мыши на ячее — Гиперссылка. Тут фокус с заменой сквозь Ctrl+H не пройдет. В таких случаях придется прибегнуть к поддержки VBA(Visual Basic for Applications) или как пуще именуют эти коды — макросы. Текст такого макроса:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | Sub Replace_Hyperlink() Dim rCell As Range, rRange As Range, sWhatRep As String, sRep As String On Error Resume Next Set rRange = Application. InputBox(«Покажите диапазон для замены», «Выбор этих», Type:=8) If rRange Is Nothing Then Exit Sub sWhatRep = InputBox(«Что меняем?», «Ввод этих», «.excel_vba») sRep = InputBox(«На что меняем?», «Ввод этих», «excel-vba») If sWhatRep = «» Then Exit Sub If sRep = «» Then If MsgBox(«Желаете заменить » & sWhatRep & » на порожне?», vbCritical + vbYesNo, «Предупреждение») = vbNo Then Exit Sub End If Application. ScreenUpdating = 0 For Each rCell In rRange If rCell. Hyperlinks. Count > 0 Then If rCell. Hyperlinks(1).Address = rCell. Value Then rCell = Replace(rCell. Value, sWhatRep, sRep) End If rCell. Hyperlinks(1).Address = Replace(rCell. Hyperlinks(1).Address, sWhatRep, sRep) rCell. Hyperlinks(1).SubAddress = Replace(rCell. Hyperlinks(1).SubAddress, sWhatRep, sRep) End If Next rCell Application. ScreenUpdating = 1 End Sub |
Как все это использовать:
- создаем типовой модуль и помещаем в него код макроса рослее
- жмем Alt+F11 и выбираем макрос Replace_Hyperlink (или создаем кнопку для вызова макроса на листе)
- в первом диалоговом окне указываем в каком диапазоне надо отыскать гиперссылки и заменить в них адрес
- во втором диалоговом окне указываем какой текст заменить
- в третьем диалоговом окне указываем на что заменить показанный в первом окне текст
Образцово так же можно заменить гиперссылки в объектах на листе(так, картинках и кнопках):
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | Sub Replace_Hyperlink_inShape() Dim oSh As Shape, sWhatRep As String, sRep As String Dim s As String sWhatRep = InputBox(«Что меняем?», «Ввод этих», «www. excel-vba. com«) sRep = InputBox(«На что меняем?», «Ввод этих», «www. excel-vba. ru«) On Error Resume Next For Each oSh In ActiveSheet. Shapes s = «» s = oSh. Hyperlink. Address If s <> «» Then oSh. Hyperlink. Address = Replace(oSh. Hyperlink. Address, sWhatRep, sRep) End If Next End Sub |
Эти код трудится почти так же как и предшествующий:
- создаем типовой модуль и помещаем в него код макроса рослее
- жмем Alt+F11 и выбираем макрос Replace_Hyperlink_inShape (или создаем кнопку для вызова макроса на листе)
- в первом диалоговом окне указываем какой текст заменить
- во втором диалоговом окне на что заменить показанный в первом окне текст
Гиперссылки всех объектов на листе будут изменены. Если у объекта нет гиперссылки — объект будет пропущен.
Чтобы заменить гиперссылки лишь в выделенных объектах необходимо строку
For Each oSh In ActiveSheet. Shapes
заменить на такую:
For Each oSh In Selection. ShapeRange
тогда надо будет выделить объекты на листе, для каких необходимо заменить гиперссылки, и запустить макрос.
ru On Error Resume Next For Each oSh In ActiveSheet.
Есть ситуации, когда на листе кушать немало гиперссылок(если еще на известны с гиперссылками — Что такое гиперссылка?) на различные папки или интернет ресурсы. И порой случаются ситуации когда адреса этих гиперссылок надо поменять. Как правило это выходит если либо домен сменился, либо на сервере добавилась директория и эти изменения надо отбить в гиперссылках, либо все попросту было перемещено в иную папку. Для образца возьмем такие отправные эти: надо заменить текст ссылки. excel_vba на текст excel-vba.
Жмем кнопочку Параметры и устанавливаем Район розыска Формулы и снимаем галочку Ячея целиком.