لورین اغلب سخنرانی می نویسد و برای سهولت ارائه، هر خط دیگر از سند خود را با رنگ خاکستری برجسته می کند. این به او این امکان را می دهد که هنگام خواندن سند، جایگاه خود را در آن حفظ کند. از آنجایی که هیچ بازگشت سخت یا نرمی در انتهای هر خط وجود ندارد، Lorraine در نهایت خاکستری را به صورت دستی اضافه می کند. او از خود می پرسد که آیا راه آسان تری برای افزودن برجسته وجود دارد یا خیر.
راه سادهتری وجود دارد و شامل استفاده از ماکرو است. اگر بتوانید سایه زدن را با استفاده از استایل ها انجام دهید بسیار عالی خواهد بود، اما در Word چنین نیست. در زیر نمونه ای از یک ماکرو است که هر خط دیگر سند را به رنگ خاکستری مشخص می کند.
Sub HighlightLines() Dim iLines As Long Dim J As Integer If Selection.StoryType = wdMainTextStory Then Selection.WholeStory iLines = Selection.Range.ComputeStatistics(wdStatisticLines) Selection.Range.HighlightColorIndex = wdAuto Selection.Collapse For J = 1 To iLines Step 2 Selection.GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=J Selection.Expand Unit:=wdLine Selection.Range.HighlightColorIndex = wdGray25 Next Selection.Collapse Selection.HomeKey Unit:=wdStory Else MsgBox "The insertion point is not within the main text." End If End Sub
اگر نقطه درج شما در متن اصلی سند نباشد (مثلاً در سرصفحه یا پاورقی است)، ماکرو کاری انجام نمی دهد جز اینکه شما را از مشکل مطلع کند. در غیر این صورت، محاسبه می کند که چند خط در سند وجود دارد و سپس از یک حلقه For...Next برای عبور از هر خط استفاده می کند.
در واقع، نحوه راه اندازی حلقه For...Next بسیار مهم است. خط مربوط به این شکل است:
For J = 1 To iLines Step 2
دو چیز وجود دارد که ممکن است بخواهید در این خط تغییر دهید. اولاً، اگر سند شما در همان ابتدا عنوانی دارد، مانند عنوان سخنرانی شما، و نمیخواهید با خاکستری مشخص شود، باید عدد 1 (نقطه شروع حلقه) را به 2 تغییر دهید. ، اگر می خواهید خطوط سند خود را با افزایش دیگری سایه بزنید، سپس مقدار Step را به افزایش دلخواه تغییر دهید. به عنوان مثال، اگر می خواهید هر خط سوم را سایه بزنید، می توانید "Step 2" را به "Step 3" تغییر دهید.
همچنین توجه داشته باشید که ماکرو از شر هرگونه سایه در سند خلاص می شود. این مفید است زیرا ممکن است قبلاً خطوط سند را سایه انداخته باشید و سپس کمی ویرایش کرده باشید. ماکرو را دوباره اجرا کنید، سایه قدیمی حذف شده و سایه جدید روی خطوط مناسب اعمال می شود.
در نهایت، باید توجه داشته باشید که ماکرو اساساً جداول، پاورقی ها، یادداشت های پایانی و هر متنی را در اشکال یا جعبه متن نادیده می گیرد. آنها جزء سند اصلی محسوب نمی شوند، بنابراین کلان هیچ تأثیری روی آنها ندارد.
ماکرو بسته به طول سند و سرعت سیستم شما، مدت زمان قابل توجهی اجرا می کند. در سیستم نسبتا سریع من با یک سند 27 صفحه ای، حدود 6 ثانیه طول کشید تا تکمیل شود. مسلماً، 27 صفحه سخنرانی بسیار طولانی خواهد بود، بنابراین وقتی آن را بر روی یک سند کوتاه 6 صفحه ای اجرا کردم، فقط یک ثانیه طول کشید تا اجرا شود.
