امروز میخوام یه #ترفند بگم که فقط کافیه تا ۳ بشماری و تمام ارجاعات مقاله از پاورقی، درون متنی بشه😯😂
یعنی انگار معجزه اس😎
فقط به شرط اینکه وقتی یاد گرفتید زکات علمتون رو بدید و برای دوستانتون بفرستید😅
⚙#ترفند|روش تبدیل خودکار پاورقی به ارجاع درون‌متنی
🔰یکی از ترفندهای پاورقی ورد که برخی سایت‌ها آمده است، جایگزین‌شدن یک‌جا و اتوماتیک پاورقی‌ها به ارجاع درون متنی هست.
1⃣برای این کار، در محیط برنامه آفیس Alt+F11 را بزنید تا پنجره Microsoft Visual basic for Applications باز شود.
2⃣از منوی درختی سمت چپ، Normal را انتخاب کنید و بعد از منوی Insert گزینه Module را انتخاب کنید.
3⃣کد زیر را عینا در کادر بازشده کپی کنید:
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
⚠️تذکر: اگر می‌خواهید ارجاعات درون‌متنی شما مثلاً درون قلاب قرار بگیرد، در خط هفتم به‌جای پرانتز از [ ] استفاده کنید.
⚠️تذکر: اگر می‌خواهید پاورقی‌ها پس از تبدیل باقی بمانند، خط هشتم را پاک کنید.
سپس روی آیکن ذخیره کلیک کرده و پنجره را ببندید.
4⃣حال در محیط ورد Alt+F8 را زده و در پنجره بازشده روی AddFnTextInBodyOfDoc (و اگر چندتا بود روی آخرین شماره‌اش) کلیک کنید، سپس Run را بزنید.
✅کلیه پاورقی‌ها به ارجاع درون متنی تبدیل شد!
#معرفی_ابزار_پژوهشی
🎯 پژوهش‌هوشمند|محمد‌گلزار
https://eitaa.com/joinchat/406126783Cf5899341eb
امروز میخوام یه #ترفند بگم که فقط کافیه تا ۳ بشماری و تمام ارجاعات مقاله از پاورقی، درون متنی بشه😯😂
یعنی انگار معجزه اس😎
فقط به شرط اینکه وقتی یاد گرفتید زکات علمتون رو بدید و برای دوستانتون بفرستید😅
⚙#ترفند|روش تبدیل خودکار پاورقی به ارجاع درون‌متنی
🔰یکی از ترفندهای پاورقی ورد که برخی سایت‌ها آمده است، جایگزین‌شدن یک‌جا و اتوماتیک پاورقی‌ها به ارجاع درون متنی هست.
1⃣برای این کار، در محیط برنامه آفیس Alt+F11 را بزنید تا پنجره Microsoft Visual basic for Applications باز شود.
2⃣از منوی درختی سمت چپ، Normal را انتخاب کنید و بعد از منوی Insert گزینه Module را انتخاب کنید.
3⃣کد زیر را عینا در کادر بازشده کپی کنید:
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
⚠️تذکر: اگر می‌خواهید ارجاعات درون‌متنی شما مثلاً درون قلاب قرار بگیرد، در خط هفتم به‌جای پرانتز از [ ] استفاده کنید.
⚠️تذکر: اگر می‌خواهید پاورقی‌ها پس از تبدیل باقی بمانند، خط هشتم را پاک کنید.
سپس روی آیکن ذخیره کلیک کرده و پنجره را ببندید.
4⃣حال در محیط ورد Alt+F8 را زده و در پنجره بازشده روی AddFnTextInBodyOfDoc (و اگر چندتا بود روی آخرین شماره‌اش) کلیک کنید، سپس Run را بزنید.
✅کلیه پاورقی‌ها به ارجاع درون متنی تبدیل شد!
#معرفی_ابزار_پژوهشی
🎯 پژوهش‌هوشمند|محمد‌گلزار
https://eitaa.com/joinchat/406126783Cf5899341eb