Как удалить косую черту при копировании и вставке URL-адреса из веб-браузера в MS Word?

Question

Моя конечная цель - взять URL-адреса, такие как https://google.com/, и отформатировать их следующим образом: google.com

До сих пор мне удалось удалить "www" и / или «https», но я не знаю, как удалить конечный sla sh, когда он появляется.

Sub quicklink()
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


  If Right$(.Text, 1) = "/" Then
    .Text = Left$(.Text, Len(.Text) - 1)

  End If


End With
End Sub

Второй оператор If - моя (неудачная) попытка удалить конечный sla sh

Answer 1

Вы можете обновить свой Sub, используя команду Replace. Как видите, это делает код чище:

Sub quicklink()
   With Selection.Range
      .Paste

      .Text = Trim(.Text)
      .Text = Replace(.Text, vbCrLf, "")
      .Text = Replace(.Text, "https://", "")
      .Text = Replace(.Text, "www.", "")
      If Right(.Text, 1) = "/" Then .Text = Left(.Text, Len(.Text) - 1)
   End With
End Sub