Find and select a passive URL string

RobiNew · #3 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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Find string, Replace with dot tab	dhapp	Word	5	03-27-2023 07:23 AM
Find and select all string of simlar pattern	anon123	Word	4	04-20-2016 11:41 PM
How to find all string within string.	PRA007	Word VBA	18	02-12-2016 08:11 PM
Why is this Find string not working	TechEd	Word VBA	5	07-05-2014 08:12 PM
Bad view when using Find and Find & Replace - Word places found string on top line	paulkaye	Word	4	12-06-2011 11:05 PM