جلوگیری از درج فضاهای بدون شکست

Question

هنگامی که Ray متن را در یک سند Word یا حتی در بین اسناد Word کپی می‌کند، اغلب برخی از فضاها به ظاهر تصادفی به فضاهای غیرقابل تغییر تغییر می‌کنند. هنگامی که نویسه‌های غیرچاپی نمایش داده می‌شوند، اینها به صورت دایره‌های باز کوچک روی صفحه قابل مشاهده هستند، اما در غیر این صورت غیرقابل شناسایی هستند. ری تعجب می کند که چگونه می تواند از این تبدیل تصادفی به فضاهای غیرقابل اجتناب یا جلوگیری کند.

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

اگر می خواهید این موارد در سند شما ظاهر نشود، یکی از راه های آسان این است که محتوا را به صورت متن ساده جای گذاری کنید. (ساده ترین راه: روی فلش رو به پایین کنار ابزار چسباندن در زبانه صفحه اصلی نوار کلیک کنید و گزینه Keep Text Only را انتخاب کنید.) با این کار فضاهای بدون شکست خلاص می شوند و آنها را با فاصله های معمولی جایگزین می کنیم، اما این کار باعث می شود همچنین از شر هر قالب بندی در هر چیزی که می چسبانید خلاص شوید.

اگر می‌خواهید از شر فضاهای غیرقابل شکست موجود در سند خلاص شوید، استفاده از Find and Replace ساده‌ترین راه است:

1. Ctrl+H را فشار دهید . Word تب Replace را در کادر گفتگوی Find and Replace نمایش می دهد.
2. در کادر Find What، یک فاصله را وارد کنید.
3. در کادر Replace With یک فاصله را وارد کنید. (بله، این بدان معنی است که شما فضاها را با فاصله ها جایگزین می کنید.)
4. روی Replace All کلیک کنید.
5. کادر گفتگوی Find and Replace را ببندید.

در مرحله 2 توجه داشته باشید که مشخص می کنید می خواهید فضاها را جستجو کنید. این کار به این دلیل کار می کند که Word هنگام انجام تطبیق، یک فضای بدون شکست را مانند یک فضای معمولی در نظر می گیرد. اگر ترجیح می دهید فقط فضاهای بدون شکست را جستجو کنید، می توانید در مرحله 2، Ctrl+Shift+Spacebar را تایپ کنید ، که یک کاراکتر فاصله (^s) بدون شکستن را در کادر Find What وارد می کند.

اگر یک راه حل مبتنی بر کلان را ترجیح می دهید، می توانید از این راه حل استفاده کنید:

Sub ReplaceNBS()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^s"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

ماکرو تکنیک Find and Replace را که قبلاً توضیح داده شد، خودکار می‌کند و تمام فضاهای بدون شکست را با فضاهای معمولی جایگزین می‌کند. آن را به یک کلید میانبر یا نوار ابزار دسترسی سریع اختصاص دهید و می توانید به سرعت جایگزین های مورد نظر را انجام دهید.