�ݺ�ߣ

‫ا‬ ‫ا‬ ‫ا‬
Visual Basic for Applications
With Microsoft Word
‫اد‬ ‫إ‬/
DDrr MMSSAA
drmsa1982@yahoo.com
‫ﻡ‬‫ﻡ‬::
‫أ‬ً ‫أ‬ً‫ﺏ‬ ‫ف‬ ‫ا‬ ‫أرﺝ‬ ،
‫ع‬ ‫ا‬ ‫ا‬ ‫ه‬ ‫ﺝ‬ ‫ﺕ‬ ‫أن‬ ‫ا‬ ‫ا‬ ‫ء‬ ‫ا‬.
‫ﺏ‬ ‫ض‬‫ﺏ‬ ‫درا‬ ‫ن‬ ‫ﺕ‬ ‫أن‬ ‫ع‬ ‫ا‬ ‫ا‬ ‫ه‬Visual Basic.

‫ول‬ ‫ا‬ ‫ء‬ ‫ا‬‫ول‬ ‫ا‬ ‫ء‬ ‫ا‬
‫ﻡ‬ ‫دا‬ ‫و‬ ‫آ‬ ‫ا‬ ‫إ‬ ‫ﻡ‬ ‫ﻡ‬‫ﻡ‬ ‫دا‬ ‫و‬ ‫آ‬ ‫ا‬ ‫إ‬ ‫ﻡ‬ ‫ﻡ‬WWoorrdd
‫و‬ ‫آ‬ ‫ا‬‫و‬ ‫آ‬ ‫ا‬MMaaccrroo::
‫ة‬ ‫واﺡ‬ ‫ة‬ ‫ات‬ ‫ا‬ ‫ﺕ‬ ‫ه‬.
‫ﺕ‬ ‫أن‬ ‫ﺕ‬ ‫أ‬ ‫ﺕ‬1000‫اﺱ‬ ‫ﺏ‬ ‫ﺕ‬ ‫ب‬ ‫ﺡ‬ ‫رة‬ ‫ﺕ‬
‫ا‬ ‫وا‬ ‫ا‬ً،ً ً ‫ﺡ‬ ‫و‬ ‫آ‬ ‫ا‬ ‫ن‬ ‫ه‬
‫ة‬ ‫واﺡ‬ ‫ة‬ ‫اﺕ‬ ‫ا‬ ‫ﺏ‬ ‫آ‬ ‫ا‬ ‫ات‬ ‫ا‬ ‫آ‬ ‫ﺕ‬ ‫ﺕ‬
‫وا‬ ‫ا‬ ‫ا‬.
‫و‬ ‫آ‬ ‫ﻡ‬ ‫ء‬ ‫إ‬ ‫ی‬‫و‬ ‫آ‬ ‫ﻡ‬ ‫ء‬ ‫إ‬ ‫ی‬‫ﻡ‬ ‫دا‬‫ﻡ‬ ‫دا‬WWoorrdd::
‫ن‬ ‫ك‬ ‫ه‬‫د‬ ‫ا‬ ‫ﺏ‬ ‫آ‬ ‫وا‬ ‫و‬ ‫آ‬ ‫ا‬ ‫ﺕ‬ ‫و‬ ‫ا‬ ‫و‬ ‫آ‬ ‫ا‬ ‫ء‬.
‫و‬ ‫ا‬ ‫ی‬ ‫ا‬‫و‬ ‫ا‬ ‫ی‬ ‫ا‬::‫و‬ ‫آ‬ ‫ا‬ ‫ء‬ ‫إ‬‫و‬ ‫آ‬ ‫ا‬ ‫ء‬ ‫إ‬‫ی‬‫ی‬‫ا‬‫ا‬::
1-‫ﺝ‬ ‫و‬ ‫آ‬ ‫ﺕ‬ ‫ﺙ‬ ‫و‬ ‫آ‬ ‫أ‬ ‫أدوات‬.
2-‫ا‬ ‫ﺡ‬ ، ‫ا‬ ‫ا‬ ‫ﺙ‬‫ﺏ‬ ‫ك‬ ‫ﺱ‬ ‫و‬ ‫آ‬ ‫ا‬ ‫ا‬ ‫ه‬ ‫ﺱ‬.
3-‫آ‬ ، ‫رة‬ ‫ا‬ ‫ﺵ‬ ‫ار‬ ‫ﺏ‬ ‫ﺱ‬ ‫ا‬ ‫ﺏ‬ ‫ر‬ ‫ر‬ ‫ﺡ‬ ‫ﺕ‬ ‫ف‬ ‫ﺱ‬
‫ﺝ‬ ‫أدوات‬ ‫ﺵ‬ ‫ف‬ ‫ﺱ‬‫ف‬ ‫إ‬ ‫أزرار‬ ‫ي‬ ‫ا‬
‫آ‬ ‫و‬ ‫آ‬ ‫وﺕ‬ ‫ف‬ ‫وإ‬:

