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

للتغلب على مشكلة المسافات الزائئدة فى الوورد - مثلا بعد الواو أو قبل الفصلة

Recommended Posts

وجدت انه من الافضل الحفظ وعمل اعادة تحميل للملف فى النهاية كي تظهر التعديلات مباشرة

و عليه تم تعديل الكود باضافة التالي فى النهاية

           Application.ActiveDocument.Save
           Application.ActiveDocument.Reload

 

 

 

شارك هذه المشاركه


رابط المشاركه
شارك

الأن وش المشاركة المعتمده واالي أخذها على طول ممكن رد يحتوي كل المطلوب

 

ممكن الشرح بالصور وين الوحدات النمطية 

أحتاجها لبحثي

شارك هذه المشاركه


رابط المشاركه
شارك

مرفق ملفان يحويان آخر الاكواد

واحد للغة العربية ، و الاخر للانجليزية

WordRemoveArabic.rar

WordRemoveEnglish.rar

قم بفك ضغط الملف

ثم اسحبه الي داخل محرر الكود فى الملف الخاص بك ( يمكن الوصول اليه بضغط ALT+F11)

او استيراده

و اذا اردت أن تعمل الاكواد على كل الملفات فاضفه لمجلد normal  كما فى الصورة ، او اضفها لملف معين اذا اردت ان تعمل على هذا الملف فقط او عندما يكون الملف مفتوحاً.

code.png.e625b004f84a83115195a674d6058678.png

  • Like 1

شارك هذه المشاركه


رابط المشاركه
شارك

السلام عليكم
هل يمكن تحويل هذا الكود الى الى ازرار يمكن التحكم بها وتشغيلها بسهولة
مثل هذه

 

spaces.png

شارك هذه المشاركه


رابط المشاركه
شارك

السلام عليكم

من حيث الامكانية ، نعم ممكن ،

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

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

شارك هذه المشاركه


رابط المشاركه
شارك

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.


  • محتوي مشابه

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

      Sub mergitwithcomma() Selection.Cells.merge With Selection.Find .Text = "^p" .Replacement.Text = "، " .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub لتنزل الملف
    • بواسطه ياسر فاروق
      الساده
      حسب ملف الـ PDF المرفق من شيت اكسيل
      يلاحظ أن الكلام تخطى حدود العمود الى الخارج (وضع عليه دائرة)
      هل يوجد حل لهذا الموضع لأنه دائما متكرر عند عمل PDF فى أكثر من إصدار
      وشكرا
       
      Sample.rar
  • المتواجدين الان   1 عضو متواجد الان

×
×
  • اضف...