اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الكلام مقلوب عند النسخ


shatat
إذهب إلى أفضل إجابة Solved by محمد طاهر عرفه,

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

مرحبا اخي العزيز

في الحقيقه ان اهم ما يميز ملفات اكروبات PDF هو الحمايه التي تتمتع بها ، فقد تجد ان الكلام يصبح عند نسخه مشوها او معكوسا كما أسلفت أخي العزيز ، وهذه نوع من الحمايه التي تعمدها مصمم الملف حتى لا يقوم احد بنسخ نص من الملف ...

ولكني سمعت ببعض البرامج المختصه بهذا المجال وانا شخصيا ابحث عنها ، ولكن ربما يساعدنا احد الاخوة ويأتي لنا بحل او برنامج يحل هذه المشكله او يحول صيغه ملف pdf الى وورد doc ....

تحياتي

رابط هذا التعليق
شارك

لا أعتقد أن هذا نوع من الحماية

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

أعتقد أن هذا الأمر ممكن .. وهذا مثال يمكنكم التعديل عليه:

Sub Macro()
    
'الذهاب إلى أول المستند
Selection.HomeKey Unit:=wdStory
      
'معرفة عدد الكلمات في المستند
Set wdDTWC = Dialogs(wdDialogToolsWordCount)
wdDTWC.Execute
dlgwordcount$ = wdDTWC.Words

'تحديد كلمة كلمة
For o = 1 To dlgwordcount$
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "<?*>"
        .MatchWildcards = True
    End With
    Selection.Find.Execute
    
'وضع الكلمات في متغيرات
    Dim x As String
    Dim s As String
    x = Len(Selection)
    s = Selection
    
'قلب الكلمة إلى وضعها الطبيعي
    For i = 0 To x - 1
    Selection.TypeText Text:=Mid(s, (x - i), 1)
    Next
Next

End Sub

تم تعديل بواسطه عبد الله فتحي
  • Thanks 2
رابط هذا التعليق
شارك

اخي عبد الله

لقد وجدت طريقة مسلية ولكنها ليست مجدية

اولا قمت بنسخ النص من مستند الأكروبات ثم قمت بلصقه في مستند وورد "ﻢﺴﺑ ﻢﻴﺣﺮﻟا ﻦﻤﺣﺮﻟا ﷲا"

بعد ذلك قمت بطباعة الأخير الى الأكروبات كماهو ثم نسخته مجدداً الى مستند وورد فأصبحت النتيجة :ﻟﺮﺣﻴﻢ ﺑﺴﻢ ا ﻟﺮﺣﻤﻦ ا ﷲ ا

مارأيك بالموضوع ؟

تحياتي

shatat

رابط هذا التعليق
شارك

مارأيك بالموضوع ؟

من ناحية التسلية :lol: :lol:

أما من ناحية الجدوى فقد كان تفكيرك منطقياً عند محاولة عكس العكس وبالتالي الحصول على نتيجة إيجابية، ولكن يبدو أن المحاولة قد فشلت :crash:

رابط هذا التعليق
شارك

  • 2 months later...
  • 15 years later...

السلام عليكم

احتجت لكود لعكس الكلمات بالوورد،

و جربت كود الاخ عبد الله فتحي المنشور اعلاه

و يعمل بامتياز

مرفق الملف للاستفادة

 

Wor-Reverse.docm

رابط هذا التعليق
شارك

  • 3 months later...
Guest أبو محمد هاشمي

هل من توضيح لإرجاع الكلمات والعبارات المقلوبة إلى وضصهعا الطبيعي

مثال

ميلستلا دعب دُ عْ ق يَ ال لي هللا لوسر ناك :ثلاق ةًشئاع نع

 

وأصل العبارة:

عن عائشة قالت كان رسول الله لا يقعد بعد التسليم

رابط هذا التعليق
شارك

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

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

عائشة تصبح ةًشئاع 

و ةًشئاع  تصبح عائشة

و لكنه لا يغطي عكس ترتيب الكلمات ضمن الجملة الواحدة

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

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

حاليا الكود فى ملف الوورد فقط يقوم بعكس ترتيب الحروف ضمن نفس الكلمة لكل الكلمات فى الملف

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

 

رابط هذا التعليق
شارك

  • أفضل إجابة

السلام عليكم

بمراجعة ملف الاكسيل المشار اليه، وجدت به دالة جاهزة اسمها StrReverse تقوم بعكس النص باستخدام VBA ، وهي كافية لاداء المطلوب و تعمل ايضا فى الوورد

الدالة من موقع ميكروسوفت

 و عليه قمت بتطبيقها فى الوورد ، و عملت معي جداً

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

Sub reversit()
Selection.Text = StrReverse(Selection.Text)
End Sub

مرفق الملف

 

Word-Reverse.docm

  • Like 2
رابط هذا التعليق
شارك

الملف له استخدمات طريفة ـ مثلا أن ترسل الكلام مقلوب لاختبار من يستطيع قراءته فى جروب او شات

مثلا

انأ ةملك ةباتكب هروضح لجسي بوتكملا مالكلا ارقي فراع يللا

هي معكوس

 اللي عارف يقرا الكلام المكتوب يسجل حضوره بكتابة كلمة أنا

لتشغيل الماكرو فى الملف

اكتب اي عبارة

ثم قم باختيارها بالماوس

ثم اضغط ALT+ F8

1.thumb.gif.fe41109524609c23a94f825473adf45a.gif

 و شغل الماكرو

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

2.gif.75f3cda3061dca24da190c53f43c3771.gif

 

رابط هذا التعليق
شارك

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.

×
×
  • اضف...

Important Information