لن به طور معمول تمام فیگورهای خود را در جعبه متن قرار می دهد. او کادرهای متن را قالب بندی می کند تا با یکدیگر همپوشانی نداشته باشند. (او کادر محاوره‌ای Layout را نمایش می‌دهد و در برگه Position، تیک Allow Overlap را پاک می‌کند.) لن می‌خواهد این تنظیم به‌طور پیش‌فرض پاک شود، اما به نظر می‌رسد همیشه پیش‌فرض اجازه همپوشانی را می‌دهد. او فکر می کند که آیا راهی برای خاموش کردن کامل آن وجود دارد؟
متأسفانه، به نظر می رسد راهی برای خاموش کردن کامل آن وجود ندارد - Word فقط به صورت پیش فرض اجازه همپوشانی را می دهد. با این حال، می توانید چند ماکرو ایجاد کنید که ممکن است مفید باشد. اولی تنظیمات همپوشانی را برای یک کادر متن انتخاب شده تنظیم می کند:
Sub AllowOverlapFalse()
Selection.ShapeRange.WrapFormat.AllowOverlap = False
End Sub
تنها کاری که باید انجام دهید این است که جعبه متن خود را ایجاد کنید، آن را انتخاب کنید و سپس ماکرو را اجرا کنید. حتی ممکن است بخواهید آن را به یک کلید میانبر اختصاص دهید تا بتوانید کار را سریع و آسان انجام دهید.
روش دیگر شبیه به روش اول است، اما روی تمام کادرهای متن در سند کار می کند. بنابراین، می توانید تمام جعبه های متنی را که می خواهید ایجاد کنید و سپس این ماکرو را اجرا کنید.
Sub FixTextBoxOverlap()
Dim s As Shape
For Each s In ActiveDocument.Shapes
If s.Type = msoTextBox Then
s.WrapFormat.AllowOverlap = False
End If
Next
End Sub
همانطور که از این ماکروها می توانید متوجه شوید، جعبه های متنی در دنیای VBA مانند اشکال رفتار می شوند. این ماکرو با عبور از تمام شکل‌های تعریف‌شده، مطمئن می‌شود که فقط بر آن‌هایی که در واقع جعبه متن هستند تأثیر می‌گذارد.
