Как в wordpress массово изменить текст?

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

Есть ситуации, когда на листе кушать немало гиперссылок(если еще на известны с гиперссылками — Что такое гиперссылка?) на различные папки или интернет ресурсы. И порой случаются ситуации когда адреса этих гиперссылок надо поменять. Как правило это выходит если либо домен сменился, либо на сервере добавилась директория и эти изменения надо отбить в гиперссылках, либо все попросту было перемещено в иную папку. Для образца возьмем такие отправные эти: надо заменить текст ссылки. excel_vba на текст excel-vba.

Прежде чем приступить замену необходимо еще установить каким способом введена гиперссылка. Если введена сквозь формулу ГИПЕРССЫЛКА, то все попросту:

  1. выделяем диапазон с гиперссылками;
  2. жмем Ctrl+H.
  • Отыскать:.excel_vba
  • Заменить на: excel-vba
  • Жмем кнопочку «Параметры» и устанавливаем Район розыска — Формулы и снимаем галочку «Ячея целиком«
  1. Жмем «Заменить все«

Сейчас адреса ссылок должны поменяться.

Все гораздо сложнее, если гиперссылки бывальщины созданы сквозь типовое меню: правый камарилью мыши на ячее — Гиперссылка. Тут фокус с заменой сквозь 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
Читайте также:  Социальная сеть на wordpress

Как все это использовать:

  • создаем типовой модуль и помещаем в него код макроса рослее
  • жмем 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

тогда надо будет выделить объекты на листе, для каких необходимо заменить гиперссылки, и запустить макрос.

Читайте также:  Wordpress соединение с базой данных

ru On Error Resume Next For Each oSh In ActiveSheet.

Есть ситуации, когда на листе кушать немало гиперссылок(если еще на известны с гиперссылками — Что такое гиперссылка?) на различные папки или интернет ресурсы. И порой случаются ситуации когда адреса этих гиперссылок надо поменять. Как правило это выходит если либо домен сменился, либо на сервере добавилась директория и эти изменения надо отбить в гиперссылках, либо все попросту было перемещено в иную папку. Для образца возьмем такие отправные эти: надо заменить текст ссылки. excel_vba на текст excel-vba.

Жмем кнопочку Параметры и устанавливаем Район розыска Формулы и снимаем галочку Ячея целиком.