خلاص شدن از فضاهای انتهایی در پانوشت ها و یادداشت های پایانی

Question

اگر جسیکا بخواهد فاصله‌های اضافی انتهای یک پاراگراف را حذف کند، می‌داند که می‌تواند یک فاصله به دنبال ^p را جستجو کند و به تنهایی آن را با ^p جایگزین کند. با این حال، این برای پاورقی ها و یادداشت های پایانی کار نمی کند، احتمالاً به این دلیل که Word به شما اجازه نمی دهد که نشانگرهای انتهای پاراگراف را در چنین یادداشت هایی جایگزین کنید. جسیکا متعجب است که آیا راهی برای دور زدن این محدودیت وجود دارد تا بتواند به راحتی از شر فاصله های انتهایی در پاورقی ها و یادداشت های پایانی خلاص شود.

جالب است بدانید که Word به شما امکان می دهد از Find و Replace برای خلاص شدن از شر فضای انتهایی یک پاراگراف در بدنه سند استفاده کنید، اما این قابلیت را به پاورقی ها و یادداشت های پایانی گسترش نمی دهد - حداقل در همه موارد. نسخه های Word

به عنوان مثال، اگر در Word 2007 هم در پاورقی ها و هم در یادداشت های پایانی فاصله های انتهایی دارید، Find and Replace همانطور که جسیکا تجربه کرد کار می کند - فضاهای انتهایی بدون تغییر هستند. در Word 2010، Find and Replace تنها در پاورقی ها از فضاهای انتهایی خلاص می شود. نت های پایانی را بدون تغییر می گذارد. در Word 2013، رفتار دقیقاً مانند Word 2007 است - فضاها در پاورقی ها و یادداشت های پایانی بدون تغییر باقی می مانند. اگر Word 2016 دارید، فضاهای انتهایی هم از پاورقی ها و هم از یادداشت های پایانی حذف می شوند، همانطور که باید باشد. کاملا متناقض!

اگر می خواهید مطمئن شوید که از شر تمام فضاهای دنباله دار خلاص می شوید، دو روش وجود دارد که می توانید استفاده کنید. اولین مورد این است که این مراحل را دنبال کنید:

1. یک بار در قسمت پانوشت ها کلیک کنید. (مهم نیست کجا، فقط جایی در منطقه.)
2. Ctrl+A را فشار دهید . اکنون باید تمام پاورقی ها انتخاب شوند.
3. Ctrl+E را فشار دهید . اکنون همه پاورقی‌ها در مرکز قرار گرفته‌اند، به‌علاوه فضاهای انتهایی از بین رفته‌اند.
4. Ctrl+L را فشار دهید . همه پاورقی‌ها اکنون بار دیگر توجیه شده‌اند.
5. مراحل 1 تا 4 را برای هر یادداشت پایانی در سند خود تکرار کنید.

البته، اگر پاورقی‌ها و یادداشت‌های پایانی شما چیزی غیر از توجیه باقی مانده باشد، مراحل بالا این تراز را به هم می‌زند. در چنین شرایطی (و اگر نیاز به خلاص شدن از شر چنین فضاهایی دارید)، یک ماکرو رویکرد بهتری را ارائه می دهد. اینجا "کوچولوی کوتاهی است که از شر فضاهای انتهایی در پاورقی ها و یادداشت های پایانی خلاص می شود.

Sub FootEndnoteTrailingSpaces()
    Dim fn As Footnote
    Dim en As Endnote

    For Each fn In ActiveDocument.Footnotes
        fn.Range.Text = RTrim(fn.Range.Text)
    Next fn
    For Each en In ActiveDocument.Endnotes
        en.Range.Text = RTrim(en.Range.Text)
    Next en
End Sub