طلب تعديل على كود تصدير حقول إلى الوورد

**حامل المسك** · يوليو 10, 2021

السلام علكيم ورحمة الله وبركاته،،

وعشر مباركات،، وفقكم الله لجمال حسن اغتنامها وتقبل منكم صالح الأعمال،،

سلمكم الله لدي برنامج مرفق بفضل الله ثم بفضل أستاذتنا في هذا المنتدى العامر.. عُمل كود إرسال الحقول إلى برنامج الوورد،،

كرما أريد تعديل على الكود بحيث يرسل مجموعة كاملة وليس سجلا واحدا فمثلا يوجد في النموذج قائمة منسدلة في حال اختيار المجموعة يتولى البرنامج إرسالها للوورد المرفق كل سجل في صفحة مستقلة..

ودونكم المثال سلمكم الله،،

البرنامج.rarFetching info...

**أبو إبراهيم الغامدي** · يوليو 11, 2021

في 10‏/7‏/2021 at 13:39, حامل المسك said:

السلام علكيم ورحمة الله وبركاته،،

Expand

وعليكم السلام ورحمة الله وبركاته..

في 10‏/7‏/2021 at 13:39, حامل المسك said:

وعشر مباركات،، وفقكم الله لجمال حسن اغتنامها وتقبل منكم صالح الأعمال،،

Expand

اللهم آمين..

في 10‏/7‏/2021 at 13:39, حامل المسك said:

كرما أريد تعديل على الكود بحيث يرسل مجموعة كاملة وليس سجلا واحدا فمثلا يوجد في النموذج قائمة منسدلة في حال اختيار المجموعة يتولى البرنامج إرسالها للوورد المرفق كل سجل في صفحة مستقلة..

Expand

هذي طريقتي،، أرجو أن ترضيَك..

البرنامج.zipFetching info...

تم تعديل يوليو 11, 2021 بواسطه أبو إبراهيم الغامدي
تعديل في تصميم المرفق

**حامل المسك** · يوليو 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 للقائمة الخاصة بالمجموعات

بالتوفيق

**أبو إبراهيم الغامدي** · يوليو 11, 2021

في 11‏/7‏/2021 at 07:10, حامل المسك said:

لم يعمل معي ملف الوورد؟

Expand

أهلا بك..

لم تذكر السبب!

لحل الإشكال قم بتغيير لاحقة الملف إلى (mht) ليصبح اسم الملف مثلا (Group.mht)، ثم استخدم فتح بواسطة، ثم اختر برنامج (Word)..

::: قد يكون هذا الأسلوب غريبا بعض الشيء لكنه معتمد من قبل Microsoft!

::: الهدف من تنسيق المستند بهذه الصورة هو إبعادك عن تنسيقات Word الطويلة!

<أرجو من الزملاء التعليق عند تجربة المثال>

إليك التعديل..

البرنامج.zipFetching info...

**حامل المسك** · يوليو 11, 2021

في 11‏/7‏/2021 at 10:02, أ / محمد صالح 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 للقائمة الخاصة بالمجموعات

بالتوفيق

Expand

ممتاز ورائع هل يمكن أن تكون في ملف وورد واحد، :fff: ، يشمل جميع القرارات كما يحدث في دمج المراسلات،،

ونعم هي نفس فكرة الموضوع السابق،، وأحببت فتح موضوع جديد حتى لا يكون أكثر من موضوع في موضوع واحد،، **اجتهاد🙄**

في 11‏/7‏/2021 at 11:28, أبو إبراهيم الغامدي said:

أهلا بك..

لم تذكر السبب!

لحل الإشكال قم بتغيير لاحقة الملف إلى (mht) ليصبح اسم الملف مثلا (Group.mht)، ثم استخدم فتح بواسطة، ثم اختر برنامج (Word)..

::: قد يكون هذا الأسلوب غريبا بعض الشيء لكنه معتمد من قبل Microsoft!

::: الهدف من تنسيق المستند بهذه الصورة هو إبعادك عن تنسيقات Word الطويلة!

<أرجو من الزملاء التعليق عند تجربة المثال>

إليك التعديل..

البرنامج.zip 246.6 kB · 3 downloads

Expand

حاولت التطبيق لم تضبط معي.. ربما لم أعرف استخراج الملف المطلوب

تم تعديل يوليو 11, 2021 بواسطه حامل المسك

**أبو إبراهيم الغامدي** · يوليو 11, 2021

في 11‏/7‏/2021 at 14:25, حامل المسك said:

حاولت التطبيق لم تضبط معي.. ربما لم أعرف استخراج الملف المطلوب

Expand

أهلا بك..

المتوقع منك: أنك فتحت قاعدة البيانات المثال وضغطت على (تصدير الفرارات) وذهبت إلى مجلد قاعدة المثال وتفتح الملف المصدر بورد!

