Microsoft Office Forums - View Single Post

RobiNew · Today, 12:40 AM

Thanks a lot, macropod! But the code here below cannot find anything. My fault?

Code:

Sub MakeLinksMP()
Application.ScreenUpdating = False
With ActiveDocument
  With .Range
    With .Find
      .Text = "https://[! ]{1,}"
      .Execute
    End With
If Not .Find.found Then MsgBox "Not found"
    Do While .Find.found
      .Duplicate.AutoFormat
      .Collapse wdCollapseEnd
      .Find.Execute
    Loop
  End With
End With
Application.ScreenUpdating = True
End Sub