كود إضافة صفحة داخل الورد

تحتاج زرين كومند

صنوقي نص

Private Sub Command1_Click()

Dim x As Word.Document
Dim y As String, z As String

y = Text1.Text
z = Text2.Text

Set x = New Word.Document

With x.Application.Selection
.TypeText "الاسم الكامل" & " " & y
.TypeParagraph
.TypeParagraph
.TypeText "البرامج التي اعمل عليها" & " " & z
.TypeParagraph
.TypeParagraph
.TypeText "الفريق العربي للبرمجة"
End With

x.SaveAs "c:\arabteam "
x.Close

Set x = Nothing
End Sub