إذا لم يفتح فهناك رسالة بالتأكيد! أنا أحتاج إلى هذه الرسالة لأعالج الخطأ..

إذا فتح ملف المثال بشكل سليم؛ ولكن لم تستطع التطبيق على قاعدة البيانات الأصلية، فهذا أمر يمكن مناقشته فيما بعد..

**حامل المسك** · يوليو 11, 2021

أنا فتحت ملف الوورد ولم أجد البيانات وجدت سجلا واحدا بقية الصفحات فارغة،،

**أبو إبراهيم الغامدي** · يوليو 11, 2021

في 11‏/7‏/2021 at 14:50, حامل المسك said:

أنا فتحت ملف الوورد ولم أجد البيانات وجدت سجلا واحدا بقية الصفحات فارغة،،

Expand

هذا ملف وورد جرب فتحه ببرنامج وورد الذي لديك

الأولى.docFetching info...

**أ / محمد صالح** · يوليو 11, 2021

شكرا أخي @أبو إبراهيم الغامديهذا الذي أفعله في برمجة الويب

كتابة التنسيق بلغة html ووضع البيانات القادمة من الاستعلامات في أماكنها

لكن طريقة العلامات المرجعية bookmarks المقترحة من صاحب السؤال هي التي فرضت علينا التعامل معها لحل مشكلته

وإذا سمحت لي

فالمشكلة في الكود في المرفق في هذه المشاركة

Open Me.Groupx & ".mht" For Output As #1

وتغييره إلى

Open CurrentProject.Path & "\" & Me.Groupx & ".doc" For Output As #1

ما أجمل الربط بين مهارات البرمجة في كل مجال

**حامل المسك** · يوليو 11, 2021

في 11‏/7‏/2021 at 15:33, أ / محمد صالح said:
شكرا أخي @أبو إبراهيم الغامديهذا الذي أفعله في برمجة الويب

كتابة التنسيق بلغة html ووضع البيانات القادمة من الاستعلامات في أماكنها

لكن طريقة العلامات المرجعية bookmarks المقترحة من صاحب السؤال هي التي فرضت علينا التعامل معها لحل مشكلته

وإذا سمحت لي

فالمشكلة في الكود في المرفق في هذه المشاركة
Open Me.Groupx & ".mht" For Output As #1
وتغييره إلى
Open CurrentProject.Path & "\" & Me.Groupx & ".doc" For Output As #1
ما أجمل الربط بين مهارات البرمجة في كل مجال
Expand

ما أجمل حديث العظماء،،

زادكم الله من واسع فضله ووفقكم ورعاكم،،

عدلت الكود وعمل بشكل جيد،، لكن هذا يتطلب العمل على وضع التنسيقات في الكود، وعلى ذلك ربما أحتاج مزيد من الشرح عن الكود لأني سأضعه على الملف الرئيس وبه عدة بيانات في ملف الوورد منها ما هو ثابت ومنها ما هو متغير، ولا غنى عنكم يا كرام،،

في 11‏/7‏/2021 at 14:25, حامل المسك said:

ممتاز ورائع هل يمكن أن تكون في ملف وورد واحد،، يشمل جميع القرارات كما يحدث في دمج المراسلات،،

Expand

وهل بالإمكان التعديل على كود ا. محمد ليكون في ملف واحد،،

تم تعديل يوليو 11, 2021 بواسطه حامل المسك

**أبو إبراهيم الغامدي** · يوليو 11, 2021

في 11‏/7‏/2021 at 15:33, أ / محمد صالح said:

فالمشكلة في الكود في المرفق في هذه المشاركة

Expand

شكرا لك أ.محمد.. ولا حرمنا من مداخلات القيمة..

في 11‏/7‏/2021 at 15:59, حامل المسك said:

عدلت الكود وعمل بشكل جيد،، لكن هذا يتطلب العمل على وضع التنسيقات في الكود، وعلى ذلك ربما أحتاج مزيد من الشرح عن الكود لأني سأضعه على الملف الرئيس وبه عدة بيانات في ملف الوورد منها ما هو ثابت ومنها ما هو متغير، ولا غنى عنكم يا كرام،،

Expand

الحمدلله..

إذا كان لديك قالب معين فيمكن أن نعيد تصميمه من داخل أكسس.. إن أردت..

**حامل المسك** · يوليو 11, 2021

الفكرة رائعة،، فإن أمكن شرح الكود لأن القالب يمكن يعدل مع الوقت..

كذلك هل بالإمكان إذا كان في القالب مربع نص أن يستخدم معه هذه الطريقة للكتابة بداخله،،؟؟،

**حامل المسك** · يوليو 11, 2021

في 11‏/7‏/2021 at 10:02, أ / محمد صالح said:

والحل بإذن الله تعديل كود الزر 11 إلى:

Expand

لعل التعديل على كود أ. محمد يمكن من سهولة التعامل مع ملف الوورد ووضع التنسيقات المناسبة،،

وإذا كان العمل على ما تفضل به المبدع أبو إبراهيم الغامدي يمكن التحكم في الخط وتباعد الأسطر مثلا ونحو ذلك فذلك رائع،،

وإن أمكن الجمع بين الأمرين نور على نور..

سلمتم يا كرام،،

**أبو إبراهيم الغامدي** · يوليو 11, 2021

في 11‏/7‏/2021 at 17:30, حامل المسك said:

الفكرة رائعة،، فإن أمكن شرح الكود لأن القالب يمكن يعدل مع الوقت..

Expand

الشفرة تعتمد على ثلاثة وسوم من وسوم HTML فقط والباقي هي بنية المسند..

الأول وسم العنوان <H1....H6> مثله مثل عناوين وورد

الثاني وسم الفقرة النصية <P> مثله مثل فقرات وورد

الثالث وسم الترقيم التلقائي: الترقيم النقطي <UL>، والترقيم العددي <OL> مثله مثل ترقيم وورد

في 11‏/7‏/2021 at 17:30, حامل المسك said:

كذلك هل بالإمكان إذا كان في القالب مربع نص أن يستخدم معه هذه الطريقة للكتابة بداخله،،؟؟،

Expand

يمكنك إنشاء مربع النص من داخل أكسس والكتابة داخله! ولست بحاجة إلى تنسيق ذلك مسبقا في وورد!!

في 11‏/7‏/2021 at 17:41, حامل المسك said:

وإذا كان العمل على ما تفضل به المبدع أبو إبراهيم الغامدي يمكن التحكم في الخط وتباعد الأسطر مثلا ونحو ذلك فذلك رائع،،

Expand

يمكن عمل ذلك بكل سهولة وأكثر!!!

كما يمكن إعادة تحرير المستند المصدر عن طريق محرر نصوص تقليدي (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>

آمل أن لا تفكر في استخدام الوورد مجدداً..

**أ / محمد صالح** · يوليو 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 ودمجهم

بالتوفيق

**أبو إبراهيم الغامدي** · يوليو 11, 2021

في 11‏/7‏/2021 at 19:07, أ / محمد صالح said:

بالنسبة لموضوع إنشاء أكثر من صفحة فلا يمكن مع استعمال العلامات المرجعية bookmarks

Expand

يمكن استخدام الإجراء التالي للانتقال إلى صفحة جديدة في الوورد

X.Selection.InsertNewPage

**حامل المسك** · يوليو 11, 2021

أيها الكرام لقد أثريتم الموضوع وأجدتم وأفدتم ،،

وما لسان حالي إلا كحال الشاعر القائل..

أبحرت في بحر الكلام لأقتفي**** أحلى كليمات وأحلى الأحرف

لكنما الأمواج أردت قاربي**** فتحطمت خجلا جميع مجادفي

لو أنني أنشدت ألف قصيدة**** في حقكم لا لن تفي

في 11‏/7‏/2021 at 19:07, أ / محمد صالح said:

وهذا هو الكود بعد التعديل

Expand

أستاذنا أ. محمد مخرج جميل ورائع كروعتك وطلتك الجميلة،، ولك سبق فضل فكتب الله لك الأجر..

في 11‏/7‏/2021 at 19:02, أبو إبراهيم الغامدي said:

الشفرة تعتمد على ثلاثة وسوم من وسوم HTML فقط والباقي هي بنية المسند..

الأول وسم العنوان <H1....H6> مثله مثل عناوين وورد

الثاني وسم الفقرة النصية <P> مثله مثل فقرات وورد

الثالث وسم الترقيم التلقائي: الترقيم النقطي <UL>، والترقيم العددي <OL> مثله مثل ترقيم وورد

Expand

أستاذنا أبا إبراهيم الغامدي،،

أفكارك رائعة،، وعمل القالب عن طريق الأكسس أجزم أن كثيرا ممن يعملون على الأكسس في أمس الحاجة إليه،،

ولو تسنى لكم أستاذنا عمل سلسلة دروس في ذلك فأكيد ستكون نقلة نوعية لا سيما إذا كانت بأناملكم،،

أسأل الله أن يوفقكم لكل خير وأن يجعل الخير والسعد في مستقبل أياكم ويبارك في علمكم وعملكم،،

تسجيل الدخول

طلب تعديل على كود تصدير حقول إلى الوورد

الردود الموصى بها

حامل المسك

أبو إبراهيم الغامدي

حامل المسك

أ / محمد صالح

أبو إبراهيم الغامدي

حامل المسك

أبو إبراهيم الغامدي

حامل المسك

أبو إبراهيم الغامدي

أ / محمد صالح

حامل المسك

أبو إبراهيم الغامدي

حامل المسك

حامل المسك

أبو إبراهيم الغامدي

أ / محمد صالح

أبو إبراهيم الغامدي

حامل المسك

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information