اذهب الي المحتوي
أوفيسنا

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

قام بنشر (معدل)

هل من الممكن ترقيم الصفحات بطريقة عكسة أي يعني لو وجد ملف مكون من 10 صفحات

أبدأ من صفحة 10 ثم 9 ثم 8 حتى رقم 1

وتكون بطريقة أوتوماتيكية بحيث لو زودت الصفحت ي الأمام تأخذ رقم 11

تم تعديل بواسطه kalegola
قام بنشر

نعم توجد طريقة الترقيم العكسي للصفحات

بعد فتح الراس والتذييل نكتب ثلاثة اقواس حقول عن طريق المفتاحين Ctrl+F9

انظر الملف المرفق وستجد دالة الحقل 5.rar

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

 

  • Like 1
قام بنشر (معدل)

شكراً ليك أخ تومي محمد على سرعة ردك وإستجابتك لطلبي

ولكن

أولاً :حاولت ان اغير الرقم من انجليزي إلى عربي لكنني فشلت هل من طريقة لذلك

ثانيا:هل يوجد طريقة لوضع رقم الصفحة بهذه الطريقة 008 وعندما نصل للصفحة 11 تصبح بهذا الشكل 011

ثالثاً: هل هذه الطريقة تفيدني في موضوعي السابق 

http://www.officena.net/ib/index.php?showtopic=51007

تم تعديل بواسطه kalegola
قام بنشر (معدل)

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

ووجد ملف يوجد به الترقيم عكسي باللغة العربية

حاولت ان اخذ الحقل وانقله الي الملفات الخاصة بي 

يتحول الى اللغة الإنجليزية 

ممكن مساعدة في ذلك؟

تم تعديل بواسطه kalegola
قام بنشر

بالنسبة لتغيير الارقام الى ارقام هندية فذلك يتم من زر OFFICE ثم من خيارات WORD ثم تغير الى العربية او الهندية او نظام او سياق

اما بالنسبة للسوال الآخر لترقيم عكسي مثل 4007 ثم 4006 ثم 4005 ثم 4004 وهكذا فما عليك سوى تغيير الرقم +1  في الكود السابق الى 4000 بمعنى هذا العدد - عدد الصفحات في هذا الملف

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

قام بنشر

ولكن يا اخ تومي أنا عايز نظام الأرقام في الملف عن طريق سياق حيث أنني أستخدم في ملفاتي الأرقام الهنددية أو العربية حسب طبيعة المراسلة ولكن عند إتباع نظام السياق يصبح الترقيم مكتوب باللغة العربية وحاولت أن أغيره لكن لا يتغير

قام بنشر

السلام عليكم

تم التطبيق على الملفات الخاصة بي ولكن يبقى عدم إمكانية تحويل رقم القيد إلى اللغة الهندية دون التأثير على أرقام باقي الملف

 سأرفق لحضرتك ملف يشرح سؤالي 

مراسلات.rar

 

قام بنشر

حسبما اظن انه لا توجد طريقة كما نفعل عندما نريد رقم الصفحات روماني أو  ابجدي عربي بهذا الكود بين قوسي الحقل: PAGE \* ARABICABJAD  او روماني هكذا: ROMAN

لكن لا اظن ذلك مع الارقام الهندية التي انت تقصدها وخاصة اذا كان عندك الويندوز انجليزي

طالع هذا الموضوع كذلك :http://www.officena.net/ib/index.php?showtopic=36460

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

قام بنشر

هذا يعني أنه لا يوجد حل؟

راودتني فكره لا اعلم هل من الممكن تنفيذها أم لا

بما انه لا يمكن تغيير الأرقام إلى الهندية فهل من الممكن تغيير نظام كتابة الأرقام في هذا الملف فقط

أي يعني تغيير الأرقام في هذا الملف فقط إلى الهندية دون التأثير على باقي الملفات الموجودة على الجهاز

حيث أن في حالة تغيير طريقة كتابة الأرقام في OFFICE سيؤثر على جميع التطبيقات الموجودة على الجهاز

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

قام بنشر

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

 

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

قام بنشر (معدل)

أخ تومي آسف على الإطالة في الموضوع ولكنني الهدف ليس ترقيم الصفحة بأرقام هندية

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

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

تم تعديل بواسطه kalegola
قام بنشر

شكراً ، شكرا، شكرا سيد تومي

أخيراً تم حل هذه المشكله

وآسف جداً لعدم سرعة إستيعابي للموضوع

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

ألقاك مرة أخرى في إستفسارات لاحقة

:)

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

قام بنشر (معدل)

سؤال أخير سيد تومي لكي أستكمل الإستفادة من الموضوع

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

Documents التي تم إرفاقها لي

تم تعديل بواسطه kalegola
قام بنشر

أحد الأصدقاء أعطاني هذا الكود وتم تطبيقه وأعطى نفس النتيجة 

هذا للإفادة وإستكمال الموضوع

Sub NumberToHindi()
Dim fRng As Range, RngTmp As Range, StrTmp As String, i As Long
Set fRng = Selection.Range
ActiveWindow.View.ShowFieldCodes = False
With Selection.Range
  With .Find
    .ClearFormatting
    .Forward = True
    .Wrap = wdFindStop
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = True
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Text = "[,.0-9]{1,}"
    .Replacement.Text = ""
    .Execute
  End With
  Do While .Find.Found
    If .InRange(fRng) = False Then Exit Do
    With fRng.Duplicate
      Set RngTmp = fRng.Duplicate
      With RngTmp
        If .Characters.Last = "." Then .End = .End - 1
        If .Characters.Last = "," Then .End = .End - 1
        ' If the numbers are input right-to-left, use:
        StrTmp = .Text
        ' If the numbers are input left-to-right, use:
        'StrTmp = .Text
        For i = 0 To 9
          StrTmp = Replace(StrTmp, Chr(48 + i), ChrW(1632 + i))
        Next i
        .Text = StrTmp
      End With
    End With
      .Collapse (wdCollapseEnd)
      .Find.Execute
    Loop
  End With
End Sub
Function Reverse(StrTmp As String) As String
  If (Len(StrTmp) > 1) Then
    Reverse = Reverse(Mid$(StrTmp, 2)) + Left$(StrTmp, 1)
  Else
    Reverse = StrTmp
  End If
End Function

  • 2 years later...
قام بنشر

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

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

سؤال إضافي:

في حالة الرغبة في الترقيم العكسي للصفحات من صفحة 50، لتصبح أرقام الصفحات (50، 49، 48...)

احترامي

قام بنشر
في 1/7/2014 at 00:25, احمد محمود عبد الفتاح said:

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

ووجد ملف يوجد به الترقيم عكسي باللغة العربية

حاولت ان اخذ الحقل وانقله الي الملفات الخاصة بي 

يتحول الى اللغة الإنجليزية 

ممكن مساعدة في ذلك؟

الحل: حول لغة جهازك الى الانجليزي

  • 4 years later...
قام بنشر
في ٦‏/١‏/٢٠١٤ at 23:32, تومي محمد said:

نعم توجد طريقة الترقيم العكسي للصفحات

بعد فتح الراس والتذييل نكتب ثلاثة اقواس حقول عن طريق المفتاحين Ctrl+F9

انظر الملف المرفق وستجد دالة الحقل 5.rar

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

 

اخ تومي كيف ابدء باول خطوة كما فعلت انت في الملف المرفق وكيف اضعه اسفل الصفحة ارجو الرد

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information