یک قانون نانوشته در حروفچینی وجود دارد که بعد از پایان جمله فقط باید یک فاصله وجود داشته باشد. این بهترین ظاهر بصری را در یک صفحه چاپ شده، به ویژه در هنگام استفاده از حروف متناسب، فراهم می کند.
من فقط برای یک لحظه در اینجا یک مسیر مماسی را طی می کنم: می دانم که در زمان ماشین تحریر به افراد زیادی (از جمله خود من) آموزش داده شد که باید در انتهای یک جمله دو فاصله بگذارید. توجه داشته باشید که
typing
(مانند ماشین تحریر) متفاوت از
typesetting
(مانند یک مقاله مجله یا یک کتاب). این نکته در مورد قانون حروفچینی صحبت می کند. دو راهنمای سبک اصلی (شیکاگو و AP) مشخص می کنند که باید از یک فضای واحد استفاده شود، همانطور که همه راهنماهای سبک کوچک (Turabian، MLA، و غیره) انجام می دهند. بنابراین، نظر من مبنی بر اینکه قاعده فقط یک فاصله پس از پایان جملات وجود دارد، به‌عنوان یک قاعده باقی میماند، علی‌رغم آنچه که من یا هر کس دیگری در دهه‌های قبل زمانی که ماشین‌های تایپ را می‌کوبیدیم، یاد گرفتیم.
حالا به مسیر اصلی برگردیم: مشکل اینجاست که به راحتی می‌توان فاصله‌های اضافی را در انتهای یک جمله بدون اینکه متوجه شد اضافه کرد. ماکرو زیر، CheckSpaces، ابزاری است که می توانید از آن برای بررسی مجدد انتهای جملات خود استفاده کنید:
Sub CheckSpaces() Call MakeChanges("Normal", ".") Call MakeChanges("Normal", "!") Call MakeChanges("Normal", ":") End Sub
Sub MakeChanges(StyName As String, PuncMark As String) Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Style = ActiveDocument.Styles(StyName) Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = PuncMark & " " .Replacement.Text = PuncMark & " " .Forward = True .Wrap = wdFindContinue .Format = True End With Selection.Find.Execute Replace:=wdReplaceAll While Selection.Find.Found Selection.Find.Execute Replace:=wdReplaceAll Wend End Sub
CheckSpaces فقط فضاهای اضافی را از پاراگراف های فرمت شده با سبک Normal می گیرد. این تضمین می‌کند که قالب‌بندی جداول یا سایر عناصر طراحی را که ممکن است بعد از دوره‌ها فضاهای اضافی بخواهید، به هم نریزید. اگر می‌خواهید نوع علامت‌گذاری جستجو شده را تغییر دهید یا در پاراگراف‌های سبک مختلف جستجو کنید، پس از خط چهارم در ماکرو CheckSpaces، تماس‌های اضافی را به MakeChanges اضافه کنید.
