+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] هام ارجوا المساعدة (/showthread.php?tid=1405)
هام ارجوا المساعدة - abo-asd - 31-12-13
السلام عليكم ورحمة الله وبركاته
انا عندي مشروع كذا :
الاسم :
العمر :
السنة الدراسية :
ملاحظات :
" وابيها تتصدر للوورد "
بس اذا كان لايوجد ملاحظات ابيها تتصدر للوورد وخانة الملاحظات فارغة .
وابي تكون في الصفحة 3 او 4 اشخاص على حسب ماتاخذ الصفحة
وشكراً
RE: هام ارجوا المساعدة - mamas1 - 31-12-13
ممكن شرح
"وابي تكون في الصفحة 3 او 4 اشخاص على حسب ماتاخذ الصفحة" ؟؟
إقرأ هذه المقالة
http://social.msdn.microsoft.com/Forums/vstudio/en-US/eef86087-22b7-499d-9d20-c25cc1b38289/vbnet-and-word-automation-how-to-write-to-word-and-have-normal-text-and-bold-text-in-the-one-line
RE: هام ارجوا المساعدة - essabar - 01-01-14
السلام عليكم
إليك متال على إرسال المعلومات إل EXCEL
Private Sub Command11_Click()
Dim DExcel As Object
Dim ColHeader As Variant
Dim intRow As Integer
Dim intcol As Integer
Set DExcel = CreateObject("Excel.Application")
ColHeader = Array("A", "B", "C", "D", "E", "F", "G", "H")
DExcel.DisplayAlerts = False
DExcel.Workbooks.Add
DExcel.Sheets("Feuil1").Select
DExcel.Sheets("Feuil1").Name = "LISTE DES PARENTS"
With msflexgrid
For intRow = 0 To .Rows - 1
For intcol = 0 To .Cols - 1
DExcel.Range(ColHeader(intcol) & (intRow + 1)).BorderAround Color:=vbBlack
DExcel.Range(ColHeader(intcol) & (intRow + 1)) = .TextMatrix(intRow, intcol)
Next intcol
Next intRow
End With
DExcel.ActiveWorkbook.Close True, "C:\MonFichier.xls"
DExcel.Quit
End Sub
Dim DExcel As Object
Dim ColHeader As Variant
Dim intRow As Integer
Dim intcol As Integer
Set DExcel = CreateObject("Excel.Application")
ColHeader = Array("A", "B", "C", "D", "E", "F", "G", "H")
DExcel.DisplayAlerts = False
DExcel.Workbooks.Add
DExcel.Sheets("Feuil1").Select
DExcel.Sheets("Feuil1").Name = "LISTE DES PARENTS"
With msflexgrid
For intRow = 0 To .Rows - 1
For intcol = 0 To .Cols - 1
DExcel.Range(ColHeader(intcol) & (intRow + 1)).BorderAround Color:=vbBlack
DExcel.Range(ColHeader(intcol) & (intRow + 1)) = .TextMatrix(intRow, intcol)
Next intcol
Next intRow
End With
DExcel.ActiveWorkbook.Close True, "C:\MonFichier.xls"
DExcel.Quit
End Sub