یه روز داشتم مقاله مینوشتم. یهو دیدم کلی وقتم رو گذاشتم تا متن رو شمارهگذاری کنم، فونت رو عوض کنم، فهرست مطالب رو درست کنم.🤕
یه فکری به سرم زد: «میتونم به ورد بگم که خودش این کارها رو انجام بده!»🤔
رفتم تو تنظیمات ورد یه ماکرو نوشتم که متن رو شمارهگذاری میکرد، فونت رو عوض میکرد و فهرست مطالب رو درست میکرد.😎
از اون روز به بعد، نوشتن مقاله خیلی برام راحتتر و سریع تر شد.
✅ و خبر خوب اینکه یه آموزش خیلی خفن از ماکرونویسی در ورد رو بزودی قرار میدیم.😍 پس حواستون باشه جا نمونید.😉
#ماکرو_نویسی
#ورد
┈┄┅═✾🔹🔷💠🔶🔸✾═┅┄┈
📣 کانال آقای ورد
https://eitaa.com/aghayeword
🆔 @aghayeword
╚═══ 🌿🌺🌿 ═════
فعلا قابلیت پخش رسانه در مرورگر فراهم نیست
مشاهده در پیام رسان ایتا
🎥 #ترفندهای_ویرایش_و_نگارش 12
🔍 تبدیل خودکار پاورقی به ارجاع درونمتنی
🔹 چطور از طریق ماکرو، ارجاعات به صورت پانوشت را به ارجاع درون متنی تبدیل کنیم؟
👨💼 مدرس: علی کسرائیان
✍️ دستور:
در محیط ورد، Alt+F11 را بزنید تا پنجرۀ Microsoft Visual basic for Applications باز شود.
از منوی درختی سمت چپ، Normal را انتخاب کنید و بعد از منوی Insert گزینه Module را انتخاب کنید.
کد زیر را در کادر بازشده کپی کنید.
Sub AddFnTextInBodyOfDoc()
Dim f As Footnote
Dim r As Range
For Each f In ActiveDocument.Footnotes
Set r = f.Reference
r.Collapse wdCollapseEnd
r.InsertAfter "(" & f.Range.Text & ")"
f.Delete
Next f
End Sub
✅ تذکر
• اگر میخواهید ارجاعات درونمتنی شما مثلاً درون قلاب قرار بگیرد، در خط هفتم بهجای پرانتز از [ ] استفاده کنید.
• اگر میخواهید پاورقیها پس از تبدیل باقی بمانند، خط هشتم را پاک کنید.
سپس روی آیکن ذخیره کلیک کرده و پنجره را ببندید.
حال در محیط ورد Alt+F8 را زده و در پنجره بازشده روی AddFnTextInBodyOfDoc (و اگر چندتا بود روی آخرین شمارهاش) کلیک کنید، سپس Run را بزنید.
#ماکرو_نویسی
┈┄┅═✾🔹🔷💠🔶🔸✾═┅┄┈
📣 کانال آقای ورد
https://eitaa.com/aghayeword
🆔 @aghayeword
╚═══ 🌿🌺🌿 ═════