‫ﺏ‬ ‫دا‬ ‫ن‬ ‫ا‬ ‫ﺏ‬ ‫م‬ ‫ﺕ‬ ‫ا‬ ‫ات‬ ‫ا‬ ‫ﺝ‬ ‫أن‬ ‫ا‬ ‫وه‬Word
‫ﺕ‬.
‫آ‬ ‫ف‬ ‫ﺱ‬ ‫أ‬ ‫ﺕ‬ ‫ت‬ ‫آ‬ ‫ا‬ ‫و‬ ‫وا‬ ‫ا‬ ‫أي‬ ‫ات‬ ‫ا‬ ‫ل‬ ‫وأ‬
‫رة‬ ‫ا‬ ‫ﺵ‬ ‫آ‬ ‫ﺡ‬.
4-‫رة‬ ‫ﺏ‬ ‫ﺏ‬"‫ا‬ ‫ﺏ‬‫ﺡ‬ ‫ا‬ ‫ﺡ‬ ‫ا‬"‫ﺡ‬ ‫وﺕ‬ ‫ﺏ‬ ‫ﺙ‬
‫إ‬ ‫ا‬20‫وﺱ‬ ‫ﺱ‬ ‫وﺕ‬‫ا‬.
5-‫ء‬ ‫ﺏ‬ ‫ا‬ ‫ا‬ ‫ا‬ ‫ا‬ ‫ف‬ ‫إ‬ ‫زر‬ ‫ﺏ‬ ‫ﺙ‬
‫و‬ ‫آ‬ ‫ا‬ ‫ﺕ‬.
6-‫ا‬ ‫ا‬ ‫ت‬ ‫آ‬ ‫ﺏ‬.
7-‫و‬ ‫آ‬ ‫ات‬ ‫وﺡ‬ ‫ﺙ‬ ‫و‬ ‫آ‬ ‫وا‬ ‫أدوات‬ ‫إ‬ ‫اذه‬.
8-‫ا‬‫ﺕ‬ ‫ا‬ ‫ﺙ‬ ، ‫ﺏ‬ ‫ي‬ ‫ا‬ ‫و‬ ‫آ‬ ‫ا‬ ‫اﺱ‬.
9-‫رة‬ ‫ﺏ‬ ‫آ‬ ‫ه‬ ‫ﺕ‬ ‫ف‬ ‫ﺱ‬"‫ﺡ‬ ‫ا‬ ‫ﺡ‬ ‫ا‬ ‫ا‬ ‫ﺏ‬"‫ﺏ‬20‫وﺱ‬
‫ا‬.
‫وﺕ‬ ‫ا‬ ‫ﺕ‬ ‫أن‬ ‫و‬ ، ‫ﺏ‬ ‫ﺕ‬ ‫ل‬ ‫د‬ ‫ا‬ ‫ه‬
‫ء‬ ‫ﺕ‬ ‫آ‬ ‫ات‬ ‫ﺏ‬ ‫وﺕ‬.

