میشل در حال ویرایش سندی است که در متن دارای اطلاعاتی است که واقعاً باید در پاورقی باشد. او فکر می کند که آیا راه آسانی برای انتخاب متن وجود دارد، یک پاورقی به طور خودکار ایجاد شود و متن انتخاب شده به پاورقی منتقل شود.
البته این کار به صورت دستی قابل انجام است. تنها کاری که باید انجام دهید این است که این مراحل کلی را دنبال کنید:
- متنی را که باید در پاورقی باشد انتخاب کنید.
- Ctrl+X را فشار دهید . این متن را به کلیپ بورد برش می دهد.
- Alt+Ctrl+F را فشار دهید . این یک پاورقی جدید ایجاد می کند و نشانگر درج را در خود پانوشت قرار می دهد.
- محتوای کلیپ بورد را به عنوان متن ساده جایگذاری کنید.
- متن پاورقی را به دلخواه قالب بندی کنید.
اگر مجبورید این فرآیند را کمی انجام دهید، می توانید با ایجاد یک ماکرو که همان کارها را انجام می دهد، آن را خودکار کنید. (خب، موارد مشابه به جز مراحل 1 و 5 - شما همچنان باید متنی را که می خواهید به پاورقی منتقل شود انتخاب کنید و پس از قرار گرفتن در پاورقی همچنان باید آن را قالب بندی کنید.)
Sub TextToFootnote()
Dim sTemp As String
sTemp = Selection
Selection.Delete
Selection.TypeBackspace
ActiveDocument.Footnotes.Add Range:=Selection.Range, Text:=sTemp
End Sub
ماکرو هر متنی را که انتخاب کرده اید در متغیر sTemp کپی می کند. سپس انتخاب را حذف می‌کند، یک backspace تایپ می‌کند و یک پاورقی معادل متن ذخیره شده در sTemp درج می‌کند. توجه داشته باشید که از آنجایی که ماکرو پس از حذف متن از سند اصلی به عقب باز می‌شود، فرض می‌کند آنچه انتخاب کرده‌اید (و آنچه به پاورقی منتقل می‌شود) فضای اصلی را شامل نمی‌شود.
البته می توانید با اختصاص یک کلید میانبر به آن یا افزودن آن به نوار ابزار دسترسی سریع، ماکرو را قابل استفاده تر کنید. هر دو روش به شما این امکان را می دهد که به راحتی متن را از بدنه سند به پاورقی منتقل کنید.
