Word، به عنوان برنامه ای که به خوبی متصل است، دارای ویژگی است که به طور خودکار URL را به یک هایپرلینک تبدیل می کند. در حالی که می‌توانید این ویژگی را خاموش کنید تا ورد تبدیل را انجام ندهد، ممکن است اسنادی داشته باشید که از قبل حاوی فیلدهای پیوند هستند. یا ممکن است فایلی را از شخص دیگری دریافت کنید که این ویژگی را غیرفعال نکرده است. در این موارد، ممکن است به دنبال راه هایی برای حذف لینک های موجود باشید. راه های مختلفی برای حل این مشکل وجود دارد.
اولین (و ساده ترین) راه برای حذف هایپرلینک ها این است که به سادگی نقطه درج را در جایی از پیوند قرار دهید و سپس Ctrl+Shift+F9 را فشار دهید . این کد فیلد را بدون پیوند به متن معمولی تبدیل می کند. در واقع، اگر از فیلدها در سند خود برای چیزی به جز لینک‌ها استفاده نمی‌کنید، می‌توانید به سادگی با انتخاب کل سند (کلید Ctrl +A ) و سپس فشار دادن Ctrl+Shift+F9 ، تمام پیوندها را حذف کنید . با این حال، باید توجه داشته باشید که اگر فیلدهای دیگری در سند شما وجود داشته باشد، این عمل منجر به تبدیل آنها به متن ساده نیز می شود.
یکی دیگر از راه‌های آسان برای تبدیل لینک‌ها به متن معمولی این است که روی پیوندی که می‌خواهید حذف کنید کلیک راست کرده و از منوی Context گزینه Remove Hyperlink را انتخاب کنید. اگر اسناد بسیار کمی دارید که در آنها باید هایپرلینک ها را حذف کنید یا تعداد زیادی لینک در سند خود دارید، حتی این تکنیک ساده نیز می تواند پس از مدتی خسته کننده شود. در این مثال، ممکن است بخواهید یک ماکرو ایجاد کنید تا کار را برای شما انجام دهد. ماکرو زیر، RemoveHyperLinks، تمام لینک‌های یک سند را حذف می‌کند و مطمئن می‌شود که ویژگی AutoFormat برای ایجاد لینک‌ها غیرفعال است:
Sub RemoveHyperlinks() While ActiveDocument.Hyperlinks.Count > 0 ActiveDocument.Hyperlinks(1).Delete Wend Application.Options.AutoFormatAsYouTypeReplaceHyperlinks = False End Sub
این ماکرو به هیچ فیلد دیگری در سند شما آسیب نمی رساند. با این حال، باید توجه داشته باشید که این فقط بر پیوندهایی که در بخش اصلی سند شما ظاهر می شوند تأثیر می گذارد. اگر پیوندهایی در مناطق دیگر (مانند پانوشت ها یا یادداشت های پایانی) دارید، آن ها لمس نمی شوند. در عوض، به یک ماکرو نیاز دارید که به طور خاص به لینک های موجود در «داستان» استفاده شده توسط آن عناصر نگاه کند. در اینجا یک ماکرو وجود دارد که هم برای پانوشت ها و هم برای یادداشت های پایانی کار می کند و تمام پیوندهایی که ممکن است حاوی آنها باشد را حذف می کند:
Sub RemoveFNH() Dim h As Hyperlink Dim J As Integer With ActiveDocument If .Footnotes.Count >= 1 Then With .StoryRanges(wdFootnotesStory) For J = .Hyperlinks.Count To 1 Step -1 .Hyperlinks(J).Delete Next J End With End If If .Endnotes.Count >= 1 Then With .StoryRanges(wdEndnotesStory) For J = .Hyperlinks.Count To 1 Step -1 .Hyperlinks(J).Delete Next J End With End If End With End Sub
توجه داشته باشید که این ماکرو رویکرد متفاوتی نسبت به قبلی دارد. نه تنها در داستان‌های مناسب برای پاورقی‌ها و یادداشت‌های پایانی کار می‌کند، بلکه به‌جای حذف پیوسته اولین پیوند در مجموعه Hyperlinks، از طریق مجموعه Hyperlinks به عقب برمی‌گردد.
