متن مخفی کمک بزرگی به کسانی است که می‌خواهند بخش‌های خاصی از یک سند را از مشاهده یا از چاپ «پنهان» کنند. با این حال، برای پنهان کردن اطلاعاتی که نمی خواهید دیگران در سندی که شما توزیع می کنید ببینند، خیلی خوب نیست. آنها (کسانی که شما سند را برای آنها توزیع می کنید) می توانند متن پنهان را به همان راحتی که می توانید نمایش داده یا چاپ کنند.
هیچ ویژگی داخلی Word وجود ندارد که به شما امکان می‌دهد متن پنهان را قفل کنید تا نتوانید آن را مشاهده کنید. پس بهترین راه حل این است که به سادگی تمام متن پنهان خود را به عنوان آخرین مرحله قبل از توزیع سند خود حذف کنید. می توانید این کار را با استفاده از ویژگی های Search and Replace Word به شرح زیر انجام دهید:
شکل 1. تب Replace از کادر محاوره ای Find and Replace.
شکل 2. کادر محاوره ای Find Font.
- Ctrl+H را فشار دهید . Word تب Replace را در کادر گفتگوی Find and Replace نمایش می دهد.
- در صورت موجود بودن دکمه More را کلیک کنید. (شکل 1 را ببینید.)
- نقطه درج را در کادر Find What قرار دهید و مطمئن شوید که خالی است.
- بر روی دکمه Format کلیک کرده و Font را انتخاب کنید. Word کادر محاوره ای Find Font را نمایش می دهد. (شکل 2 را ببینید.)
- بر روی کادر تیک Hidden Attribute کلیک کنید تا یک علامت سیاه و سفید در آن وجود داشته باشد. (شاید مجبور باشید بیش از یک بار روی آن کلیک کنید.)
- روی OK کلیک کنید. کادر محاوره ای Find Font ناپدید می شود و کلمات "Format: Hidden" باید درست در زیر کادر Find What ظاهر شود.
- مطمئن شوید که کادر Replace With خالی است.
- روی Replace All کلیک کنید.
اگر متوجه شدید که متن پنهان را تا حد زیادی حذف می‌کنید، می‌توانید با ضبط یک ماکرو که مراحل بالا را انجام می‌دهد، فرآیند را خودکار کنید یا می‌توانید از ماکرو زیر استفاده کنید:
Sub StripAllHidden() Dim rngsStories As Word.StoryRanges Dim rngStory As Word.Range On Error GoTo NoDocOpen Set rngsStories = ActiveDocument.StoryRanges On Error GoTo 0 Need to loop through all stories to remove hidden text from footnotes, headers, etc. as well as body text. For Each rngStory In rngsStories With rngStory.Find .ClearFormatting .Font.Hidden = True Call .Execute(vbNullString, False, False, False, _ False, False, True, wdFindContinue, True, _ ReplaceWith:=vbNullString, _ Replace:=wdReplaceAll) End With Next Exit Sub NoDocOpen: End Sub
مزیت دیگر استفاده از این ماکرو این است که در جاهایی که تابع جستجو و جایگزینی معمولی نیست، به دنبال متن پنهان می گردد: پاورقی ها، انتها، سرصفحه ها، پاورقی ها و غیره.
