Microsoft Office Forums - View Single Post - [Solved] copying text with Word's macro recorder

gmayor · 11-29-2018, 09:25 PM

If the aim of the game is to modify a hyperlink (or links) in a pasted text then based on your code.

Code:

Sub Macro134()
Dim oRng As Range
Dim oLink As Hyperlink
    Set oRng = Selection.Range
    oRng.Paste
    Options.AutoFormatReplaceHyperlinks = True
    oRng.AutoFormat
    If oRng.Hyperlinks.Count > 0 Then
        For Each oLink In oRng.Hyperlinks
            oLink.TextToDisplay = Replace(oLink.Address, "https://doi.org/", "doi:")
        Next oLink
    End If
    Set oLink = Nothing
    Set oRng = Nothing
End Sub