We Love Chinland

MemberCardPrintingSoftware ေရးနည္း အပိုင္း(၂)

Microsoft ကထုတ္တဲ႔ Application ေတာ္ေတာ္မ်ားမ်ားမွာ Macro ဆိုတာ ပါပါတယ္။ ဥပမာ - အသံုးမ်ားၾကတဲ႔ Word, Excel, PowerPoint တို႔မွာဆိုရင္ Tools menu ေအာက္မွာ ေတြ႔ရပါမယ္။ Macro ရဲ႕လုပ္ေဆာင္ခ်က္ကေတာ႔ အံ႔မခန္းဘဲလို႔ေျပာႏိုင္ပါတယ္။
လုပ္ေဆာင္ခ်က္ေတြကို မွတ္တမ္းတင္ထားေပးၿပီး Program Code ေတြ ျပန္ထုတ္ေပးပါတယ္။ Programming ေလ႔လာသူမ်ား အႀကိဳက္ေတြ႔ႏိုင္ပါတယ္။ Visual Basic နဲ႔ Microsoft Script တို႔နဲ႔ Code ေတြ ထုတ္ေပးပါတယ္။ Excel နဲ႔ Programming ေရးၾကသူေတြ သံုးၾကပါတယ္။

ကဲ Macro စ စမ္းၾကည့္ရေအာင္။

Word ကို ဖြင့္ပါ။ Tools, Macro, Record New Macro တစ္ဆင့္ခ်င္း ၀င္ပါ။ Record Macro Windows က်လာပါမယ္။ Macro Name ႀကိဳက္ရာေပးပါ။ OK လုပ္ပါ။

ၿပီးရင္ စာေတြ႐ိုက္မယ္။ အလွဆင္ (Bold, Italic, Coloring စသည္ျဖင့္) မယ္။ ပံုေတြထည့္မယ္။

စိတ္ႀကိဳက္လုပ္ေဆာင္ၿပီးရင္ Tools, Macro ေအာက္က Stop Recording လုပ္ပါ။ ၿပီးရင္ Tools, Macro, Visual Basic Editor တစ္ဆင့္ခ်င္း ၀င္ပါ။

Left Pane ေအာက္က project - Project ေအာက္က Normal, Modules, New Macros တစ္ဆင့္ခ်င္း ဖြင့္ၾကည့္ပါ။ ေစာေစာက Word ေပၚက လုပ္ေဆာင္ခ်က္အားလံုး Program Code ေတြနဲ႔ ျမင္ရပါလိမ္႔မယ္။ ေအာက္မွာ Sample ျပထားပါတယ္။

At Word

At Visual Basic Editor
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 9/12/2009 by ezynet
'
Selection.TypeText Text:="This is Testing for Macro Lesson."
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeText Text:="Line 1"
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeText Text:="Line 2"
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeText Text:="Line 3"
Selection.TypeParagraph
Selection.MoveUp Unit:=wdLine, Count:=5
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Font.Bold = wdToggle
Selection.MoveDown Unit:=wdLine, Count:=2
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Font.Italic = wdToggle
Selection.MoveDown Unit:=wdLine, Count:=2
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Font.Bold = wdToggle
Selection.Font.Italic = wdToggle
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeParagraph
Selection.InlineShapes.AddPicture FileName:= _
"C:\Doc**ents and Settings\All Users\Doc**ents\My Pictures\Sample Pictures\Blue hills.jpg" _
, LinkToFile:=False, SaveWithDoc**ent:=True
Selection.TypeParagraph
Selection.TypeParagraph
ActiveDoc**ent.Shapes.AddTextEffect(msoTextEffect8, "Macro Lesson", _
"Times New Roman", 36#, msoFalse, msoFalse, 228.75, 173.6).Select
Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
CommandBars("WordArt").Visible = False
End Sub

ၿပီးရင္ Word ကိုျပန္သြားပါ။ Select All (Ctrl + A) လုပ္၊ Delete ႏွိပ္ၿပီး ႐ွင္းပစ္ပါ။ Visual Basic Editor ကို ျပန္သြားၿပီး Run, Run Sub/User Form လုပ္ၾကည့္ပါ။ Word မွာ ျပန္ၾကည့္ရင္ ေစာေစာကလုပ္ေဆာင္ခ်က္အားလံုး ျပန္ေတြ႔ရပါမယ္။

လုပ္ေဆာင္ခ်က္ထပ္တူက်တဲ႔ ကိစၥေတြ၊ Excel မွာ Entry လက္ခံ၊ ၿပီးရင္ Word မွာ Mail Merge စာေတြအမ်ားႀကီးျပန္ထုတ္တဲ႔ကိစၥေတြမွာ တကယ္အသံုး၀င္ပါတယ္။ Code ေတြကိုေတာ႔ ေလ႔လာတာမ်ားရင္ ျပင္တက္၊ ကစားတတ္လာမွာပါ။ Microsoft Application ေတြကို ခ်ိတ္ဆက္ၿပီးေတာ႔လည္း Macro ေရးႏိုင္ပါတယ္။ Visual Basic အေျခခံေလာက္႐ွိရင္ ပိုေကာင္းပါတယ္။

ကဲ ေနာက္ Lesson က်မွဘဲ Card Print လုပ္ပံုေလး ဆက္ေျပာေတာ႔မယ္ေနာ္။