در بسیاری از مشاغل (مانند حرفه وکالت) مهم است که بتوان پاراگراف ها را از سمت چپ و راست تورفتگی کرد. این کمک می کند تا اطلاعات را از متن فوق و متن زیر جدا کنید تا بهتر برجسته شود. این نوع قالب بندی پاراگراف اغلب برای نقل قول ها و سایر اطلاعات "به کلمه" موجود در یک سند اعمال می شود.
متأسفانه Word یک میانبر سریع برای ایجاد یک تورفتگی دوگانه ندارد. می‌توانید Ctrl+M را فشار دهید ، اما این فقط سمت چپ پاراگراف را فرو می‌کند. شما هنوز از کادر محاوره‌ای پاراگراف یا خط کش برای تورفتگی سمت راست گیر کرده‌اید.
یکی از راه‌های حل این مشکل، ایجاد یک استایل در Word است که دارای تورفتگی‌های لازم در سمت چپ و راست باشد. سپس می توان این سبک را به میانبر صفحه کلید اختصاص داد تا بتوانید به راحتی آن را اعمال کنید. این رویکرد می تواند بسیار قدرتمند باشد، به خصوص اگر فکر می کنید ممکن است در زمان بعدی نیاز به تغییر حاشیه ها در پاراگراف های دو تورفتگی داشته باشید.
روش دیگر ایجاد یک ماکرو است که تورفتگی را برای شما انجام دهد. سپس می توانید ماکرو را به یک میانبر صفحه کلید (مانند Alt+D ) اختصاص دهید تا بتوان آن را به راحتی فراخوانی کرد. ماکرو زیر هر دو تورفتگی چپ و راست پاراگراف را یک چهارم اینچ افزایش می دهد.
Sub DoubleIndent()
Dim Lindt as Single
Dim Rindt as Single
Lindt = Selection.ParagraphFormat.LeftIndent
Rindt = Selection.ParagraphFormat.RightIndent
Lindt = Lindt + 18
If Lindt > 180 Then Lindt = 0
Rindt = Rindt + 18
If Rindt > 180 Then Rindt = 0
Selection.ParagraphFormat.LeftIndent = Lindt
Selection.ParagraphFormat.RightIndent = Rindt
End Sub
نکته جالب در مورد این ماکرو این است که می توانید بارها و بارها آن را اعمال کنید و به گام برداشتن حاشیه ها به سمت داخل ادامه دهید. هنگامی که سعی می کنید حاشیه ها را بیش از 2.5 اینچ در هر طرف افزایش دهید، تورفتگی ها به طور خودکار به صفر برمی گردند و روند می تواند دوباره شروع شود.
به یاد داشته باشید که ماکرو هیچ چیز دیگری را در مورد پاراگراف تغییر نمی دهد - فقط حاشیه چپ و راست. اگر می‌خواهید برخی از ویژگی‌های قالب‌بندی دیگر را تغییر دهد، تغییر ماکرو به اندازه کافی آسان است. به عنوان مثال، اگر می‌خواهید پاراگراف را در حاشیه چپ و راست توجیه کند، می‌توانید خط تکی زیر را درست قبل از خط «End Sub» در انتهای ماکرو اضافه کنید:
.Alignment = wdAlignParagraphJustify
