GwenDolyn می داند که چگونه از ویژگی =rand() برای درج متن تصادفی استفاده کند. با این حال، او متعجب است که آیا راهی برای سفارشی کردن یا اضافه کردن متن به آنچه توسط =rand() برگردانده می شود وجود دارد. او از این ویژگی به عنوان دیگ بخار/پرکننده برای نمایش استفاده میکند و میخواهد سخنان خود را اضافه کند.
متأسفانه، هیچ راهی برای تغییر آنچه که توسط =rand() برگردانده می شود، وجود ندارد زیرا تابعی است که در Word تعبیه شده است. با این حال، چند راه برای حل این موضوع وجود دارد. محتمل ترین نامزدها موارد زیر هستند: یک بلوک ساختمانی، یک ورودی تصحیح خودکار، یا یک ماکرو. در یک لحظه بیشتر در مورد آنها.
ابتدا، درک این نکته مهم است که Word سه راه برای درج متن تصادفی در سند خود ارائه می دهد. GwenDolyn قبلاً در مورد تابع =rand() میداند که متنی را در مورد نحوه استفاده از برخی ویژگیها در Word وارد میکند. اگر ترجیح می دهید در مورد روباه های قهوه ای سریع بخوانید، می توانید به جای آن از تابع =rand.old() استفاده کنید. در نهایت، میتوانید از =lorem() برای درج متنی استفاده کنید که بر اساس متن آشنای پرکننده لورم ipsum است که طراحان برای دههها استفاده کردهاند.
اگر هیچ یک از این گزینهها کار شما را انجام نداد، یک جایگزین ایجاد یک ورودی بلوک ساختمانی است که حاوی اطلاعات دیگ بخاری مورد نظر شما باشد. این می تواند به اندازه طولی باشد که شما می خواهید، و حتی می تواند حاوی عناصر "ویژه" مانند جداول باشد. بلوکهای ساختمانی این مزیت را دارند که درج در یک سند آسانتر از استفاده از تابع =rand() است. نحوه ایجاد بلوک های ساختمانی در شماره های دیگر PCcloob پوشش داده شده است.
از ویژگی AutoCorrect Word می توان برای درج مقدار محدودی از متن دیگ بخار نیز استفاده کرد. با تنظیم صحیح، استفاده از AutoCorrect حتی سریعتر از Building Blocks است. تنها کاری که باید انجام دهید این است که یادداشت کوچکی را که ایجاد می کنید (مانند bpt، به معنای متن دیگ بخار) به خاطر بسپارید، آن یادداشت را تایپ کنید، و به طور خودکار با دیگ بخار کامل تر جایگزین می شود.
اشکال استفاده از Building Blocks یا AutoCorrect به جای =rand() این است که انعطاف پذیر نیستند. شما نمی توانید تعیین کنید که چند پاراگراف و چند جمله در هر پاراگراف می خواهید. اگر چنین انعطافپذیری را میخواهید، باید به ایجاد یک ماکرو متوسل شوید که درج دیگ بخار را انجام میدهد. در زیر نمونه ای از یک ماکرو ساده برای انجام چنین کاری آورده شده است.
Sub RandomText() Dim sSent As String Dim iSentences As Integer Dim iParagraphs As Integer Dim J As Integer Dim K As Integer iSentences = 3 Number of sentences per paragraph iParagraphs = 5 Number of paragraphs sSent = "Wallace Widgets makes the best widgets in the known world. " For J = 1 To iParagraphs For K = 1 to iSentences Selection.TypeText sSent Next K Selection.TypeParagraph Next J End Sub
البته میتوانید این ماکرو را به یک کلید میانبر اختصاص دهید یا آن را به نوار ابزار دسترسی سریع اضافه کنید و هر زمان که آن را فراخوانی کردید، متن شما را (که در متغیر sSent تعیین شده است) درج میکند. حتی ممکن است بخواهید ماکرو را به گونهای تغییر دهید که به جای اینکه تعداد جملات و پاراگرافها را «کد سخت» داشته باشد، ماکرو از کاربر میخواهد که مشخص کند چه تعداد از هر کدام را باید استفاده کند.