اضافة رموز الى وورد مثل ارقام داخل دوائر صغيرة

[شريف خضير]

هام من فضلكم أريد شرح طريقة كتابة الأرقام العربية داخل دائرة صغير لونها أسود أو أبيض هام كا نقاط متسلسلة مثل 1 ، 2 ، 3 إلخ بس الرقم يكون داخل دائرة صغير لونها أسود أو أبيض أى ليس لها لون .

[شريف خضير]

هام من فضلكم منتظر الردود هام شكراً .

[سامح حجاب]

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

أخي في الله لم أفهم ما تقصد ( أي ليس لها لون )

وهل تريد هذا الترقيم لأسطر أم تريده كترقيم للصفحات ؟؟؟

[شريف خضير]

الترقيم كأسطر متتابع

.

[سامح حجاب]

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

يوجد خط في الرموز به نفس طريقة كتابة الأرقام

واسم الخط Monotype Sorts

وبإمكانك إدراج الأرقام من 1 - 10 بالكيفية التي تريدها

[بن علية حاجي]

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

أخي الكريم إليك المرفق به ما تريد...

أرقام في دوائر.rar

[سامح حجاب]

جزاك الله خيرا أخي في الله بن علي علية

فكرة الأشكال جميلة

ولكن صعب التعامل معها إن كانت ستكتب في بداية أسطر

تم تعديل مارس 8, 2010 بواسطه imaginlife

[شريف خضير]

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

يوجد خط في الرموز به نفس طريقة كتابة الأرقام

واسم الخط Monotype Sorts

وبإمكانك إدراج الأرقام من 1 - 10 بالكيفية التي تريدها

ممكن أن تمدنى بهذا الخط بس تكون الأرقام هندية داخل الدائرة لأن هذا الخط ناقص عندى منتظر رك شكراً هام

.

[ايمن01]

شكرا

[فيثاغورس]

هلا مرحبا اخوي شريف خضير

اتمنى يكون هذا هو طلبك انا عملت ارقام داخل دائرة وايضاً اخرى داخل مربعات

اتمنى يكون هذا طلبك

طبعاً في مجموعة خطوط لازم تثبتها مرفقة مع الملف

تحياتي للجميع

ارقام داخل دائرة.rar

[فيثاغورس]

ايضا هذا ملف اخر يحوي الارقام مرة دائرة مفرغة ومرة اخرى سوداء ومعها الخطوط

تحاتي للجميع

الارقام في دائرة.rar

[شريف خضير]

ألف ألف مليون شكر وتحية أ / فيثاغورس - بارك الله فيك بجد موضوع ممتاز وهو ده طلبى وأكثر عام هجرى مبارك عليك وعلى أسرتك الكريمة .

[Mr reda]

• جزاك الله خيرا
  

[تومي محمد]

موضوع أخر له علاقة بهذا هنا http://www.officena.net/ib/index.php?showtopic=36460

 

والسلام عليكم

[أبو محمد أشرف]

استاذ يوسف

جرب هذا الكود و ابلغني باالنتيجة

 

Sub test()
Dim s As String
With GetObject("winmgmts:\\.\root\CIMV2")
  For Each itm In .ExecQuery("SELECT * FROM Win32_DiskDrive", , 48)
    s = s & "SerialNumber: " & itm.SerialNumber & vbCrLf
    s = s & "Model: " & itm.Model
  Next itm
End With
MsgBox s
End Sub

[حمادة عمر]

السلام عليكم

الاخوة الكرام

موضوع جميل ومفيد فعلا

وكل الشكر لكل من شارك فيه

 

جزاكم الله خيرا

[حمادة عمر]

السلام عليكم

الاستاذ القدير / بن عليه الحاجي

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

 

الاستاذ / تومي

دائما رااائع وردودك رائعة

 

جزاكم الله خيرا

[hossam zeyada]

 

 

استاذ يوسف

جرب هذا الكود و ابلغني باالنتيجة

 

Sub test()
Dim s As String
With GetObject("winmgmts:\\.\root\CIMV2")
  For Each itm In .ExecQuery("SELECT * FROM Win32_DiskDrive", , 48)
    s = s & "SerialNumber: " & itm.SerialNumber & vbCrLf
    s = s & "Model: " & itm.Model
  Next itm
End With
MsgBox s
End Sub

 

اين يوضع هذا الكود اخي الكريم بارك الله فيك

[sahab-elmazini]

تشكر على المجهود الطيب