Evelyn به دنبال راهی برای اضافه کردن خط فاصله به عباراتی است که در ابتدا بدون خط تیره تایپ شده اند. به عنوان مثال، اگر عبارت "ما در این هفته یک فروش بزرگتر و بهتر از همیشه داریم" را تایپ کنید، ممکن است اولین بخواهد به جای آن عبارت "این هفته فروش بزرگتر و بهتر از همیشه داریم" را بخواند. خط تیرههایی که عبارت را نشان میدهند باید جایگزین تمام فاصلههایی شوند که قبلاً بین کلمات عبارت بودند.
سریعترین راه حل این است که به سادگی کلمات موجود در عبارت را انتخاب کنید (بزرگتر و بهتر از همیشه) و از Find and Replace برای جایگزینی تمام فاصله ها با خط تیره استفاده کنید. البته، این شامل چندین مرحله است، و اگر اغلب با این سناریو مواجه می شوید، باید یک ماکرو برای جایگزینی واقعی در نظر بگیرید. به عنوان مثال، ماکرو زیر وظیفه را خودکار می کند:
Sub MakePhrase() If Selection.Type <> wdSelectionIP Then Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = " " .Replacement.Text = "-" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End If End Sub
ماکرو ابتدا بررسی می کند تا مطمئن شود که انتخابی انجام شده است. اگر چنین است، تمام فضاهای انتخاب شده با خط تیره جایگزین می شوند. برای دستیتر کردن ماکرو، به سادگی آن را به یک کلید میانبر اختصاص دهید. سپس، هنگامی که باید عبارتی را خط خط بکشید، به سادگی کلمات را انتخاب کرده و کلید میانبر را فشار دهید.
