seberbay4all

السلام عليكم ورحمة الله وبركاته كنت أبحث عن أداه لدمج ملفات الورد فأعجبني هذا الكود (ماكرو) فأحببت أن لأن لا أبخل به عليكم ملاحظات: 1 - يمكنك تغيير الامتداد docx إلى doc إذا كانت الملفات لها هذا الامتداد. 2 - قم بتغيير مسار الملفات في الكود C:\Book\Chapters\ إلى ماكن الملفات على جهازك 3 - قد يتغير اتجاه الكتابة في الملف من اليمين إلى اليسار أو العكس .. الحل بسيط قم بتحديد الملف بالكامل عن طريق crtl+A ثم اضغط الزرين shift+crtl اليمين أو اليسار. أتمنى أن يفيدكم الكود كما أفادني

الأخ الكريم : أبـوخليل جزاك الله كل خير .. فعلاً قمت بحل المشكلة نسخت الملف الي ملف Txt ثم تم حل المشكلة جزيت الجنة الأخ الكريم : salamaxp :) عربي لو سمحت ههههههههه يعني إيه؟؟

معذرة .. لم أفلح !!

أشكرك شكراً زيلاً على الاهتمام ومعذرة على التأخرفي الرد فأنامنذ ذلك الوقت أحاول تنفيذما ذكرت وبحثت عنه في الشبكة لعلي أجد ما يفسره ولكن ما قلته لم ينجح :) هلا شرحت لي المزيد لو تكرمت؟؟ ماذا أكتب في خانة : استبدال؟؟

لا أردي لماذا لا يتم رفع الملف في المرفقات ! رفعته على المديا فير تفضل الرابط إذا تكرمت وأرجو أن أجد الإجابة عندكم :) جزاكم الله خيراً Example.zip

تفضل أخي الفاضل المطلوب هو أسهل طريقة لحذف الروابط الموجودة في الملف بدون أن تتأثر الأرقام في إجابات الشيخ!! علماً بأن الملف الذي عندي أحياناً يكون به أكثر من ألف رابط!!

سؤال غريب حيرني.. أعلم أنني لن أجد الحل إلاهنا :) باختصار عندي ملف وورد طويل يحتويعلى صفخات منقوله من الانترنت .. أريد حذف الروابط من الملف!! (استبدالها ب نقطة أو لا شيء) شكل الملف باختصار كيف أحذف الروابط أوتوماتيكياً .. علماًبأن الملف طويل جداً ويحتوي على أرقام السؤال بصيغة أخرى: هل يمكن للورد حذف أو استبدال asterisk أو * ؟؟

الأمر سهل إن شاء الله تعالى ولكن بشرط أن تكون الآيات موضوعة بين قوسين ثابتين بمعنى أن جميع الآيات قبلها نفس القوس وبعدها نفس القوس مثلاً : قبل الآيات { أو [ أو ( وبعدها مثلاً: } أو ] أو ) في هذه الحالة الأمر سهل إن شاء الله اضغط على ctrl+H واكتب في السطر الأعلى { أو [ أو ( حسب ما هو موجود عندك وضع في السطر الثاني {<font color=maroon> ثم اضغط: استبدال الكل =========== اضغط على ctrl+H مرة أخرى واكتب في السطر الأعلى ] أو } أو ) وضع في السطر الثاني </font>} ثم اضغط: استبدال الكل =========== اضغط على ctrl+H مرة ثالثة واكتب في السطر الأعلى ^p ضع في السطر الثاني <br> ثم اضغط: استبدال الكل ============== انسخ جميع المستند Crtl+A ثم الصقه في المفكرة notepad .. ثم انسخه من المذكرة مرة ثانية ثم ألصقه في ال frontpage ثم اضغط معاينة!!!! تم الموضوع بحمد الله!!! مبارك

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

حصلت على أمر الحفظ والحمد لله جزيت خيرا نضيف هذا السطر إلى نهاية الماكرو ActiveDocument.Save

السلام عليكم هل من الممكن الحصول على ماكرو يقوم بتغيير نوع الخط وحجمه؟ أم أن ذلك مستحيل؟ وجزاكم الله خيراً

سؤال لو تكرمت: هل يمكن إضافة سطر برمجي في نهاية الماكرو ليقوم بحفظ التغييرات التي حدثت في ملف الورد؟

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

الموضوع سهل جداً أخي الكريم قم بتظليل الجزء الذي تريد نسخة من صفحة الويب ثم انسخه Ctrl+C أو اعمل copy افتح الـ NotePad من قائمة ابدأ (start) ثم accesories اعمل لصق في الونت باد ثم قم بالنسخ من النوت باد إلى الورد

السلام عليكم ورحمة الله حقيقة لا أعرف كيف أشكر القائمين على هذا الصرح الرائع ولي سؤال يتعلق بأنني اعمل كثيراً على الورد وأحتاج أن أعرف ما هو الأمر الذي يسمح لي بأن أقوم بالتالي: في بعض الملفات التي أعمل عليها يكون في الملف فواصل (بمسطرة المسافات) أكثر من اللازم فأقم بالضغط على Ctrl+H وأكتب بالأعلى: (مسافتين)، ثم أكتب في الأسفل: (مسافة واحدة) فيبحث البرنامج ويقول لي تم استبدال كذا ثم أعيد نفس الخطوات فيقول لي تم استبدال كذا ... ثم أكرر الخوات نفسها ختى يقول أنه لم يغير شيئا فأعلم أنه تم حذف جميع المسافات الزائدة ================== قمت بتسجيل ماكرو ليقوم هو بالخطوات ألياً: وهاهو الكود الذي سجلته: Sub ماكرو2() ' ' ماكرو2 ماكرو ' تسجيل الماكرو ‏01‏/08‏/2009 من قبل Windows AnGeL Live ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = " " .Replacement.Text = " " .Forward = True .Wrap = wdFindContinue .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 With Selection.Find .Text = " " .Replacement.Text = " " .Forward = True .Wrap = wdFindContinue .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 =================== المشكلة هي أنه عندما يبحث في المرة الأولى يخبرني أنه أجرى مثلا 10 استبدالاً ولكنه لا يبدأ في البحث مرة أخرى حتى أضغط على الزر Enter (موافق) فهل من كود أضعه بين الخطوتين حتى يقوم هو آلياً بالضغط على Enter؟ ================ معذرة على الإطالة ولكن هذا من حسن ظني بكم وبسعة صدركم