Sub AddSearchURL()
    Dim Proto As String
    Dim Domain As String
    Dim SelectedText As String
    Dim Query As String
    Dim URI As String
    
    Proto = "https"
    Domain = "www.google.com.ua"
    SelectedText = Trim(Selection.Text)
    Query = Replace(SelectedText, " ", "+")
    URI = "search?q=" & Query
    
    If Len(SelectedText) > 1 Then
        If Selection.Hyperlinks.Count < 1 Then
            ActiveDocument.Hyperlinks.Add Anchor := Selection.Range, _
                Address := Proto & "://" & Domain & "/" & URI
        Else
            While Selection.Hyperlinks.Count > 0
                Selection.Hyperlinks(1).Delete
            Wend
        End If
    End If
End Sub