Vba Course

‫ 
ا ا  ا‬

Visual Basic for Applications With Microsoft Word / ‫إاد‬

Dr MSA [email protected] : ‫ﻡ‬ ./‫ ﺏ‬1+ ‫ف‬%34‫ ا‬.6 7‫ أرﺝ‬:4;4 ، ً ,%*-$ ً #$%&$ '() %&*+‫أ   أ‬ .‫ع‬7>7?4‫' ه;ا ا‬, A‫ﺝ‬7‫ أن ﺕ‬1D?E '*4‫ ا‬FG#$%&4‫ء ا‬3IJ‫ا‬ . Visual Basic FNO‫ ﺏ‬FE‫ درا‬QO+ ‫ن‬7D‫ع أن ﺕ‬7>7?4‫ ه;ا ا‬LM)4 :‫ض ﺏ‬%*)E

‫ا‪"#‬ء ا ول‬ ‫ﻡ‪+‬ﻡ إ* ا ‪%‬آو دا(' &‪%‬ﻡ‪Word $‬‬ ‫ا ‪%‬آو ‪: Macro‬‬ ‫ه‪ 7‬ﺕ‪ 1$ F+7?#?4 WG?#‬ا‪73V4‬ات ‪73I ',‬ة واﺡ‪A‬ة ‪.‬‬ ‫ﺕ‪ 74 YGV‬أ ‪ :‬ﺕ‪ AE%‬أن ﺕ‪, 1000 X*D‬ﺕ‪7‬رة ﺡ(ب ﺕ‪ ?G, _O*V‬ﺏ‪ ', \], M^G‬اﺱ‪L‬‬ ‫ا‪ YG?/4‬وا‪ cO&?4‬ا‪ ، ً ab$ '4?4‬ه^ ‪7DE‬ن ا‪?4‬آ‪%‬و ﺡ‪d]E%e 1/, :4 ً G4b$ ً a‬‬ ‫ﺕ(*‪ WG3‬ﺕ‪ WG?#‬آ‪ Y‬ا‪73V4‬ات ا‪%*g?4‬آ‪ F‬ﺏ‪ 1G‬ا‪7)4‬اﺕ‪73I ', %G‬ة واﺡ‪A‬ة ‪:GO+ %,7*4‬‬ ‫ا‪ 1$ %GbD4‬ا‪ hi74‬وا‪. AM#4‬‬ ‫‪3‬ی‪ +‬إ&‪%1‬ء ﻡ‪%‬آو دا(' &‪%‬ﻡ‪: Word $‬‬ ‫ه^ك ‪*]E%e‬ن ‪g k‬ء ا‪?4‬آ‪%‬و ا‪J‬و‪ Q4‬ﺕ(‪ YG#‬ا‪?4‬آ‪%‬و وا‪ FG b4‬آ*ﺏ‪ F‬ا‪7D4‬د ‪.‬‬ ‫ا‪4‬ی‪ +‬ا و* ‪ :‬إ&‪%1‬ء ا ‪%‬آو  ‪3‬ی‪ 5‬ا‪: '#6‬‬ ‫‪ F?ni 1$ -1‬أدوات أ‪$ %*I‬آ‪%‬و ﺙ‪ L‬ﺕ(‪$ YG#‬آ‪%‬و ﺝ‪.AEA‬‬

‫‪ -2‬ﺙ‪ L‬ا‪7$ %*I‬ا‪a$ W$ ، p,‬ﺡ‪ Fo‬اﺱ‪ L‬ه;ا ا‪?4‬آ‪%‬و ‪ d J‬ﺱ‪AG)G‬ك ‪ ?G,‬ﺏ‪. A/‬‬ ‫‪ -3‬ﺱ‪7‬ف ﺕ‪a‬ﺡ‪7Mv w‬ر ر‪g$ u$‬ﺏ‪ \E%g4 d‬ا‪D4‬ﺱ‪ hG‬ﺏ‪7#‬ار ‪t$‬ﺵ‪ %‬ا‪r)4‬رة ‪ ،‬آ?‬ ‫ﺱ‪7‬ف ‪ %MoE‬ﺵ‪ \E%‬أدوات ‪ QO+‬ﺝ ‪ X‬ا‪7*-E F-){4‬ي ‪ QO+‬أزرار إ‪]E‬ف‬ ‫‪ hit$‬وإ‪]E‬ف وﺕ(‪$ YG#‬آ‪%‬و آ‪: |>7?4‬‬

