حذف HTTP از آدرس های اینترنتی

Question

گراهام یک ویرایشگر است و یکی از کارهای (کاملا معمول) او حذف http:// از URL هایی است که http://www شروع می شوند. اگر URL فقط متن باشد، گراهام این کار را آسان می کند. با این حال، اگر یک هایپرلینک است، باید کادر گفتگوی Edit Hyperlink را نمایش دهد، http:// را در قسمت Text to Display انتخاب کند، آن را حذف کند و کادر محاوره ای را ببندد.

خوشبختانه، مجبور نیستید همیشه کادر محاوره‌ای Edit Hyperlink را برای ایجاد تغییرات نمایش دهید. حتی اگر یک لینک فعال باشد، می‌توانید اطلاعاتی را که نمایش داده می‌شود پیدا کرده و جایگزین کنید. به عنوان مثال، جستجو برای http://www و جایگزین کردن آن با www به خوبی کار خواهد کرد، حتی برای لینک های فعال. Word فقط متن نمایش داده شده را تغییر می دهد و نه خود هایپرلینک زیرین را.

اگر پیوندهای بسیار بسیار زیادی برای ویرایش دارید و این کوتاه کردن URL ها یک کار رایج است، ممکن است بخواهید از یک ماکرو برای انجام این کار استفاده کنید. شما می توانید یک ماکرو کوتاه ایجاد کنید که از طریق هر لینک در سند عبور می کند و بخش http:// را حذف می کند. نمونه زیر است:

Sub FixHyperlinks1()
    Dim hyp As Hyperlink
    Dim sLink As String

    For Each hyp In ActiveDocument.Hyperlinks
        sLink = hyp.Address
        sLink = replace(strLink, "http://", "")
        hyp.Address = sLink
    Next hyp
End Sub

با این حال، این رویکرد احتمالا آنقدر که شما می خواهید جامع نیست. این فقط بر پیوندهای فعال تأثیر می گذارد. این بر URLهای متن ساده در سند شما تأثیر نمی گذارد. اگر می خواهید از رویکرد جامع تری استفاده کنید، به چیزی نیاز دارید که از شر همه پیوندها خلاص شود (احتمالاً در وهله اول به آنها در سند نیاز ندارید) و سپس از شر قسمت http:// خلاص شوید. در اینجا یکی است که دقیقاً این کار را انجام می دهد:

Sub FixHyperlinks2()
"Remove hyperlinks
    With ActiveDocument
        While .Hyperlinks.Count > 0
            .Hyperlinks(1).Delete
        Wend
    End With

"Remove http://
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "http://www"
        .Replacement.Text = "www"
        .Forward = True
        .Wrap = wdFindContinue
     End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub