حامل المسك قام بنشر يوليو 10, 2021 مشاركة قام بنشر يوليو 10, 2021 السلام علكيم ورحمة الله وبركاته،، وعشر مباركات،، وفقكم الله لجمال حسن اغتنامها وتقبل منكم صالح الأعمال،، سلمكم الله لدي برنامج مرفق بفضل الله ثم بفضل أستاذتنا في هذا المنتدى العامر.. عُمل كود إرسال الحقول إلى برنامج الوورد،، كرما أريد تعديل على الكود بحيث يرسل مجموعة كاملة وليس سجلا واحدا فمثلا يوجد في النموذج قائمة منسدلة في حال اختيار المجموعة يتولى البرنامج إرسالها للوورد المرفق كل سجل في صفحة مستقلة.. ودونكم المثال سلمكم الله،، البرنامج.rar رابط هذا التعليق شارك More sharing options...
أبو إبراهيم الغامدي قام بنشر يوليو 11, 2021 مشاركة قام بنشر يوليو 11, 2021 (معدل) 14 ساعات مضت, حامل المسك said: السلام علكيم ورحمة الله وبركاته،، وعليكم السلام ورحمة الله وبركاته.. 14 ساعات مضت, حامل المسك said: وعشر مباركات،، وفقكم الله لجمال حسن اغتنامها وتقبل منكم صالح الأعمال،، اللهم آمين.. 14 ساعات مضت, حامل المسك said: كرما أريد تعديل على الكود بحيث يرسل مجموعة كاملة وليس سجلا واحدا فمثلا يوجد في النموذج قائمة منسدلة في حال اختيار المجموعة يتولى البرنامج إرسالها للوورد المرفق كل سجل في صفحة مستقلة.. هذي طريقتي،، أرجو أن ترضيَك.. البرنامج.zip تم تعديل يوليو 11, 2021 بواسطه أبو إبراهيم الغامدي تعديل في تصميم المرفق 3 رابط هذا التعليق شارك More sharing options...
حامل المسك قام بنشر يوليو 11, 2021 الكاتب مشاركة قام بنشر يوليو 11, 2021 سلمت كتب الله لك الأجر.. لم يعمل معي ملف الوورد؟ رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يوليو 11, 2021 مشاركة قام بنشر يوليو 11, 2021 فكرة السؤال هي نفس فكرة هذا الموضوع والحل بإذن الله تعديل كود الزر 11 إلى: Private Sub أمر11_Click() Dim X As Object Dim objWord As Object Set X = CreateObject("Word.Application") While Me.CurrentRecord < Me.Recordset.RecordCount If Me.Groupx = Me.grooup Then X.Documents.Open CurrentProject.Path & "\asdf.docx" X.Visible = True X.ActiveDocument.Bookmarks("asx").Select X.selection.InsertAfter NewNamee Dim rs As DAO.Recordset, NewName As String, noobBB As String, NewNamex As String Set rs = CurrentDb.OpenRecordset("SELECT WAdecisA.NewNamee, WBRation.NewName FROM WAdecisA INNER JOIN WBRation ON WAdecisA.noa = WBRation.noob WHERE WAdecisA.noa= " & noa & ";", dbOpenSnapshot) With rs .MoveLast .MoveFirst For i = 1 To .RecordCount NewName = NewName & IIf(NewName = "", "", vbCrLf) & Nz(rs.Fields(1).Value, "") .MoveNext Next i End With X.ActiveDocument.Bookmarks("bc").Select X.selection.InsertAfter NewName NewName = "" Set rs = CurrentDb.OpenRecordset("SELECT WAdecisA.NewNamee, WCdecisQ.noobBB , WCdecisQ.NewNamex FROM WAdecisA INNER JOIN WCdecisQ ON WAdecisA.noa = WCdecisQ.nooc WHERE WAdecisA.noa= " & noa & ";", dbOpenSnapshot) With rs .MoveLast .MoveFirst For i = 1 To .RecordCount noobBB = noobBB & IIf(noobBB = "", "", vbCrLf) & Nz(rs.Fields(1).Value, "") NewNamex = NewNamex & IIf(NewNamex = "", "", vbCrLf) & Nz(rs.Fields(2).Value, "") .MoveNext Next i End With X.ActiveDocument.Bookmarks("bzd").Select X.selection.InsertAfter NewNamex NewNamex = "" X.ActiveDocument.saveas2 CurrentProject.Path & "\" & noa & "_" & Format(Now(), "dd_mm_yyyy_hh_mm_AM/PM") & ".docx" X.ActiveDocument.Close savechanges:=0 End If DoCmd.GoToRecord Record:=acNext Wend DoCmd.GoToRecord Record:=acFirst X.Quit Set X = Nothing MsgBox "done" End Sub لاحظ أمر حفظ الملف باسم جديد هو رقم القرار وتاريخ ووقت التصدير وتفريغ المتغيرات التي تحتوي على سجلا النموذج الفرعي شرط اختبار المجموعة في السجل الحالي وأنصح بوضع كلمة الأولى مثلا كقيمة افتراضية default value للقائمة الخاصة بالمجموعات بالتوفيق رابط هذا التعليق شارك More sharing options...
أبو إبراهيم الغامدي قام بنشر يوليو 11, 2021 مشاركة قام بنشر يوليو 11, 2021 3 ساعات مضت, حامل المسك said: لم يعمل معي ملف الوورد؟ أهلا بك.. لم تذكر السبب! لحل الإشكال قم بتغيير لاحقة الملف إلى (mht) ليصبح اسم الملف مثلا (Group.mht)، ثم استخدم فتح بواسطة، ثم اختر برنامج (Word).. ::: قد يكون هذا الأسلوب غريبا بعض الشيء لكنه معتمد من قبل Microsoft! ::: الهدف من تنسيق المستند بهذه الصورة هو إبعادك عن تنسيقات Word الطويلة! <أرجو من الزملاء التعليق عند تجربة المثال> إليك التعديل.. البرنامج.zip رابط هذا التعليق شارك More sharing options...
حامل المسك قام بنشر يوليو 11, 2021 الكاتب مشاركة قام بنشر يوليو 11, 2021 (معدل) 4 ساعات مضت, أ / محمد صالح said: فكرة السؤال هي نفس فكرة هذا الموضوع والحل بإذن الله تعديل كود الزر 11 إلى: Private Sub أمر11_Click() Dim X As Object Dim objWord As Object Set X = CreateObject("Word.Application") While Me.CurrentRecord < Me.Recordset.RecordCount If Me.Groupx = Me.grooup Then X.Documents.Open CurrentProject.Path & "\asdf.docx" X.Visible = True X.ActiveDocument.Bookmarks("asx").Select X.selection.InsertAfter NewNamee Dim rs As DAO.Recordset, NewName As String, noobBB As String, NewNamex As String Set rs = CurrentDb.OpenRecordset("SELECT WAdecisA.NewNamee, WBRation.NewName FROM WAdecisA INNER JOIN WBRation ON WAdecisA.noa = WBRation.noob WHERE WAdecisA.noa= " & noa & ";", dbOpenSnapshot) With rs .MoveLast .MoveFirst For i = 1 To .RecordCount NewName = NewName & IIf(NewName = "", "", vbCrLf) & Nz(rs.Fields(1).Value, "") .MoveNext Next i End With X.ActiveDocument.Bookmarks("bc").Select X.selection.InsertAfter NewName NewName = "" Set rs = CurrentDb.OpenRecordset("SELECT WAdecisA.NewNamee, WCdecisQ.noobBB , WCdecisQ.NewNamex FROM WAdecisA INNER JOIN WCdecisQ ON WAdecisA.noa = WCdecisQ.nooc WHERE WAdecisA.noa= " & noa & ";", dbOpenSnapshot) With rs .MoveLast .MoveFirst For i = 1 To .RecordCount noobBB = noobBB & IIf(noobBB = "", "", vbCrLf) & Nz(rs.Fields(1).Value, "") NewNamex = NewNamex & IIf(NewNamex = "", "", vbCrLf) & Nz(rs.Fields(2).Value, "") .MoveNext Next i End With X.ActiveDocument.Bookmarks("bzd").Select X.selection.InsertAfter NewNamex NewNamex = "" X.ActiveDocument.saveas2 CurrentProject.Path & "\" & noa & "_" & Format(Now(), "dd_mm_yyyy_hh_mm_AM/PM") & ".docx" X.ActiveDocument.Close savechanges:=0 End If DoCmd.GoToRecord Record:=acNext Wend DoCmd.GoToRecord Record:=acFirst X.Quit Set X = Nothing MsgBox "done" End Sub لاحظ أمر حفظ الملف باسم جديد هو رقم القرار وتاريخ ووقت التصدير وتفريغ المتغيرات التي تحتوي على سجلا النموذج الفرعي شرط اختبار المجموعة في السجل الحالي وأنصح بوضع كلمة الأولى مثلا كقيمة افتراضية default value للقائمة الخاصة بالمجموعات بالتوفيق ممتاز ورائع هل يمكن أن تكون في ملف وورد واحد،، يشمل جميع القرارات كما يحدث في دمج المراسلات،، ونعم هي نفس فكرة الموضوع السابق،، وأحببت فتح موضوع جديد حتى لا يكون أكثر من موضوع في موضوع واحد،، **اجتهاد🙄** 2 ساعات مضت, أبو إبراهيم الغامدي said: أهلا بك.. لم تذكر السبب! لحل الإشكال قم بتغيير لاحقة الملف إلى (mht) ليصبح اسم الملف مثلا (Group.mht)، ثم استخدم فتح بواسطة، ثم اختر برنامج (Word).. ::: قد يكون هذا الأسلوب غريبا بعض الشيء لكنه معتمد من قبل Microsoft! ::: الهدف من تنسيق المستند بهذه الصورة هو إبعادك عن تنسيقات Word الطويلة! <أرجو من الزملاء التعليق عند تجربة المثال> إليك التعديل.. البرنامج.zip 246.6 kB · 3 downloads حاولت التطبيق لم تضبط معي.. ربما لم أعرف استخراج الملف المطلوب تم تعديل يوليو 11, 2021 بواسطه حامل المسك رابط هذا التعليق شارك More sharing options...
أبو إبراهيم الغامدي قام بنشر يوليو 11, 2021 مشاركة قام بنشر يوليو 11, 2021 5 دقائق مضت, حامل المسك said: حاولت التطبيق لم تضبط معي.. ربما لم أعرف استخراج الملف المطلوب أهلا بك.. المتوقع منك: أنك فتحت قاعدة البيانات المثال وضغطت على (تصدير الفرارات) وذهبت إلى مجلد قاعدة المثال وتفتح الملف المصدر بورد! إذا لم يفتح فهناك رسالة بالتأكيد! أنا أحتاج إلى هذه الرسالة لأعالج الخطأ.. إذا فتح ملف المثال بشكل سليم؛ ولكن لم تستطع التطبيق على قاعدة البيانات الأصلية، فهذا أمر يمكن مناقشته فيما بعد.. رابط هذا التعليق شارك More sharing options...
حامل المسك قام بنشر يوليو 11, 2021 الكاتب مشاركة قام بنشر يوليو 11, 2021 أنا فتحت ملف الوورد ولم أجد البيانات وجدت سجلا واحدا بقية الصفحات فارغة،، رابط هذا التعليق شارك More sharing options...
أبو إبراهيم الغامدي قام بنشر يوليو 11, 2021 مشاركة قام بنشر يوليو 11, 2021 14 دقائق مضت, حامل المسك said: أنا فتحت ملف الوورد ولم أجد البيانات وجدت سجلا واحدا بقية الصفحات فارغة،، هذا ملف وورد جرب فتحه ببرنامج وورد الذي لديك الأولى.doc رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يوليو 11, 2021 مشاركة قام بنشر يوليو 11, 2021 شكرا أخي @أبو إبراهيم الغامديهذا الذي أفعله في برمجة الويب كتابة التنسيق بلغة html ووضع البيانات القادمة من الاستعلامات في أماكنها لكن طريقة العلامات المرجعية bookmarks المقترحة من صاحب السؤال هي التي فرضت علينا التعامل معها لحل مشكلته وإذا سمحت لي فالمشكلة في الكود في المرفق في هذه المشاركة Open Me.Groupx & ".mht" For Output As #1 وتغييره إلى Open CurrentProject.Path & "\" & Me.Groupx & ".doc" For Output As #1 ما أجمل الربط بين مهارات البرمجة في كل مجال 1 رابط هذا التعليق شارك More sharing options...
حامل المسك قام بنشر يوليو 11, 2021 الكاتب مشاركة قام بنشر يوليو 11, 2021 (معدل) 26 دقائق مضت, أ / محمد صالح said: شكرا أخي @أبو إبراهيم الغامديهذا الذي أفعله في برمجة الويب كتابة التنسيق بلغة html ووضع البيانات القادمة من الاستعلامات في أماكنها لكن طريقة العلامات المرجعية bookmarks المقترحة من صاحب السؤال هي التي فرضت علينا التعامل معها لحل مشكلته وإذا سمحت لي فالمشكلة في الكود في المرفق في هذه المشاركة Open Me.Groupx & ".mht" For Output As #1 وتغييره إلى Open CurrentProject.Path & "\" & Me.Groupx & ".doc" For Output As #1 ما أجمل الربط بين مهارات البرمجة في كل مجال ما أجمل حديث العظماء،، زادكم الله من واسع فضله ووفقكم ورعاكم،، عدلت الكود وعمل بشكل جيد،، لكن هذا يتطلب العمل على وضع التنسيقات في الكود، وعلى ذلك ربما أحتاج مزيد من الشرح عن الكود لأني سأضعه على الملف الرئيس وبه عدة بيانات في ملف الوورد منها ما هو ثابت ومنها ما هو متغير، ولا غنى عنكم يا كرام،، 1 ساعه مضت, حامل المسك said: ممتاز ورائع هل يمكن أن تكون في ملف وورد واحد،، يشمل جميع القرارات كما يحدث في دمج المراسلات،، وهل بالإمكان التعديل على كود ا. محمد ليكون في ملف واحد،، تم تعديل يوليو 11, 2021 بواسطه حامل المسك 1 رابط هذا التعليق شارك More sharing options...
أبو إبراهيم الغامدي قام بنشر يوليو 11, 2021 مشاركة قام بنشر يوليو 11, 2021 2 ساعات مضت, أ / محمد صالح said: فالمشكلة في الكود في المرفق في هذه المشاركة شكرا لك أ.محمد.. ولا حرمنا من مداخلات القيمة.. 1 ساعه مضت, حامل المسك said: عدلت الكود وعمل بشكل جيد،، لكن هذا يتطلب العمل على وضع التنسيقات في الكود، وعلى ذلك ربما أحتاج مزيد من الشرح عن الكود لأني سأضعه على الملف الرئيس وبه عدة بيانات في ملف الوورد منها ما هو ثابت ومنها ما هو متغير، ولا غنى عنكم يا كرام،، الحمدلله.. إذا كان لديك قالب معين فيمكن أن نعيد تصميمه من داخل أكسس.. إن أردت.. 1 رابط هذا التعليق شارك More sharing options...
حامل المسك قام بنشر يوليو 11, 2021 الكاتب مشاركة قام بنشر يوليو 11, 2021 الفكرة رائعة،، فإن أمكن شرح الكود لأن القالب يمكن يعدل مع الوقت.. كذلك هل بالإمكان إذا كان في القالب مربع نص أن يستخدم معه هذه الطريقة للكتابة بداخله،،؟؟، 1 رابط هذا التعليق شارك More sharing options...
حامل المسك قام بنشر يوليو 11, 2021 الكاتب مشاركة قام بنشر يوليو 11, 2021 7 ساعات مضت, أ / محمد صالح said: والحل بإذن الله تعديل كود الزر 11 إلى: لعل التعديل على كود أ. محمد يمكن من سهولة التعامل مع ملف الوورد ووضع التنسيقات المناسبة،، وإذا كان العمل على ما تفضل به المبدع أبو إبراهيم الغامدي يمكن التحكم في الخط وتباعد الأسطر مثلا ونحو ذلك فذلك رائع،، وإن أمكن الجمع بين الأمرين نور على نور.. سلمتم يا كرام،، 1 رابط هذا التعليق شارك More sharing options...
أبو إبراهيم الغامدي قام بنشر يوليو 11, 2021 مشاركة قام بنشر يوليو 11, 2021 منذ ساعه, حامل المسك said: الفكرة رائعة،، فإن أمكن شرح الكود لأن القالب يمكن يعدل مع الوقت.. الشفرة تعتمد على ثلاثة وسوم من وسوم HTML فقط والباقي هي بنية المسند.. الأول وسم العنوان <H1....H6> مثله مثل عناوين وورد الثاني وسم الفقرة النصية <P> مثله مثل فقرات وورد الثالث وسم الترقيم التلقائي: الترقيم النقطي <UL>، والترقيم العددي <OL> مثله مثل ترقيم وورد منذ ساعه, حامل المسك said: كذلك هل بالإمكان إذا كان في القالب مربع نص أن يستخدم معه هذه الطريقة للكتابة بداخله،،؟؟، يمكنك إنشاء مربع النص من داخل أكسس والكتابة داخله! ولست بحاجة إلى تنسيق ذلك مسبقا في وورد!! منذ ساعه, حامل المسك said: وإذا كان العمل على ما تفضل به المبدع أبو إبراهيم الغامدي يمكن التحكم في الخط وتباعد الأسطر مثلا ونحو ذلك فذلك رائع،، يمكن عمل ذلك بكل سهولة وأكثر!!! كما يمكن إعادة تحرير المستند المصدر عن طريق محرر نصوص تقليدي (TEX Editor)!! هذى صورة المستند في محرر النصوص التقليدي.. <html dir=rtl> <body style='font-family: "ATraditional Arabic", calibri; font-size:16pt;font-weight:bold'> <h2 style='page-break-before:always'>بسم الله الرحمن الرحيم</h2> <p><span>الموضوع: </span>تكليف الموظف (م8)/ فهد سعد محاسب رئيس اللجنة العليا </p> <h3 style='font-size:16pt'>بناءً على:</h3> <ul > <li style='color:blue'>بموجب صلاحية المدير </li> <li style='color:blue'>وبناء على المصلحة رقم .... </li> <li style='color:blue'>وبناء على ما تقتضيه مصلحة العمل. </li> </ul> <h3 style='font-size:16pt'>تقرر ما يلي:</h3> <ol > <li style='color:maroon'>استمرار تكليف علي </li> <li style='color:maroon'>يعمل بهذا القرار اعتبارًا من تاريخ 24/04/1442هـ ولمدة عام </li> <li style='color:maroon'>يبلغ هذا القرار لمن يلزم لاعتماده وتنفيذه .</li> </ol> <h2 style='page-break-before:always'>بسم الله الرحمن الرحيم</h2> <p><span>الموضوع: </span>تكليف الموظف م(11)/ عيسى العيسى موظف الإدارة العليا </p> <h3 style='font-size:16pt'>بناءً على:</h3> <ul > <li style='color:blue'>بموجب صلاحية المدير </li> <li style='color:blue'>وبناء على المصلحة رقم .... </li> <li style='color:blue'>وبناء على ما تقتضيه مصلحة العمل. </li> </ul> <h3 style='font-size:16pt'>تقرر ما يلي:</h3> <ol > <li style='color:maroon'>استمرار تكليف علي </li> <li style='color:maroon'>يعمل بهذا القرار اعتبارًا من تاريخ 24/04/1442هـ ولمدة عام </li> <li style='color:maroon'>يبلغ هذا القرار لمن يلزم لاعتماده وتنفيذه .</li> </ol> <h2 style='page-break-before:always'>بسم الله الرحمن الرحيم</h2> <p><span>الموضوع: </span>تكليف الموظف نور الأنور مشرف الأرشيف </p> <h3 style='font-size:16pt'>بناءً على:</h3> <ul > <li style='color:blue'>بموجب صلاحية المدير </li> <li style='color:blue'>وبناء على المصلحة رقم .... </li> <li style='color:blue'>وبناء على ما تقتضيه مصلحة العمل. </li> </ul> <h3 style='font-size:16pt'>تقرر ما يلي:</h3> <ol > <li style='color:maroon'>استمرار تكليف علي </li> <li style='color:maroon'>يعمل بهذا القرار اعتبارًا من تاريخ 24/04/1442هـ ولمدة عام </li> <li style='color:maroon'>يبلغ هذا القرار لمن يلزم لاعتماده وتنفيذه .</li> </ol> </body> </html> الجدير بالذكر أن التنسيقة المعنية بالانتقال إلى الصفحة التالية موجودة ضمن الوسم التالي <h2 style='page-break-before:always'>بسم الله الرحمن الرحيم</h2> آمل أن لا تفكر في استخدام الوورد مجدداً.. 1 رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يوليو 11, 2021 مشاركة قام بنشر يوليو 11, 2021 بالنسبة لموضوع إنشاء أكثر من صفحة فلا يمكن مع استعمال العلامات المرجعية bookmarks ولكن يمكننا التحايل على الأمر بدمج الملفات التي يتم إنشاؤها بالكود في ملف واحد باسم المجموعة ويتم تخزينه في مجلد باسم (المجموعات) يجب إنشاؤه في نفس مجلد البرنامج وهذا هو الكود بعد التعديل Private Sub أمر11_Click() Dim X As Object Dim objWord As Object Set X = CreateObject("Word.Application") While Me.CurrentRecord < Me.Recordset.RecordCount If Me.Groupx = Me.grooup Then X.Documents.Open CurrentProject.Path & "\asdf.docx" X.Visible = True X.ActiveDocument.Bookmarks("asx").Select X.Selection.InsertAfter NewNamee Dim rs As DAO.Recordset, NewName As String, noobBB As String, NewNamex As String Set rs = CurrentDb.OpenRecordset("SELECT WAdecisA.NewNamee, WBRation.NewName FROM WAdecisA INNER JOIN WBRation ON WAdecisA.noa = WBRation.noob WHERE WAdecisA.noa= " & noa & ";", dbOpenSnapshot) With rs .MoveLast .MoveFirst For i = 1 To .RecordCount NewName = NewName & IIf(NewName = "", "", vbCrLf) & Nz(rs.Fields(1).Value, "") .MoveNext Next i End With X.ActiveDocument.Bookmarks("bc").Select X.Selection.InsertAfter NewName NewName = "" Set rs = CurrentDb.OpenRecordset("SELECT WAdecisA.NewNamee, WCdecisQ.noobBB , WCdecisQ.NewNamex FROM WAdecisA INNER JOIN WCdecisQ ON WAdecisA.noa = WCdecisQ.nooc WHERE WAdecisA.noa= " & noa & ";", dbOpenSnapshot) With rs .MoveLast .MoveFirst For i = 1 To .RecordCount noobBB = noobBB & IIf(noobBB = "", "", vbCrLf) & Nz(rs.Fields(1).Value, "") NewNamex = NewNamex & IIf(NewNamex = "", "", vbCrLf) & Nz(rs.Fields(2).Value, "") .MoveNext Next i End With X.ActiveDocument.Bookmarks("bzd").Select X.Selection.InsertAfter NewNamex NewNamex = "" X.ActiveDocument.saveas2 CurrentProject.Path & "\" & noa & "_" & Format(Now(), "dd_mm_yyyy_hh_mm_AM/PM") & ".docx" X.ActiveDocument.Close SaveChanges:=0 End If DoCmd.GoToRecord Record:=acNext Wend DoCmd.GoToRecord Record:=acFirst strFile = Dir(CurrentProject.Path & "\*.docx", vbNormal) Set objNewDoc = X.Documents.Add While strFile <> "" And strFile <> "asdf.docx" Set objDoc = X.Documents.Open(FileName:=CurrentProject.Path & "\" & strFile) objDoc.Range.Copy objNewDoc.Activate X.Selection.Paste objDoc.Close SaveChanges:=0 Kill CurrentProject.Path & "\" & strFile strFile = Dir() If strFile <> "" And strFile <> "asdf.docx" Then X.Selection.InsertBreak Type:=1 End If Wend X.ActiveDocument.saveas2 CurrentProject.Path & "\المجموعات\" & grooup & "_" & Format(Now(), "dd_mm_yyyy_hh_mm_AM/PM") & ".docx" X.Quit Set X = Nothing MsgBox "done" End Sub فكرة الكود هي البحث عن جميع الملفات بامتداد docx في نفس المجلد غير asdf.docx ودمجهم بالتوفيق 3 رابط هذا التعليق شارك More sharing options...
أبو إبراهيم الغامدي قام بنشر يوليو 11, 2021 مشاركة قام بنشر يوليو 11, 2021 19 دقائق مضت, أ / محمد صالح said: بالنسبة لموضوع إنشاء أكثر من صفحة فلا يمكن مع استعمال العلامات المرجعية bookmarks يمكن استخدام الإجراء التالي للانتقال إلى صفحة جديدة في الوورد X.Selection.InsertNewPage 1 رابط هذا التعليق شارك More sharing options...
حامل المسك قام بنشر يوليو 11, 2021 الكاتب مشاركة قام بنشر يوليو 11, 2021 أيها الكرام لقد أثريتم الموضوع وأجدتم وأفدتم ،، وما لسان حالي إلا كحال الشاعر القائل.. أبحرت في بحر الكلام لأقتفي**** أحلى كليمات وأحلى الأحرف لكنما الأمواج أردت قاربي**** فتحطمت خجلا جميع مجادفي لو أنني أنشدت ألف قصيدة**** في حقكم لا لن تفي 46 دقائق مضت, أ / محمد صالح said: وهذا هو الكود بعد التعديل أستاذنا أ. محمد مخرج جميل ورائع كروعتك وطلتك الجميلة،، ولك سبق فضل فكتب الله لك الأجر.. 53 دقائق مضت, أبو إبراهيم الغامدي said: الشفرة تعتمد على ثلاثة وسوم من وسوم HTML فقط والباقي هي بنية المسند.. الأول وسم العنوان <H1....H6> مثله مثل عناوين وورد الثاني وسم الفقرة النصية <P> مثله مثل فقرات وورد الثالث وسم الترقيم التلقائي: الترقيم النقطي <UL>، والترقيم العددي <OL> مثله مثل ترقيم وورد أستاذنا أبا إبراهيم الغامدي،، أفكارك رائعة،، وعمل القالب عن طريق الأكسس أجزم أن كثيرا ممن يعملون على الأكسس في أمس الحاجة إليه،، ولو تسنى لكم أستاذنا عمل سلسلة دروس في ذلك فأكيد ستكون نقلة نوعية لا سيما إذا كانت بأناملكم،، أسأل الله أن يوفقكم لكل خير وأن يجعل الخير والسعد في مستقبل أياكم ويبارك في علمكم وعملكم،، 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.