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

[shatat]

مرحبا

عندما أقوم بالنسخ من Adobe Acrobat الى الوورد يصبح الكلام مقلوبا

مثلا محمد عبد الكريم

ينسخها : دمحم دبع ميركلا

هل من حل لهذه المشكلة

وشكر

[النبهاني]

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

في الحقيقه ان اهم ما يميز ملفات اكروبات 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

تم تعديل نوفمبر 29, 2004 بواسطه عبد الله فتحي

[shatat]

:(

ﻢﺴﺑ ﻢﻴﺣﺮﻟا ﻦﻤﺣﺮﻟا ﷲا

[عبد الله فتحي]

غريبة الكود شغال معاي

على أي حال المهم الفكرة فقط ( كود يقوم بعكس ترتيب الحروف )

[shatat]

شكرا على كل حال

[shatat]

اخي عبد الله

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

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

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

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

تحياتي

shatat

[عبد الله فتحي]

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

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

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

[المهاجر]

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

[shatat]

مرحبا

شكرا على الرد

لكن أين هو البرنامج الخاص أو ما هو اسمه

[المهاجر]

هذا هو الرابط :

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

[محمد طاهر عرفه]

السلام عليكم

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

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

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

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

 

Wor-Reverse.docm

[محمد طاهر عرفه]

موضوع شبيه فى الاكسيل

 

[محمد طاهر عرفه]

موضوع شبيه فى الاكسيس

 

[Guest أبو محمد هاشمي]

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

مثال

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

 

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

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

[محمد طاهر عرفه]

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

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

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

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

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

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

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

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

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

 

[محمد طاهر عرفه]

السلام عليكم

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

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

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

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

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

مرفق الملف

 

Word-Reverse.docm

[محمد طاهر عرفه]

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

مثلا

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

هي معكوس

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

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

اكتب اي عبارة

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

ثم اضغط ALT+ F8

 و شغل الماكرو

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