‫ا‬ ‫ی‬ ‫ا‬‫ا‬ ‫ی‬ ‫ا‬::‫و‬ ‫آ‬ ‫ا‬ ‫ء‬ ‫إ‬‫و‬ ‫آ‬ ‫ا‬ ‫ء‬ ‫إ‬‫د‬ ‫آ‬‫د‬ ‫آ‬VViissuuaall BBaassiicc::
1-‫ر‬ ‫ﺙ‬ ‫و‬ ‫آ‬ ‫وا‬ ‫أدوات‬ ‫إ‬ ‫اذه‬Visual Basic.
2-‫ة‬ ‫ﺙ‬Project‫ا‬Normal‫ﺙ‬Modules‫ﺙ‬NewMacros.
3-‫دوج‬ ‫ا‬ ‫ﺏ‬NewMacros‫ﺏ‬ ‫د‬ ‫آ‬ ‫ﺹ‬ ‫ﺕ‬ ‫ف‬ ‫ﺱ‬
‫ﺏ‬ ‫آ‬ ‫أو‬ ‫ﺏ‬ ‫ا‬ ‫و‬ ‫آ‬ ‫ا‬ ‫آ‬‫د‬ ‫آ‬ ‫ه‬VB
‫م‬‫اد‬ ‫أآ‬ ‫د‬ ‫أ‬ ‫ر‬ ‫ا‬ ‫ﺏ‬ ‫آ‬ ‫ﺡ‬ ‫إ‬VB.
4-‫اء‬ ‫ﺝ‬ ‫ا‬ ‫ﺏ‬ ‫ﺏ‬ ‫ا‬MyName‫آ‬:
Sub MyName()
Selection.TypeText (" ")
End Sub
5-‫ر‬ ‫ق‬ ‫ﺏ‬VB‫ـ‬ ‫ا‬ ‫إ‬ ‫ى‬ ‫أ‬ ‫ة‬ ‫دة‬ ‫وا‬Word.
6-‫ا‬ ‫ا‬ ‫ت‬ ‫آ‬ ‫ﺏ‬.
7-‫و‬ ‫آ‬ ‫ات‬ ‫وﺡ‬ ‫ﺙ‬ ‫و‬ ‫آ‬ ‫وا‬ ‫أدوات‬ ‫إ‬ ‫اذه‬.
8-‫اء‬ ‫ﺝ‬ ‫ا‬ ‫اﺱ‬ ‫أن‬ ‫ﺡ‬ ‫ﺕ‬ ‫ف‬ ‫ﺱ‬MyName‫ا‬ ‫و‬ ‫آ‬ ‫ا‬ ‫إ‬ ‫أ‬
‫ﺕ‬ ‫ا‬ ‫ﺙ‬ ‫ر‬ ‫ﺏ‬.

