Вставка ссылок на веб-сайт в текстовый документ в очень конкретном формате c

Question

Я записал макрос для ссылки, которая содержит «https://www». в начале, и это прекрасно работает.

Я хочу создать один макрос, независимо от того, начинается ли он с

• http://www.
• https://www .
• https: //
• http: //

, которая вставляет ссылку в указанном формате c. Я из Python и не знаю VBA. В python я бы сделал что-то вроде этого:

if "http://www." in mylink:
    replace("http://www.", "")

для каждой из вышеупомянутых пуль.

Как бы я сделал нечто подобное в VBA?

Вот мой текущий макрос, который удаляет "https://www." и форматирует ссылку по желанию (подчеркнуто, размер 10, в скобках) .

Answer 1

Попробуйте:

Sub Demo()
With Selection.Range
  .Paste
  If InStr(.Text, "www.") > 0 Then
    .Text = "(" & Split(.Text, "www.")(1) & ")"
  ElseIf InStr(.Text, "://") > 0 Then
    .Text = "(" & Split(.Text, "://")(1) & ")"
  End If
  .Font.Size = 10
  .Start = .Start + 1
  .End = .End - 1
  .Font.Underline = True
End With
End Sub