استفاده از ماکرو (Macro) برای حذف Captionها

استفاده از ماکرو (Macro) برای حذف Captionها

اگر سند خیلی بزرگه یا Captionهای زیادی داره، می تونم یه ماکرو ساده بهت بدم که همه کپشن های «شکل» و «جدول» رو حذف کنه

مراحل اجرای ماکرو در Word 2016

🔹 مرحله ۱: باز کردن محیط ماکرو

1. در Word، از نوار بالا به مسیر زیر برو:

View → Macros → View Macros

2. یک نام برای ماکرو وارد کن مثلا:

DeleteCaptions

3. روی دکمه Create کلیک کن. حالا وارد محیط ویرایشگر ماکرو(VBA) می شی.

🔹 مرحله ۲: جای گذاری کد ماکرو

کد زیر رو کپی کن و جایگزین متن موجود در پنجره کن:

Sub DeleteCaptions()

Dim para As Paragraph

For Each para In ActiveDocument.Paragraphs

If para.Style = "Caption" Then

para.Range.Delete

End If

Next para

MsgBox "تمام کپشن های خودکار حذف شدند.", vbInformation

End Sub

🔹 مرحله ۳: اجرای ماکرو

1. پنجره ماکرو رو ببند و برگرد به Word.

2. دوباره برو به:

View → Macros → View Macros

3. از لیست، ماکرو DeleteCaptions رو انتخاب کن.

4. روی دکمه Run کلیک کن.

✅ همه کپشن هایی که با استایل "Caption" (یعنی همون هایی که از طریق Insert Caption اضافه شدن) بودن، به صورت خودکار حذف می شن.

✅ همه کپشن هایی که با استایل "Caption" (یعنی همون هایی که از طریق Insert Caption اضافه شدن) بودن، به صورت خودکار حذف می شن.