🎥 #ترفندهای_ویرایش_و_نگارش 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 را بزنید. 🆔 @aghayeword