‫آ‬ ‫ه‬ ‫ﺕ‬ ‫ف‬ ‫ﺱ‬""‫ا‬ ‫ا‬ ‫ﺏ‬ ‫آ‬.
‫ا‬‫ا‬SSeelleeccttiioonn::
‫ﺡ‬‫ﺏ‬ ‫آ‬‫اء‬ ‫ﺝ‬ ‫ا‬‫ﺏ‬ ‫ا‬MyName‫ا‬ ‫اﺱ‬Selection
‫ام‬ ‫ﺱ‬ ‫ﺏ‬ ‫ي‬ ‫وا‬‫وه‬TypeText‫ا‬ ‫ﺏ‬ ‫ﺏ‬ ‫م‬ ‫وﺕ‬
‫ﺹ‬ ‫دا‬ ‫ا‬ ‫ﺏ‬ ‫ا‬ ‫ﺵ‬ ‫د‬ ‫وﺝ‬ ‫ن‬ ‫ا‬Word.
‫ا‬ ‫ق‬ ‫ﺏ‬ ‫ا‬ ‫ول‬ ‫وا‬Selection:
‫ام‬ ‫ﺱ‬ ‫ا‬‫ی‬ ‫ا‬Method
‫ا‬ ‫ا‬ ‫ﺏ‬ ‫آ‬‫ﺏ‬ ‫ا‬ ‫ﺵ‬Selection.TypeText
‫ة‬ ‫ﺝ‬ ‫ة‬ ‫ل‬ ‫ا‬= )‫ح‬Enter(Selection.TypeParagraph
‫ذاة‬ ‫آ‬ ‫ا‬ ‫ق‬ ‫ي‬ ‫و‬ ‫ة‬ ‫ا‬ ‫ﺕ‬ ‫آ‬Selection.ParagraphFormat
‫م‬ ‫ا‬ ‫ا‬ ‫آ‬ ‫ي‬ ‫ي‬ ‫ا‬ ‫ا‬ ‫آ‬Selection.Font.
‫ﺕ‬‫ا‬ ‫وي‬‫ﺕ‬ ‫ا‬ ‫ﺡ‬ ‫ا‬Selection.MoveRight
‫اول‬ ‫ا‬ ‫وﺕ‬ ‫ء‬ ‫إ‬ ‫ق‬ ‫ي‬ ‫و‬ ‫ول‬ ‫ا‬ ‫آ‬Selection.Tables

‫ا‬ ‫و‬Selection‫ف‬ ‫اآ‬ ‫ا‬ ‫ى‬ ‫ا‬ ‫ا‬ ‫ا‬
‫ر‬ ‫ﺏ‬ ‫ا‬ ‫ة‬ ‫ا‬ ‫ت‬ ‫أو‬ ، ‫ﺏ‬ ‫ﺕ‬ ‫إ‬VB.
‫رأ‬ ‫و‬‫ا‬ ‫ﺏ‬ ‫آ‬ ‫أ‬ ‫أن‬‫ا‬ ‫ات‬ ‫ا‬ ‫ﺕ‬ ‫ه‬ ‫و‬ ‫آ‬
‫ﺕ‬ ‫ﺕ‬‫و‬ ‫ا‬ ‫ا‬ ‫آ‬ ‫و‬ ‫آ‬ ‫ﺵ‬‫ﺙ‬‫ر‬ ‫إ‬ ‫ب‬ ‫ه‬ ‫ا‬
VB‫و‬‫ﺹ‬‫ـ‬ ‫ا‬NewMacros‫م‬ ‫ي‬ ‫ا‬ ‫د‬ ‫ا‬ ‫ة‬ ‫ه‬ ‫و‬Word‫ﺏ‬ ‫ﺏ‬
‫ات‬ ‫ا‬ ‫ه‬.
‫ا‬ ‫ا‬ ‫ه‬ ‫ا‬ ‫ه‬ ‫ا‬ ‫إ‬‫ع‬ ‫ا‬ ‫ر‬ ‫ء‬
‫ر‬ ‫أن‬ ‫ك‬ ‫أذآ‬ ‫أن‬ ‫أ‬ ‫و‬Visual Basic‫ﺏ‬ ‫ا‬Word
‫ة‬ ‫إ‬ ‫ه‬Visual Basic‫إ‬ ً ‫أ‬
Forms‫و‬‫ﺕ‬ ‫آ‬ ‫أدوات‬ً ‫ﺕ‬Visual Basic.

‫ا‬ ‫ء‬ ‫ا‬‫ا‬ ‫ء‬ ‫ا‬
‫ﻡ‬ ‫رج‬ ‫ﻡ‬ ‫و‬ ‫آ‬ ‫ا‬ ‫ﺕ‬‫ﻡ‬ ‫رج‬ ‫ﻡ‬ ‫و‬ ‫آ‬ ‫ا‬ ‫ﺕ‬WWoorrdd
‫ا‬ ‫وه‬‫ﺱ‬ ‫ﺱ‬ ‫ا‬ ‫ر‬ ‫ا‬ ‫ه‬....
‫ﺏ‬ ‫ا‬ ‫ﺏ‬ ‫م‬ ‫أن‬ ‫آ‬ ‫أ‬ ‫ﺏ‬ ‫وه‬Visual Basic
‫ام‬ ‫ﺱ‬ ‫ﺏ‬‫ﺏ‬Word‫ام‬ ‫اﺱ‬ ‫وه‬ ‫ت‬ ‫ا‬ ‫اج‬ ‫ﺱ‬ ‫آ‬
‫ا‬ ‫ا‬ ‫رات‬Word.
‫ﺏ‬ ‫ع‬ ‫ا‬‫ﺏ‬ ‫م‬ ‫و‬ ‫اﺕ‬ ‫ا‬ ‫ل‬ ‫إ‬ ‫ى‬ ‫أ‬ ‫ة‬ ‫ﺝ‬ ‫و‬.
‫اﺕ‬ ‫ا‬ ‫ﻡ‬‫اﺕ‬ ‫ا‬ ‫ﻡ‬::
‫رة‬ ‫ﺕ‬ ‫ﺵ‬ ‫اﺝ‬ ‫إ‬ ‫ﺙ‬ ‫ا‬ ‫ت‬ ‫ﺏ‬ ‫ل‬ ‫ﺱ‬ ‫ﺏ‬ ‫م‬ ‫ف‬ ‫ﺱ‬ ‫اﺕ‬ ‫ا‬ ‫ﺏ‬
‫ﺹ‬Word.
1-‫ﺏ‬ ‫ﺏ‬Visual Basic‫ﺏ‬ ‫ﺙ‬‫ﺕ‬‫آ‬:
‫ﻡ‬‫ﻡ‬::‫ن‬ ‫ﺏ‬ ‫ت‬ ‫ا‬‫ﺡ‬ ‫ا‬‫ه‬‫ا‬ ‫ء‬ ‫ﺱ‬ ‫ا‬‫و‬ ‫دوات‬
‫ﺏـ‬ ‫أﺱ‬ ‫أ‬ ‫ﺕ‬ ‫ا‬ ‫دوات‬ ‫وا‬ ، ‫ا‬ ‫ء‬ ‫ﺝ‬txt‫ه‬Text Boxes.
2-‫ﺝ‬ ‫ﺏ‬ReferenceWord‫دا‬‫وع‬VB‫وذ‬
‫آ‬:
•Project‫ا‬References.
•‫اﺏ‬ ‫ﺙ‬Microsoft Word 10.0 Object Library
‫ﺏ‬ ‫ص‬ ‫ا‬ ‫ﺝ‬ ‫ا‬ ‫اﺱ‬ ‫ه‬ ‫ا‬ ‫وه‬Word XP‫إن‬ ‫و‬
‫ى‬ ‫أ‬ ‫م‬ ‫ﺕ‬ ‫آ‬Word‫ف‬ ‫ﺱ‬ ‫ﺝ‬ ‫ا‬ ‫اﺱ‬ ‫ن‬
‫ﺙ‬ ‫ﺝ‬ ‫ا‬ ‫م‬ ‫أ‬ ‫ر‬ ‫ا‬ ‫ﺕ‬ ‫أن‬ ‫ا‬ ، ً
‫ﺕ‬OK.

3-‫ر‬ ‫ﺏ‬ ‫ص‬ ‫ا‬ ‫د‬ ‫ا‬ ‫ا‬btWord‫ث‬ ‫ا‬ ‫ا‬ ‫د‬ ‫ا‬ ‫واآ‬Click:
' ‫ا‬ ‫ا‬ ‫ء‬ ‫إ‬
Dim WO As New Word.Application
' ‫ا‬ ‫م‬ ‫ف‬ ‫ﺱ‬ ‫ي‬ ‫وا‬ ، ‫د‬ ‫وإﺱ‬ ‫م‬ ‫ا‬ ‫ع‬ ‫ا‬ ‫آ‬ ‫ء‬ ‫إ‬
Dim Word As Object
Set Word = WO.WordBasic
'‫رد‬ ‫ا‬ ‫ﺏ‬
Word.appshow
' ‫رغ‬
WO.Documents.Add
' ‫إ‬ ‫ا‬ ‫ﺡ‬ ‫ﺕ‬20
WO.Selection.Font.SizeBi = 20
' ‫ا‬ ‫ﺱ‬ ‫ﺵ‬ ‫ا‬ ‫ذاة‬
WO.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
' ‫ﺡ‬ ‫ا‬ ‫ﺡ‬ ‫ا‬ ‫ا‬ ‫ﺏ‬ ‫رة‬ ‫ﺏ‬ ‫آ‬
WO.Selection.TypeText ")‫ﺡ‬ ‫ا‬ ‫ﺡ‬ ‫ا‬ ‫ا‬ ‫ﺏ‬("
'‫ة‬ ‫ﺝ‬ ‫ة‬ ‫إ‬ ‫ل‬ ‫ا‬
WO.Selection.TypeParagraph

' ‫ا‬ ‫ﺵ‬ ‫ا‬ ‫ذاة‬
WO.Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
' ‫ر‬ ‫وا‬ ‫وا‬ ‫ا‬ ‫اﺱ‬ ‫رة‬ ‫ﺕ‬ ‫ا‬ ‫ﺏ‬ ‫آ‬
WO.Selection.TypeText ( " ‫ا‬ ‫اﺱ‬ ‫أ‬ ‫ات‬ ‫ا‬ ‫آ‬ ‫ﺵ‬ ‫ﺕ‬/ " _
& txtName.Text & " ‫ر‬ ً " & txtAmount.Text & " ‫م‬ ً ‫ﺝ‬ " _
& txtDate.Text )
4-‫ﺙ‬ ‫ا‬ ‫ﺏ‬‫ت‬ ‫ا‬ ‫أد‬‫و‬‫ى‬ ‫ر‬ ‫ا‬ ‫ا‬‫ا‬.
‫ﻡ‬‫ﻡ‬::‫ا‬ ‫اﺱ‬ ‫ﺏ‬ ‫ا‬ ‫د‬ ‫ا‬VB.NET،‫رة‬ ‫ا‬ ‫ﺕ‬‫ا‬:
Set Word = WO.WordBasic‫إ‬Word = WO.WordBasic
‫أي‬‫ﺏ‬‫آ‬ ‫زا‬Setً ‫ﺝ‬ ‫ا‬ ‫إدراج‬ ‫ﺕ‬ ‫وأ‬ ،VB.NET.
‫د‬ ‫أآ‬ ‫د‬ ‫آ‬ ‫و‬ً‫ﺏ‬ ‫دا‬ ‫م‬ ‫ﺕ‬ ‫أن‬ ً ‫وﺕ‬Word‫ﺏ‬
‫دا‬ ‫د‬ ‫ا‬ ‫ا‬ ‫ه‬ ‫ﺙ‬ ‫ﺕ‬ ‫ي‬ ‫ا‬ ‫ﺏ‬ ‫وﺕ‬ ‫رة‬ ‫ﺕ‬ ‫ا‬ ‫و‬ ‫آ‬
‫ر‬VB‫ﺏ‬ ‫ا‬Word‫ﺏ‬ ‫د‬ ‫آ‬ ‫دا‬ ‫وو‬‫ا‬
VB‫رة‬ ‫ﺏ‬WO.Documents.Add‫ﺏ‬ ‫ﺏ‬ ‫م‬ ‫أن‬ ‫ﺏ‬ ‫أي‬
‫ﺝ‬Word.
‫ذ‬ ‫ﺕ‬ ‫ا‬ ‫ات‬ ‫وا‬:
1-‫ﺏ‬ ‫ة‬ ‫ﺝ‬ ‫ﺹ‬ ‫ا‬Word.
2-‫وﺱ‬ ‫ﺝ‬ ‫و‬ ‫آ‬ ‫ﺕ‬ ‫ﺏ‬NewMac.
3-‫وق‬ ‫ي‬ ‫ا‬ ‫ﺏ‬ ‫رة‬ ‫ﺕ‬ ‫ا‬ ‫ﺏ‬ ‫ﺏ‬‫م‬ ‫اﺱ‬ ،‫ا‬ ‫ا‬ ‫ت‬
‫م‬ ‫وا‬ ‫ء‬ ‫أ‬ ‫وث‬ ‫ﺡ‬ ‫ﺕ‬ ‫ول‬ ‫ﺡ‬ ، ‫ر‬ ‫وا‬ ‫وا‬ ‫ا‬ ‫اﺱ‬ ‫ن‬
‫و‬ ، ‫ﺕ‬ ‫ا‬ ‫د‬ ‫ا‬ ‫وﺕ‬ ‫ﺏ‬ ‫م‬ ‫ﺱ‬ ‫ذ‬ ‫ن‬ ‫ﺏ‬‫آ‬:
‫ب‬ ‫ﺡ‬ ‫رة‬ ‫ﺕ‬
‫ر‬ ً ‫ا‬ ‫اﺱ‬ ‫أ‬ ‫ات‬ ‫ا‬ ‫آ‬ ‫ﺵ‬ ‫ﺕ‬1000
‫ي‬ ‫ﺝ‬.
‫م‬ ‫ﺱ‬ ‫ا‬ ‫ر‬ ‫ﺕ‬:23/6/2006.

4-‫ر‬ ‫ﺙ‬ ‫و‬ ‫آ‬ ‫ﺙ‬ ‫أدوات‬ ‫إ‬ ‫اذه‬ ‫ﺙ‬ ، ‫و‬ ‫آ‬ ‫ا‬ ‫ﺕ‬ ‫أو‬
Visual Basic.
5-‫اء‬ ‫ﺝ‬ ‫ا‬ ‫اﺏ‬NewMac‫ﺹ‬NewMacros.
6-‫آ‬ ‫ﺏ‬ ‫د‬ ‫ا‬ ‫ﺏ‬Sub NewMac‫و‬End Sub.
7-‫ﺏ‬ ‫ي‬ ‫ا‬ ‫ا‬ ‫د‬ ‫آ‬ ‫ا‬VB‫د‬ ‫ا‬ ‫ل‬ ‫واﺱ‬
‫ﺝ‬ ‫ا‬‫رة‬ ‫ﺏ‬ ‫د‬WO.Documents.Add‫ﺏ‬ ‫ي‬ ‫ا‬ ‫د‬ ‫ﺏ‬
‫و‬ ‫آ‬ ‫ا‬.
8-‫ا‬ ‫رة‬ ‫ﺏ‬ ‫آ‬ ‫ل‬ ‫اﺱ‬:"&" & txtName.text
‫ا‬ ‫ل‬ ‫واﺱ‬1000‫ا‬ ‫رة‬ ‫ﺏ‬:"&" & txtAmount.text
‫ل‬ ‫واﺱ‬23/6/2006‫ا‬ ‫رة‬ ‫ﺏ‬:"&" & txtDate.text
9-‫ﺏ‬ ‫ﺕ‬ ‫آ‬ ‫ﺕ‬ ‫ا‬ ‫وﺱ‬ ‫ا‬ ‫وﺵ‬.
‫ي‬ ‫ا‬ ‫د‬ ‫ا‬ ‫أن‬ ً ‫ا‬ ‫ا‬Word‫د‬ ‫ا‬ ً‫ا‬ ‫ﺕ‬ ‫أآ‬ ‫ﺏ‬
‫ي‬ ‫ا‬ً ‫وﺕ‬ ً ‫د‬ ‫أآ‬ ‫و‬ ‫ﺏ‬ ‫ﺏ‬.
‫ﺕ‬‫ﺕ‬::
‫ﺝ‬ ‫و‬ ‫ﺕ‬ ‫ا‬ ‫ا‬ ‫ه‬ ‫إن‬‫ن‬ ‫آ‬ ‫ت‬ ‫ا‬ ً‫ا‬ ‫ﺝ‬ ‫آ‬ ‫د‬ ‫ﺕ‬
‫ت‬ ‫ﺏ‬ ‫ﺏ‬ ‫ﺝ‬ ‫ت‬ ‫ﺏ‬ ‫ة‬ ‫ﺕ‬‫ف‬‫ﺏ‬ ‫ﺏ‬ ‫ء‬ ‫ا‬
‫ت‬ ‫ﺹ‬ ‫ه‬ ‫ﺙ‬ ‫ت‬ ‫ا‬ ‫ص‬ ‫واﺱ‬ ‫ت‬ ‫ا‬ ‫ة‬ ‫ﺏ‬ ‫ل‬ ‫ﺕ‬ ‫ا‬
Word‫د‬‫را‬ ‫وﺏ‬ ‫ودة‬.
ً‫ا‬ ‫وأ‬ً‫ا‬ ‫وأ‬............
‫وﺡ‬ ‫دك‬ ‫أ‬ ‫ع‬ ‫ا‬ ‫ا‬ ‫ه‬ ‫ن‬ ‫أن‬ ‫ا‬ ‫ا‬ ‫ا‬ ‫أرﺝ‬‫ﺏ‬ ‫إ‬ ‫ز‬
‫ﺏ‬ ‫ﺹ‬ ‫ة‬ ‫د‬ ‫إ‬ ‫أ‬ ‫ه‬ ‫و‬.
drmsa1982@yahoo.com
)))َ ِ َ َ ْ‫ا‬ ‫َب‬‫ر‬ ِ ِ ُْ َ ْ‫َا‬‫و‬ ، َ َِ‫ﺱ‬ْ ُ ْ‫ا‬ ََ ٌ‫م‬ َ‫ﺱ‬َ‫و‬ ، َ‫ن‬ ُِ َ‫ی‬ َ ِ‫ة‬ ِ ْ‫ا‬ ‫َب‬‫ر‬ َ َ‫ر‬ َ‫ن‬ َ ُْ‫ﺱ‬َ ِ َ َ ْ‫ا‬ ‫َب‬‫ر‬ ِ ِ ُْ َ ْ‫َا‬‫و‬ ، َ َِ‫ﺱ‬ْ ُ ْ‫ا‬ ََ ٌ‫م‬ َ‫ﺱ‬َ‫و‬ ، َ‫ن‬ ُِ َ‫ی‬ َ ِ‫ة‬ ِ ْ‫ا‬ ‫َب‬‫ر‬ َ َ‫ر‬ َ‫ن‬ َ ُْ‫ﺱ‬َ ِ َ َ ْ‫ا‬ ‫َب‬‫ر‬ ِ ِ ُْ َ ْ‫َا‬‫و‬ ، َ َِ‫ﺱ‬ْ ُ ْ‫ا‬ ََ ٌ‫م‬ َ‫ﺱ‬َ‫و‬ ، َ‫ن‬ ُِ َ‫ی‬ َ ِ‫ة‬ ِ ْ‫ا‬ ‫َب‬‫ر‬ َ َ‫ر‬ َ‫ن‬ َ ُْ‫ﺱ‬(((
‫أ‬ ‫إ‬ ‫إ‬ ‫أ‬ ‫ك‬ ‫و‬ ‫ا‬ ‫ﺱ‬‫أ‬ ‫إ‬ ‫إ‬ ‫أ‬ ‫ك‬ ‫و‬ ‫ا‬ ‫ﺱ‬‫أ‬ ‫إ‬ ‫إ‬ ‫أ‬ ‫ك‬ ‫و‬ ‫ا‬ ‫ﺱ‬‫إ‬ ‫ب‬ ‫و‬ ‫ك‬‫إ‬ ‫ب‬ ‫و‬ ‫ك‬‫إ‬ ‫ب‬ ‫و‬ ‫ك‬
)))ِ ْ ِ ‫ْا‬ َ‫ﺹ‬‫َا‬ َ‫ﺕ‬َ‫و‬ َ ْ ِ ‫ْا‬ َ‫ﺹ‬‫َا‬ َ‫ﺕ‬َ‫و‬ ِ‫ت‬ َ ِ ‫ا‬ ‫ا‬ ُِ َ َ‫و‬ ‫ا‬ َُ‫ﻡ‬ َ ‫ِی‬ ‫ا‬ ِ‫إ‬ ، ٍ ْ ُ َِ َ‫ن‬ َ ِْ ‫ا‬ ‫ِن‬‫إ‬ ِ ْ َ ْ‫َا‬‫و‬ِ ْ ِ ‫ْا‬ َ‫ﺹ‬‫َا‬ َ‫ﺕ‬َ‫و‬ َ ْ ِ ‫ْا‬ َ‫ﺹ‬‫َا‬ َ‫ﺕ‬َ‫و‬ ِ‫ت‬ َ ِ ‫ا‬ ‫ا‬ ُِ َ َ‫و‬ ‫ا‬ َُ‫ﻡ‬ َ ‫ِی‬ ‫ا‬ ِ‫إ‬ ، ٍ ْ ُ َِ َ‫ن‬ َ ِْ ‫ا‬ ‫ِن‬‫إ‬ ِ ْ َ ْ‫َا‬‫و‬ِ ْ ِ ‫ْا‬ َ‫ﺹ‬‫َا‬ َ‫ﺕ‬َ‫و‬ َ ْ ِ ‫ْا‬ َ‫ﺹ‬‫َا‬ َ‫ﺕ‬َ‫و‬ ِ‫ت‬ َ ِ ‫ا‬ ‫ا‬ ُِ َ َ‫و‬ ‫ا‬ َُ‫ﻡ‬ َ ‫ِی‬ ‫ا‬ ِ‫إ‬ ، ٍ ْ ُ َِ َ‫ن‬ َ ِْ ‫ا‬ ‫ِن‬‫إ‬ ِ ْ َ ْ‫َا‬‫و‬(((

�ݺ�ߣ

Vba course

Convert to study guideBETA

More Related Content

Vba course