‫وه;ا ‪ '^/E‬أن ﺝ?‪ WG‬ا‪73V4‬ات ا‪ '*4‬ﺕ]‪7‬م ﺏ‪ M‬ان دا‪ YI‬ﺏ‪L*E Word ~$ %‬‬ ‫ﺕ(‪. MOG#‬‬ ‫وأ‪7i‬ل ا‪73V4‬ات أي ا‪J‬وا‪ %$‬و‪ G4‬ا‪%-4‬آت ‪ a,‬ﺕ*‪ YGV‬أ ‪ d‬ﺱ‪7‬ف ‪ Y#(E‬آ‪Y‬‬ ‫ﺡ‪%‬آ‪t?4 F‬ﺵ‪ %‬ا‪r)4‬رة ‪.‬‬ ‫‪ Li -4‬ﺏ‪*D‬ﺏ‪&+ F‬رة " ﺏ(‪ L‬ا… ا‪%4‬ﺡ?‪ 1‬ا‪%4‬ﺡ‪ " LG‬ﺙ‪ Li L‬ﺏ*‪ MOGOo‬وﺕ‪ %GGN‬ﺡ‪L#‬‬ ‫ا‪ \V4‬إ‪ 20 Q4‬وﺕ‪7‬ﺱ‪ M3G‬وﺱ\ ا‪. %3(4‬‬ ‫‪ -5‬ﺙ‪ Li L‬ﺏ‪ QO+ \N‡4‬زر إ‪]E‬ف ا‪ YG#(*4‬ا‪ ', |>7?4‬ا‪ YDg4‬ا‪(4‬ﺏ‪M k p‬ء‬ ‫‪ FGO?+‬ﺕ(‪ YG#‬ا‪?4‬آ‪%‬و ‪.‬‬ ‫‪ Li -6‬ﺏ?(| آ‪E7*-$ Y‬ت ا‪ F-){4‬ا‪. FG4-4‬‬ ‫‪ -7‬اذه‪ X‬إ‪ F?ni Q4‬أدوات وا‪$ %*I‬آ‪%‬و ﺙ‪ L‬وﺡ‪A‬ات ‪$‬آ‪%‬و‪.‬‬

‫‪ -8‬ا‪ %*I‬اﺱ‪ L‬ا‪?4‬آ‪%‬و ا‪;4‬ي ‪ h?i‬ﺏ‹ ‪ ، YGOi ;^$ dng‬ﺙ‪ L‬ا>‪ \N‬ﺕ^)‪. ;G‬‬ ‫‪ -9‬ﺱ‪7‬ف ﺕ‪g‬ه‪ A‬آ*ﺏ‪&+ F‬رة " ﺏ(‪ L‬ا… ا‪%4‬ﺡ?‪ 1‬ا‪%4‬ﺡ‪ "LG‬ﺏ‪ 20 \V‬وﺱ\‬ ‫ا‪.%3(4‬‬ ‫ه;ا ‪%#$ \],‬د ‪b$‬ل ﺕ‪ '-G>7‬ﺏ(‪ ، \G‬و‪ :^D?E 1D4‬أن ﺕ‪ A]/‬ا‪ YG#(*4‬وﺕ‡‪d?V‬‬ ‫وﺕ?Œ ﺏ‪73V4‬ات آ? ﺕ‪g‬ء ‪.‬‬

: Visual Basic ‫  آد‬%68 ‫آو‬% ‫ء ا‬%1&‫ إ‬: &%7‫ ا‬+‫ی‬4‫ا‬ . Visual Basic ‫ر‬%-$ L‫و ﺙ‬%‫آ‬$ %*I‫ أدوات وا‬F?ni Q4‫ إ‬X‫ اذه‬-1 .NewMacros L‫ ﺙ‬Modules L‫ ﺙ‬Normal %*I‫ ا‬Project ‫;ة‬, 1$ L‫ ﺙ‬-2

M‫د ﺏ‬7‫ آ‬F-)‫ ﺹ‬:4 %Mo‫ف ﺕ‬7‫ ﺱ‬NewMacros QO+ ‫دوج‬u?4‫ ا‬%]^4‫ ﺏ‬Li -3 VB ‫د‬7‫ آ‬F•G‫ ه‬QO+ Y&i 1$ M*‫ أو آ*ﺏ‬MOG#(*‫ ﺏ‬h?i '*4‫و ا‬%‫?آ‬4‫ ا‬Y‫آ‬ .VB ‫اد‬7‫ أآ‬QO+ ‫*د‬/$ : ‫*&ر أ‬+‫ ا‬QO+ :4 F&(^4‫ ﺏ‬%G&‫ آ‬A‫ ﺡ‬Q4‫م إ‬7M)$ : '4*4‫ آ‬MyName ‫اء‬%‫ﺝ‬k‫ ا‬F‫*ﺏ‬D‫ ﺏ‬Li F-){4‫ ا‬FEM ', -4 Sub MyName() Selection.TypeText ("A?-$") End Sub . Word ‫ـ‬4‫ ا‬Q4‫ى إ‬%I‫ة أ‬%$ ‫دة‬7/4‫ وا‬VB ‫ر‬%-$ ‫ق‬a6‹‫ ﺏ‬Li -5 . FG4-4‫ ا‬F-){4‫ت ا‬E7*-$ Y‫ ﺏ?(| آ‬Li -6 .‫و‬%‫آ‬$ ‫ات‬A‫ وﺡ‬L‫و ﺙ‬%‫آ‬$ %*I‫ أدوات وا‬F?ni Q4‫ إ‬X‫ اذه‬-7 ‫;ا‬4 ‫و‬%‫?آ‬4‫ ا‬F?ni Q4‫_ إ‬G>‫ أ‬Ai MyName ‫اء‬%‫ﺝ‬k‫ ا‬L‫ أن اﺱ‬w‫ﺡ‬a‫ف ﺕ‬7‫ ﺱ‬-8 . ;G)^‫\ ﺕ‬N>‫ ا‬L‫رŒ ﺙ‬G*I‫ ﺏ‬Li

