মধ্যরাতে ঝমঝম করে যখন বৃষ্টির কান্না ঝরে পড়ে, তখন আমার মনে হয় এই কালো কালো মেঘগুলোর পর্দার পেছনে এমন কেউ হইতো রয়েছে , যাদের হৃদয় আছে আমারই মত!!!!!

ম্যাক্রো কি এবং কেন? একাধিক কমান্ডকে একসাথে ব্যবহার করা হয় ম্যাক্রোর (macro) মাধ্যমে। ধরুন আপনি পৃষ্ঠার সাইজ পরিবর্তন করতে চান, তারপর পৃষ্ঠাটিকে সংরক্ষন করে বন্ধ করতে চান। এক সাথে তিনটি কাজ করতে হলে একটি ছোট ম্যাক্রো বানিয়েই করতে পারেন। ম্যাক্রো ব্যাবহার করা হয় ১. অনেকগুলো ফরমেটকে এক সাথে করার জন্য ও কম সময়ে কাজটি করার জন্য ২. অনেকগুলো কাজকে ধারাবাহিকভাবে একসাথে করার জন্য ৩. কোন ডায়ালগ বক্স বা ইনপুট দিয়ে কাজ করার জন্য ৫. আরও জটিল কোন প্রগ্রামিং ব্যবহার করতেও ম্যাক্রো ব্যবহার করা হয়। তাহলে আমরা একটি ম্যাকো বানিয়ে নেই ধরা যাক, আমি একটি কমান্ডের মাধ্যমে ১. পৃষ্ঠার সাইজ A4 করবো ২. পেজ সেটআপে বাম,ডান,উপর ও নিচের মার্জিন .৫ ইঞ্চি করবো।

৩. ফাইলটি সেভ করবো ধাপ-১. টুলস থেকে ম্যাক্রো রেকর্ড করতে হবে প্রথমে Tools–> Record New Macro তে গেলে ম্যাকোর নাম চাইবে। নাম দিয়ে ওকে করুন এ রকম রেকর্ড বাটন আসবে । ধাপ-২ রেকর্ড বাটনে ক্লিক করে ফেলুন। এবার যে যে কাজগুলো করাতে চান সেই কাজগুলো করুন। অথাৎ ১. ফাইলে গিয়ে পেজসেটআপ ঠিক করুন।

২. মার্জিন ঠিক করুন। ৩. ফাইরটি ষেভ করুন। ধাপ-৩ এবার রেকর্ড স্টপ বাটনে ক্লিক করেবন্ধ করুন ধাপ-৪ ম্যাক্রোতে করা কাজগুলো আপনি যেকোন ফাইলেই করতে পারবেন। এখন থেকে কোন ফাইলের জন্য উপরিউক্ত কাজগুলো একত্রে করাতে চাইলে ম্যাক্রো রান করাতে হবে এভাবে ক. Tools–> Macro–>Macros খ. ম্যক্রোর ডায়ালগ বক্স আসবে গ. ম্যাক্রোটি সিলেক্ট করে run এ ক্লিক করুন। ম্যাক্রোর ভিজুয়ালবেসিক কোড এতক্ষন যে প্রক্রিয়ায় ম্যাক্রো বানালাম তা ভিজুয়াল বেসিকে নিচের মতো কোড তৈরী হয়েছে।

তাহলে দেখি কি কি কোড তৈরী হলো: Tools–>Macro–>Macros এ ক্লিক করুন বানানো ম্যাক্রোটিকে সিলেক্ট করে Visual Basic Editorএ ক্লিক করলে দেখতে পাবেন আপনার বানানো ম্যাক্রো কোড। ঠিক নিচের মতো Sub Macro1() ‘ ‘ Macro1 Macro ‘ Macro recorded 4/28/2010 by Khan majlish ‘ Application.Keyboard (2117) Application.Keyboard (1033) With ActiveDocument.Styles(wdStyleNormal).Font If .NameFarEast = .NameAscii Then .NameAscii = “” End If .NameFarEast = “” End With With ActiveDocument.PageSetup .LineNumbering.Active = False .Orientation = wdOrientPortrait .TopMargin = InchesToPoints(1) .BottomMargin = InchesToPoints(1) .LeftMargin = InchesToPoints(1.25) .RightMargin = InchesToPoints(1.25) .Gutter = InchesToPoints(0) .HeaderDistance = InchesToPoints(0.5) .FooterDistance = InchesToPoints(0.5) .PageWidth = InchesToPoints(8.27) .PageHeight = InchesToPoints(11.69) .FirstPageTray = wdPrinterDefaultBin .OtherPagesTray = wdPrinterDefaultBin .SectionStart = wdSectionNewPage .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .VerticalAlignment = wdAlignVerticalTop .SuppressEndnotes = False .MirrorMargins = False .TwoPagesOnOne = False .BookFoldPrinting = False .BookFoldRevPrinting = False .BookFoldPrintingSheets = 1 .GutterPos = wdGutterPosLeft .SectionDirection = wdSectionDirectionLtr End With Application.Keyboard (2117) Application.Keyboard (1033) With ActiveDocument.Styles(wdStyleNormal).Font If .NameFarEast = .NameAscii Then .NameAscii = “” End If .NameFarEast = “” End With With ActiveDocument.PageSetup .LineNumbering.Active = False .Orientation = wdOrientPortrait .TopMargin = InchesToPoints(0.5) .BottomMargin = InchesToPoints(0.94) .LeftMargin = InchesToPoints(0.5) .RightMargin = InchesToPoints(0.5) .Gutter = InchesToPoints(0) .HeaderDistance = InchesToPoints(0.5) .FooterDistance = InchesToPoints(0.5) .PageWidth = InchesToPoints(8.27) .PageHeight = InchesToPoints(11.69) .FirstPageTray = wdPrinterDefaultBin .OtherPagesTray = wdPrinterDefaultBin .SectionStart = wdSectionNewPage .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .VerticalAlignment = wdAlignVerticalTop .SuppressEndnotes = False .MirrorMargins = False .TwoPagesOnOne = False .BookFoldPrinting = False .BookFoldRevPrinting = False .BookFoldPrintingSheets = 1 .GutterPos = wdGutterPosLeft .SectionDirection = wdSectionDirectionLtr End With Application.Keyboard (2117) ActiveDocument.Save End Sub
।