ماکروی تبدیل شمارهگذاری خودکار به شمارهگذاری دستی در وُرد
🔹#واژهپرداز|🆔 @VajehPardaz
📌 برگرفته از: کانال «اسکریپت برای همه»
ماکروی TabaAutomaticNumberingToManual با هدف تبدیل شمارهگذاری خودکار (Automatic Numbering) در نرمافزار Microsoft Word به شمارهگذاری دستی (Manual Numbering) طراحی و نوشته شده است. در نگاه اول ممکن است این موضوع ساده و کماهمیت به نظر برسد، اما در واقع در بسیاری از متون علمی، اداری، حقوقی یا حتی مقالات دانشگاهی، این موضوع اهمیت قابل توجهی دارد.
هنگامی که در Word از قابلیت شمارهگذاری خودکار استفاده میکنیم، شمارهها در قالب یک فرمت سیستمی ذخیره میشوند و در ظاهر بسیار مرتب و تمیز نمایش داده میشوند. اما مشکل از جایی آغاز میشود که بخواهیم متن را به نرمافزار دیگری منتقل کنیم یا نیاز به ویرایش دقیق و خاص روی شمارهها داشته باشیم. در چنین شرایطی، شمارهگذاری خودکار گاهی دچار بههمریختگی میشود یا حتی در برخی نرمافزارها بهطور کامل از بین میرود.
تبدیل شمارهگذاری خودکار به حالت دستی چند مزیت مهم دارد:
پایداری متن در جابهجایی: اگر سند به نرمافزارهای دیگری مانند Adobe InDesign، LaTeX، یا حتی Google Docs منتقل شود، شمارهها بدون مشکل حفظ میشوند.
امکان ویرایش اختصاصی: گاهی لازم است شمارهها رنگی شوند، اندازه متفاوتی داشته باشند یا تغییر خاصی روی آنها اعمال شود. وقتی شمارهها بهصورت دستی درج شده باشند، این تغییرات بهراحتی انجام میشود.
کاهش خطای ناشی از تغییر ساختار: در حالت خودکار، اگر پاراگرافی اضافه یا حذف شود، شمارهها بهطور کلی تغییر میکنند و ممکن است ترتیب مورد نظر نویسنده به هم بریزد. اما در حالت دستی، شمارهها ثابت میمانند.
سازگاری بیشتر در چاپ و خروجی PDF: بعضی مواقع شمارهگذاری خودکار در چاپ نهایی یا هنگام تبدیل به PDF مشکلاتی ایجاد میکند. نسخه دستی از این مشکلات مصون است.
از همه اینها مهمتر این است که کار صفحهآرا را برای انتقال متن ورد به ایندیزاین بسیار آسانتر میکند. وقتی شما متن را به ایندیزاین منتقل میکنید، با وجود شماره خودکار در فرایند هدینگ، گاهی شمارههای خودکار حذف میشوند و سبب تغییر تیتر میشوند. اما اگر در حالت دستی باشند این حذف صورت نمیگیرد.
ویژگیهای خاص این ماکرو
ماکروی TabaAutomaticNumberingToManual به گونهای نوشته شده که علاوه بر انجام کار اصلی خود، چند قابلیت ارزشمند دیگر هم به کاربر ارائه میدهد:
تبدیل سریع و هوشمند:
این ماکرو کل سند را بررسی میکند و تنها پاراگرافهایی را که شمارهگذاری خودکار دارند شناسایی کرده و آنها را به حالت دستی تبدیل میکند. این موضوع باعث میشود که در وقت صرفهجویی قابل توجهی حاصل شود.
حفظ متن اصلی و ساختار سند:
شمارهگذاری حذف نمیشود، بلکه به جای فرمت خودکار، بهصورت دستی جلوی پاراگراف درج میگردد. بنابراین هیچ بخشی از متن از بین نمیرود و ظاهر کلی سند دستنخورده باقی میماند.
نشانهگذاری با رنگ (هایلایت هوشمند):
شمارههایی که بهصورت دستی درج میشوند با رنگ قرمز مشخص میشوند. این ویژگی یک مزیت بزرگ محسوب میشود زیرا کاربر میتواند بهراحتی تشخیص دهد کدام شمارهها تغییر یافتهاند. در صورت تمایل هم بعداً میتواند رنگ را به حالت دلخواه تغییر دهد.
گزارش نهایی و شفاف:
پس از پایان اجرای ماکرو، یک پیغام (Message Box) نمایش داده میشود که تعداد شمارهگذاریهای تغییریافته را اعلام میکند. این گزارشگیری به کاربر کمک میکند تا بداند چند مورد اصلاح شده است.
ایمن و برگشتپذیر:
چون ماکرو تنها شمارهها را تغییر میدهد و محتوای پاراگراف را دست نمیزند، کاربر میتواند در صورت نیاز با دستور Undo (کلیدهای Ctrl+Z) همهٔ تغییرات را به حالت قبل برگرداند.
کاربرد گسترده در انواع متون:
برای صفحهآراهایی که سرعت و دقت کار برایشان اهمیت ویژهای دارد.
برای دانشجویانی که پایاننامه یا مقاله آماده میکنند.
برای نویسندگان و ویراستارانی که متن را بین نرمافزارهای مختلف منتقل میکنند.
برای کارمندان اداری که گزارشها یا قراردادهای رسمی تهیه میکنند.
بعداً اگر آپدیتی در ماکرو انجام دادیم همینجا بارگذاری میکنیم.
راهنمای استفاده از ماکرو
برای استفاده از این ماکرو در نرمافزار Microsoft Word، کافی است مراحل زیر را طی کنید:
باز کردن محیط VBA:
در نرمافزار Word کلیدهای ترکیبی Alt + F11 را بزنید.
محیط ویرایش ماکرو (VBA Editor) باز میشود.
ایجاد ماژول جدید:
از منوی سمت چپ (Project Explorer) روی نام سند خود راستکلیک کنید.
از منوی بازشده، گزینهٔ Insert > Module را انتخاب کنید.
کپی و جایگذاری کد ماکرو:
کدی که در اختیار دارید (همین کد TabaAutomaticNumberingToManual) را کپی کنید.
در ماژول جدیدِ بازشده آن را جایگذاری (Paste) نمایید.
ذخیرهسازی ماکرو:
کلیدهای Ctrl + S را بزنید تا ماکرو ذخیره شود.
اجرای ماکرو:
به محیط Word برگردید.
کلیدهای Alt + F8 را فشار دهید تا لیست ماکروها نمایش داده شود.
ماکروی TabaAutomaticNumberingToManual را انتخاب کرده و روی گزینهٔ Run کلیک کنید.
مشاهده نتیجه:
تمام شمارهگذاریهای خودکار سند شما به شمارهگذاری دستی تبدیل میشوند.
شمارهها با رنگ قرمز مشخص میشوند تا بهراحتی قابل شناسایی باشند.
در پایان، یک پیغام به شما نمایش داده میشود که تعداد تغییرات را نشان میدهد.
خواهش دوستانه: برای نوشتن این ماکرو و رفع باگ و… وقت زیادی صرف شده. پس لطفاً در کدها و عبارتِ کپیرایت ماکرو، تغییری ایجاد نکنید.