. A^*(?4‫ ا‬FE‫ا‬A‫' ﺏ‬, h&*‫ آ‬Ai "A?-$ " F?O‫ آ‬A‫ه‬g‫ف ﺕ‬7‫ﺱ‬ : Selection ?%8‫ا‬ Selection 1nDO4 ^$‫ا‬AV*‫ اﺱ‬MyName p‫(ﺏ‬4‫اء ا‬%‫ﺝ‬k‫ ا‬F‫ آ*ﺏ‬A^+ ho‫ﺡ‬  ^4‫ ا‬F‫*ﺏ‬D‫م ﺏ‬7]‫ وﺕ‬TypeText '‫ وه‬di%e 1$ F]E%e ‫ام‬AV*‫?^ ﺏﺱ‬i ‫;ي‬4‫وا‬ . Word F-)‫ ﺹ‬YI‫' دا‬4-4‫ ا‬F‫*ﺏ‬D4‫ ا‬%‫ﺵ‬t$ ‫د‬7‫ن وﺝ‬D$ ', M4 Q3/?4‫ا‬ : Selection 1nD4‫ق ا‬%e ./‫>| ﺏ‬7E '4*4‫ول ا‬A#4‫وا‬ Method +‫ی‬4‫ا‬ Selection.TypeText Selection.TypeParagraph Selection.ParagraphFormat Selection.Font.

‫ام‬D6‫ﺱ‬F‫ا‬ F‫*ﺏ‬D4‫ ا‬%‫ﺵ‬t?4 '4-4‫ ا‬W>74‫ ا‬A^+   F‫آ*ﺏ‬ ( Enter ‫)*ح‬$ \N> = ) ‫ة‬AEA‫ة ﺝ‬%])4 ‫ا *]ل‬ ‫ذاة‬-?4‫ آ‬pG(^*4‫ق ا‬%e ‫ي‬7*-E‫ة و‬%])4‫ ا‬pG(^‫ ﺕ‬1n‫آ‬ ‫م‬AV*(?4‫\ ا‬V4‫ ا‬ n{I Y‫ي آ‬7*-E ‫;ي‬4‫\ ا‬V4‫ ا‬1n‫آ‬

