(Techie007 এর উত্তর আমার জন্য কাজ করে না আউটলুক 2010)
এই ম্যাক্রো ( http://www.slipstick.com/developer/word-macro-apply-formatting-outlook-email/ থেকে রূপান্তরিত ) করেছে:
Sub SetCodeFont()
Dim objItem As Object
Dim objInsp As Outlook.Inspector
Dim objWord As Word.Application
Dim objDoc As Word.Document
Dim objSel As Word.Selection
On Error Resume Next
Set objItem = Application.ActiveInspector.CurrentItem
If Not objItem Is Nothing Then
If objItem.Class = olMail Then
Set objInsp = objItem.GetInspector
If objInsp.EditorType = olEditorWord Then
Set objDoc = objInsp.WordEditor
Set objWord = objDoc.Application
Set objSel = objWord.Selection
objSel.Font.Name = "Consolas"
End If
End If
End If
Set objItem = Nothing
Set objWord = Nothing
Set objSel = Nothing
Set objInsp = Nothing
End Sub
এরপরে, ভিবিএ সম্পাদক এ যান Tools > Referencesএবং নির্বাচন করুন Microsoft Word 14.0 Object Library।
এখন, ম্যাক্রোর জন্য কীবোর্ড শর্টকাট তৈরি করতে, এটি আপনার দ্রুত অ্যাক্সেস সরঞ্জামদণ্ডে নীচে যুক্ত করুন:
- একটি নতুন মেল বার্তা খুলুন
- দ্রুত অ্যাক্সেস সরঞ্জামদণ্ডে (সাধারণত উইন্ডোর উপরে অবস্থিত) ছোট ড্রপ ডাউন তীরটি ক্লিক করুন এবং "আরও কমান্ড ..." নির্বাচন করুন
- আউটলুক বিকল্প ডায়ালগটি খুলবে, তারপরে "এর থেকে আদেশগুলি চয়ন করুন:" ড্রপডাউন থেকে "ম্যাক্রোস" নির্বাচন করুন
- তালিকা থেকে সেটকোডফন্ট ম্যাক্রোটি নির্বাচন করুন এবং "যুক্ত >>" টিপুন
- ম্যাক্রো বোতামটি এখন দ্রুত অ্যাক্সেস সরঞ্জামদণ্ডে উপস্থিত হবে
ম্যাক্রো হাইলাইট আপনার ইমেইল কিছু পাঠ্য এবং প্রেস চালানোর জন্য Alt + <Num>যেখানে <Num>আপনার দ্রুত এক্সেস সরঞ্জামদণ্ড মধ্যে ম্যাক্রোর অবস্থান। উদাহরণস্বরূপ, যদি ম্যাক্রোটি সরঞ্জামদণ্ডের প্রথম বোতাম হয় তবে Alt + 1এটির জন্য অনুরোধ করুন।