Selection.MoveRight

|G‫?)ﺕ‬4‫ ا‬F‫ﺡ‬74 ', 1?EJ‫ ا‬LM(4‫\ ا‬N> ‫ ﺕ(وي‬F]E%e

Selection.Tables

‫اول‬A#4‫ ا‬pG(^‫ء وﺕ‬g ‫ق إ‬%e ‫ي‬7*-E‫ول و‬A#4‫ ا‬1n‫آ‬

‫ف‬g*‫ اآ‬:^D?E '*4‫ى ا‬%IJ‫_ ا‬nv74‫ ا‬1$ AEA/4‫ ا‬Selection 1nD4‫ ا‬:O*?E‫و‬ . VB ‫ر‬%-?‫ ﺏ‬F]-O?4‫ة ا‬A+(?4‫)ت ا‬O$ pE%e 1+ ‫ أو‬، :()^‫ ﺏ‬M‫ﺕ‬G D$‫إ‬

'*4‫ات ا‬73V4‫ ا‬YG#(‫و ه' ﺕ‬%‫?آ‬4‫ ا‬F‫ آ*ﺏ‬LO/*4 F]E%e Y‡,‫' أن أ‬E‫ رأ‬1D4‫و‬ ‫ر‬%-$ Q4‫;هب إ‬4‫ ا‬L‫ ﺙ‬Q4‫و‬J‫ ا‬F]E%34‫' ا‬, ^Oi ?‫و آ‬%‫آ‬$ YD‫ ﺵ‬QO+ M?O/‫ ﺕ‬AE%‫ﺕ‬ d*‫*ﺏ‬D‫ ﺏ‬Word ‫م‬i ‫;ي‬4‫د ا‬7D4‫ة ا‬A‫ه‬g$‫ و‬NewMacros ‫ـ‬4‫ ا‬F-)‫*| ﺹ‬,‫ و‬VB . ‫ات‬73V4‫; ه;Œ ا‬G)^*4 ‫ع‬7>7?4‫ر ا‬7-$ G4 d J ‫ء‬u#4‫' ه;ا ا‬, F3]^4‫ ه;Œ ا‬A^+ _i7*4‫ ا‬Q4‫ إ‬%3‡$ Word ~$ %&‫ ﺏ‬p-O?4‫ ا‬Visual Basic ‫ر‬%-$ ‫ك أن‬%‫ أن أذآ‬Q( ‫  أ‬1D4‫و‬ F,>‫‡ ً إ‬E‫ أ‬:^D?G, Visual Basic FN4 1$ ‫ة‬%N{$ FV( ‫ إ‬7‫ ه‬$ .Visual Basic FN4 W$ ً $?‫ ﺕ‬Y/)‫ وأدوات آ? ﺕ‬Forms

H&%7‫"ء ا‬#‫ا‬ Word $‫ﻡ‬%& ‫رج‬%( ‫آو ﻡ‬% ‫ ا‬KLM‫ﺕ‬ .... ^+7>7?4 '‫ﺱﺱ‬J‫ر ا‬7-?4‫ ا‬7‫وه;ا ه‬ Visual Basic FNO‫ ﺏ‬L?{?4‫^ ا‬#$ %‫م ﺏ‬7]E ‫ أن‬1D?E _G‫ آ‬%I‫ أ‬Q^/?‫ ﺏ‬7‫وه‬ ‫ام‬AV*‫ اﺱ‬1$ ^^D?E $ 7‫ ت وه‬G&4‫اج ا‬%Ik FOG‫ﺱ‬7‫ آ‬Word ~$ %‫ام ﺏ‬AV*‫ﺏﺱ‬ . Word ~$ %&4 FOnM4‫ ا‬pG(^*4‫رات ا‬Ai . d?G?{*‫م ﺏ‬7] ‫ و‬%G‫اﺕ‬7)4‫ل ا‬b$ Q4‫ى إ‬%I‫ة أ‬%$ W‫ﺝ‬%^4‫ و‬FENO4 \G(‫ع ﺏ‬7>7?4‫ا‬ : ‫اﺕ‬L‫ ا‬$‫ﻡ‬%& ‫رة‬7‫ﺕ‬, YD‫ ﺵ‬QO+ M‫اﺝ‬%I‫ إ‬L‫ ﺙ‬YG?/4‫ ت ا‬G‫م ﺏﺱ*]&ل ﺏ‬7]E ‫ف‬7‫ ﺱ‬%G‫اﺕ‬7)4‫~ ا‬$ %‫ﺏ‬ . Word F-)‫' ﺹ‬, : '4*4‫~ آ‬$ %&O4 LG?{‫ ﺕ‬Y?/‫ ﺏ‬Li L‫ ﺙ‬Visual Basic ~$ %‫ ﺏ‬YGNg*‫ ﺏ‬Li -1

h(G4‫دوات و‬4 FG#$%&4‫ﺱ?ء ا‬J‫ ه' ا‬%?‫ﺡ‬J‫ن ا‬7O4‫?ت ﺏ‬OD4‫ ا‬: OO‫ﻡ‬ .Text Boxes '‫ ه‬txt ‫ ﺏـ‬Mn?‫أ أﺱ‬A&‫*' ﺕ‬4‫دوات ا‬J‫ وا‬، LG?{*4‫ ا‬1$ ‫ء‬u‫ﺝ‬ :4‫ وذ‬VB ‫وع‬%g$ YI‫ دا‬Word ~$ %&4 Reference W‫ﺝ‬%$ F,>‹‫ ﺏ‬Li -2 : '4*4‫آ‬ . References %*I‫ ا‬Project F?ni 1$ • Microsoft Word 10.0 Object Library 1+ §-‫ اﺏ‬L‫• ﺙ‬ ‫ إن‬1D4‫ و‬Word XP ~$ %&‫ص ﺏ‬V4‫ ا‬W‫ﺝ‬%?4‫ ا‬L‫ اﺱ‬7‫وه;ا ه‬ ‫ف‬7‫ ﺱ‬W‫ﺝ‬%?4‫ ا‬L‫‹ن اﺱ‬, Word 1$ ‫ى‬%I‫ أ‬FV( ‫م‬AV*(‫ ﺕ‬h^‫آ‬ L‫ ﺙ‬W‫ﺝ‬%?4‫م ا‬$‫ر أ‬G*I‫ ا‬F$a+ W‡‫ أن ﺕ‬LM?4‫ ا‬، ً aGOi _O*VE . OK \N‡‫ﺕ‬

: Click ‫ث‬A-4‫' ا‬, '4*4‫د ا‬7D4‫ ا‬X*‫ واآ‬btWord‫ر‬u4‫ص ﺏ‬V4‫د ا‬7D4‫*| ا‬,‫ ا‬-3 ' ~$ %&O4 '(Gn%4‫ ا‬1nD4‫ء ا‬g ‫إ‬ Dim WO As New Word.Application ' ~$ %&4‫)*| ا‬4 \], ‫م‬AV*(E ‫ف‬7‫;ي ﺱ‬4‫ وا‬، d4 F?Gi ‫م وإﺱ^د‬/4‫ع ا‬7^4‫ ا‬1$ 1n‫ء آ‬g ‫إ‬ Dim Word As Object Set Word = WO.WordBasic '‫رد‬74‫~ ا‬$ %‫*| ﺏ‬, Word.appshow ' ‫رغ‬, A^*($ |*, WO.Documents.Add '20 Q4‫\ إ‬V4‫ ا‬L#‫ ﺡ‬%GGN‫ﺕ‬ WO.Selection.Font.SizeBi = 20 '%3(4‫ﺱ\ ا‬74 %‫ﺵ‬t?4‫ذاة ا‬-$ WO.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter 'LG‫ﺡ‬%4‫ ا‬1?‫ﺡ‬%4‫ ا… ا‬L(‫&رة ﺏ‬+ F‫آ*ﺏ‬ WO.Selection.TypeText("LG‫ﺡ‬%4‫ ا‬1?‫ﺡ‬%4‫ ا… ا‬L(‫)"ﺏ‬ '‫ة‬AEA‫ة ﺝ‬%], Q4‫ا *]ل إ‬ WO.Selection.TypeParagraph

'%3(4‫ ا‬1G?G4 %‫ﺵ‬t?4‫ذاة ا‬-$ WO.Selection.ParagraphFormat.Alignment = wdAlignParagraphRight '´E‫*ر‬4‫ وا‬cO&?4‫ وا‬YG?/4‫ ا‬L‫ اﺱ‬dOOV*E ‫رة‬7‫)ﺕ‬4‫ ا‬  F‫آ*ﺏ‬ WO.Selection.TypeText ( " / AG(4‫ ا‬1$ h?O*‫ اﺱ‬Ai M ‫ات أ‬%GV4‫ ا‬F‫آ‬%‫ ﺵ‬%]‫_ "ﺕ‬ & txtName.Text & " Œ‫ر‬Ai ً NO&$ " & txtAmount.Text & " ‫م‬7E ', ً MG^‫_ " ﺝ‬ & txtDate.Text )

. F#G*^4‫ى ا‬%*4 ‫ر‬u4‫\ ا‬N>‫ ت وا‬G&4‫ ا‬YI‫ أد‬L‫~ ﺙ‬$ %&4‫ ا‬YGNg*‫ ﺏ‬Li -4 : FG4*4‫&رة ا‬/4‫ ا‬YEA/‫ ﺕ‬W$ ، VB.NET W$ d$‫ا‬AV*‫ اﺱ‬1D?E p‫(ﺏ‬4‫د ا‬7D4‫ ) ا‬: ‫ﻡ‬ Word = WO.WordBasic Q4‫ إ‬Set Word = WO.WordBasic . VB.NET ', ً aGOi W‫ﺝ‬%?4‫ إدراج ا‬F]E%e _O*V‫‡ ﺕ‬E‫ وأ‬، Set F?O‫ آ‬F4‫أي ﺏ‹زا‬

YG#(*‫ ﺏ‬Word ~$ %‫ ﺏ‬YI‫م دا‬7]‫ أن ﺕ‬:^D?E ً ]G(^‫ ً وﺕ‬Fi‫ د‬%b‫د أآ‬7‫ آ‬Y?/4‫و‬ YI‫ دا‬1$ ‫د‬7D4‫ (´ ه;ا ا‬L‫ ﺙ‬AE%‫;ي ﺕ‬4‫ ا‬YDg4‫ ﺏ‬M]G(^‫رة وﺕ‬7‫)ﺕ‬4‫ ا‬ ^4 ‫و‬%‫آ‬$ ', L?{?4‫ ا‬:#$ %‫د ﺏ‬7‫ آ‬YI‫ دا‬d/>‫ وو‬Word ~$ %&‫ ﺏ‬p-O?4‫ ا‬VB ‫ر‬%-$ |*)‫ ﺏ‬:#$ %‫م ﺏ‬7]E ‫ أن‬A/‫ أي ﺏ‬WO.Documents.Add ‫&رة‬+ A/‫ ﺏ‬VB . Word ', AEA‫ ﺝ‬A^*($ : P‫ ذ‬P RS‫ ﺕ‬%6‫ات ا‬4D‫وا‬ . Word ~$ %‫' ﺏ‬, ‫ة‬AEA‫ ﺝ‬F-)‫*| ﺹ‬,‫ ا‬-1 . NewMac d?‫ وﺱ‬AEA‫و ﺝ‬%‫آ‬$ YG#(‫ ﺕ‬FGO?+ YGNg*‫ ﺏ‬Li -2 FG>‫ا‬%*,‫ت ا‬$7O/$ ‫م‬AV*‫ اﺱ‬، :4 ‫وق‬%E ‫;ي‬4‫ ا‬YDg4‫رة ﺏ‬7‫)ﺕ‬4‫ ا‬F‫*ﺏ‬D‫ ﺏ‬Li -3 ‫م‬G]4‫ء وا‬3I‫وث أ‬A‫' ﺡ‬,a‫ ﺡول ﺕ‬، ´E‫*ر‬4‫ وا‬cO&?4‫ وا‬YG?/4‫ ا‬L‫ن اﺱ‬D$ : '4*4‫ آ‬1D*4‫ و‬، ~‫^ﺕ‬4‫د ا‬7D4‫ ا‬AG]/‫ وﺕ‬%G&D*‫م ﺏ‬7]G‫ ﺱ‬:4‫ن ذ‬J MOEA/*‫ﺏ‬ ‫رة ﺡ(ب‬7‫ﺕ‬, 1000 Œ‫ر‬Ai ً NO&$ A?-$ AG(4‫ ا‬1$ h?O*‫ اﺱ‬M ‫ات أ‬%GV4‫ ا‬F‫آ‬%‫ ﺵ‬%]‫ﺕ‬ .‫ي‬%{$ dG^‫ﺝ‬ . 2006 / 6 / 23 : ‫م‬a*‫´ اﺱ‬E‫ﺕر‬

‫‪ -4‬أو‪ FGO?+ _i‬ﺕ(‪ YG#‬ا‪?4‬آ‪%‬و ‪ ،‬ﺙ‪ L‬اذه‪ X‬إ‪ Q4‬أدوات ﺙ‪$ L‬آ‪%‬و ﺙ‪%-$ L‬ر‬ ‫‪. Visual Basic‬‬ ‫‪ -5‬اﺏ‪ 1+ §-‬ا‪k‬ﺝ‪%‬اء ‪ ', NewMac‬ﺹ)‪. NewMacros F-‬‬ ‫‪ Li -6‬ﺏ^(´ ا‪7D4‬د ‪ $‬ﺏ‪ 1G‬آ‪ Sub NewMac '*?O‬و ‪. End Sub‬‬ ‫‪ -7‬ا‪ |*,‬آ‪7‬د ا‪ ~$ %&4‬ا‪;4‬ي ‪ h?i‬ﺏ*{?‪ VB ', YGOi ;^$ d?G‬واﺱ*&‪A‬ل ا‪7D4‬د‬ ‫ا‪7?4‬ﺝ‪7‬د ﺏ‪&+ A/‬رة ‪ WO.Documents.Add‬ﺏ‪7D4‬د ا‪;4‬ي ‪ h?i‬ﺏ^(‪dV‬‬ ‫‪ 1$‬ا‪?4‬آ‪%‬و ‪.‬‬ ‫" & ‪" & txtName.text‬‬ ‫‪ -8‬اﺱ*&‪A‬ل آ‪ A?-$ F?O‬ﺏ‪&/4‬رة ا‪: FG4*4‬‬ ‫واﺱ*&‪A‬ل ا‪ 1000 Li%4‬ﺏ‪&/4‬رة ا‪" & txtAmount.text & " : FG4*4‬‬ ‫واﺱ*&‪A‬ل ‪ 2006/6/23‬ﺏ‪&/4‬رة ا‪" & txtDate.text & " : FG4*4‬‬ ‫‪ -9‬وﺵ‪ YN‬ا‪ ~$ %&4‬وﺱ*‪ A#‬ا‪^4‬ﺕ~ آ? ﺕ‪ h/i7‬ﺏ‪. \&‡4‬‬ ‫‪ 1$‬ا‪74‬ا>| ‪ ً /&e‬أن ا‪7D4‬د ا‪;4‬ي ‪ Word d&*DE‬ﺏ^)(‪ d‬أآ‪ %b‬ﺕ‪AG]/‬ا ً ‪ 1$‬ا‪7D4‬د‬ ‫ا‪;4‬ي ‪ ^?i‬ﺏ‪*D‬ﺏ*‪ d‬و‪ 7M, :4;4‬أآ‪ %b‬د‪ ً Fi‬وﺕ^(‪. ً ]G‬‬ ‫(‪%‬ﺕ  ‪:‬‬ ‫إن ‪ F?Gi‬ه;ا ا‪ ~$ %&4‬ﺕ&‪A‬و ﺝ‪ $A^+ FGO‬ﺕ*‪A+ W$ Y$/‬د آ&‪ %G‬ﺝ‪A‬ا ً ‪ 1$‬ا‪ G&4‬ت آ‪r‬ن‬ ‫ﺕ*‪A+i W$ Y$/‬ة ﺏ‪ G‬ت ‪7E‬ﺝ‪ A‬ﺏ‪ M‬ﺏ‪ G‬ت ¸ف ا‪a?/4‬ء ‪ :^D?G,‬ﺏ‪g$ F]E%3‬ﺏ‪FM‬‬ ‫اﺕ{ل ﺏ]‪A+‬ة ا‪ G&4‬ت واﺱ*‪aV‬ص ا‪ G&4‬ت ‪ M^$‬ﺙ‪ QO+ M>%+ L‬ه‪ F•G‬ﺹ)‪-‬ت‬ ‫‪ ', Word‬د‪A/$ pni‬ودة وﺏ*^(‪ pG‬را‪. Wn‬‬ ‫وأ(ا ً ‪......‬‬ ‫أرﺝ‪ 1$ 7‬ا… ا‪ 'O/4‬ا‪ %EA]4‬أن ‪7DE‬ن ه;ا ا‪7>7?4‬ع ‪ Ai‬أ‪,‬دك وﺡز ‪ QO+‬إ‪#+‬ﺏ‪:‬‬ ‫و‪A^+‬ه  أ‪ :^$ XOe‬إ د‪7+‬ة ﺹ‪ F-4‬ﺏ‪. pG,7*4‬‬ ‫‪[email protected]‬‬ ‫((‬ ‫َ‬ ‫ب]‬ ‫َ‬ ‫نَ‬ ‫ب]‬ ‫‪َP‬‬ ‫نَ‬ ‫ب ااْْ[[َ‪َ ِِ ََ%َ%‬‬ ‫ ‪ ،،‬ووَاَاََْْ ْ ُُْ ِِ`` ِ_ِ_ َرَر ]‬ ‫َ* ااْْ ُ ُْْﺱَﺱَِِ َ‬ ‫َ‪d‬مٌمٌ َََ*‬ ‫ن ‪َ ،،‬وَوﺱﺱَ‪d‬‬ ‫ُ َ‬ ‫‪ُLLِf‬‬ ‫ب ااْْ[ِ[ِ `"`"ِةِة ََ `‪ %`%‬یَیَ‪ِf‬‬ ‫‪َ P‬رَر ]‬ ‫ن َرَر ] ] َ‬ ‫)) ﺱُﺱُ‪َ %َ%َْhْh‬‬ ‫إ‪P‬‬ ‫و&‪6‬ب إ‪P‬‬ ‫&‪Lj6‬كك و&‪6‬ب‬ ‫أ&‪Lj6& k‬‬ ‫إ‪ F‬أ&‪k‬‬ ‫إ_ إ‪F‬‬ ‫أ‪ F‬إ_‬ ‫&‪ l1‬أ‪F‬‬ ‫و  ك &‪l1‬‬ ‫ا‪
l‬و  ك‬ ‫ﺱ‪ P&%h‬ا‪
l‬‬ ‫ﺱ‪P&%h‬‬ ‫‪((ِِ ْhْh`f‬‬ ‫‪]5‬‬ ‫تِ‬ ‫َ‬ ‫نَ‬ ‫ن`‬ ‫ِ‪`f%‬‬ ‫ﺹَْاْا ِ‪%‬‬ ‫‪َ 5‬وَوﺕَﺕََاَاﺹَ‬ ‫ﺹَْاْا ِ‪] ََْْ%ِ%‬‬ ‫ت َوَوﺕَﺕََاَاﺹَ‬ ‫‪ِ %َ%َِِ%`%`f‬‬ ‫ُا اا‪f‬‬ ‫ُا َوَوََ ِ ُِا‬ ‫ ‪oo‬ﻡَﻡَ‪ُMM‬ا‬ ‫ِ‪ F‬اا``‪ِKK‬یِی َ‬ ‫ِ‪ ،، ٍٍ ُْْ(ُ( H‬إإِ‪F‬‬ ‫ن ََ‪HِLL‬‬ ‫ن اا ِِ&ْ&َْ‪َ %َ%‬‬ ‫‪ِ ِِ ْf‬إِإ `‬ ‫)) ووَاَاْْ[َ[َ‪ْf‬‬