أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة YasserKhalil مشكلة في الكود اكسيل اسئله واجابات


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





سؤال وارد بخصوص دمج المراسلات بين الاكسل والوورد

السادة // أعضاء المنتدى الكرام السلام عليكم ورحمه الله وبركاته ،،، ورد إستفسارين بالموضوع دمج المراسلات بي ..



06-12-2017 02:35 مساء
محمود الشريف
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-09-2017
رقم العضوية : 627
المشاركات : 259
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 14-2-1980
يتابعهم : 1
يتابعونه : 28
قوة السمعة : 2164
موقعي : زيارة موقعي
 offline 

السادة // أعضاء المنتدى             الكرام
السلام عليكم ورحمه الله وبركاته ،،،

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

من قبل 
الأستاذ //  abdulwahed catran

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

أما فيما يختص بسؤاله عن جعل كل صفحة من ملف الوورد بملف مستقل 
بعد أن تتم عملية الدمج كاملة سيتم إنشاء ملف وورد جديد 
ضع داخل الملف الوورد الذى تم إنشاؤه الكود التالي سيقوم تلقائيا بفصل صفحة فى ملف جديد 
ملحوظة (( قد تجد إهتزاز لشاشة الوورد )) أثناء تشغيل الكود لا تقلق 
( هو فقط يقوم بعملية إنشاء ونسخ متكررة حسب عدد صفحات ملف الوورد الذى تم إنشاؤه بعد الدمج )
الكود مطابق لملف الشرح بالموضوع السابق الإشارة إليه أعلاه
فقط قم بتغيير المسميات العربية التى بين قوسين تنصيص
ضع الكود التالى داخل موديول وقم بربطه بزر

Public Sub Trans_to_copy()
Dim Rng As Range
Dim Mu_a$, Pth$
Dim ii%, i%, Nx%, Np%
Dim Num%, A%, B%, x%
'****************
On_1:

'يمكنك استبدال كلمة الكشف التى تظهر كأسم للملف بأى لكمة أخرى
'يتم تسمية الملف على سبيل المثال كالتالي
'الكشف - 1
'ورقم واحد نظرا لإتباطها برقم كود الموظف حسب ملف الشرح

Mu_a = "الكشف"
'****************
Np = 0
On Error Resume Next
Num = ActiveDocument.ActiveWindow.ActivePane.Pages.Count
A = InputBox("إدخل عدد الصفحات لكل موضوع ويفضل ترك الرقم الافتراضي كما هو", , 1)
B = InputBox("إدخل عدد المواضيع ويفضل ترك الرقم الافتراضى كما هو", , 1)
x = A
For ii = 1 To Num Step A
Np = Np + 1
i = ii: Nx = ii + x
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=i
  Set Rng = Selection.Range
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=Nx
    Rng.End = Selection.Bookmarks("\Page").Range.End
 Rng.Select
    Selection.Copy
    Application.Documents.Add
    Selection.Paste
   Pth = ThisDocument.Path & "\"
  ActiveDocument.SaveAs Pth & Mu_a & " - " & Np & ".docx"
ActiveDocument.Close
Next
On Error GoTo 0
ActiveDocument.Range(1, 1).Select
'يمكنك تغيير نص الرسالة التى تظهر حتى تتطابق مع الموضوع الخاص بك
MsgBox "تم تقسيم ملف كشوف المرتبات كل كشف بملف وورد مستقل بنجاح", vbInformation, ""
Set Rng = Nothing
End Sub


 

06-12-2017 04:30 مساء
مشاهدة مشاركة منفردة [1]
محمود ابو الدهب
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1309
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 275
قوة السمعة : 4570
موقعي : زيارة موقعي
عدد الإجابات: 7
 offline 
look/images/icons/i1.gif سؤال وارد بخصوص دمج المراسلات بين الاكسل والوورد
بارك الله فيك استاذ محمود وزاد الله من علمك 
توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب

06-12-2017 04:51 مساء
مشاهدة مشاركة منفردة [2]
محمود الشريف
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-09-2017
رقم العضوية : 627
المشاركات : 259
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 14-2-1980
يتابعهم : 1
يتابعونه : 28
قوة السمعة : 2164
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif سؤال وارد بخصوص دمج المراسلات بين الاكسل والوورد
الأستاذ الفاضل // محمود ابو الدهب
جزاكم الله خيرا على دعاؤكم الطيب ومروركم الكريم

07-12-2017 08:47 مساء
مشاهدة مشاركة منفردة [3]
abdulwahed catran
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 219
المشاركات : 169
الجنس : ذكر
تاريخ الميلاد : 10-2-1968
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 280
 offline 
look/images/icons/i1.gif سؤال وارد بخصوص دمج المراسلات بين الاكسل والوورد
جزاك الله خيرا
 

07-12-2017 11:39 مساء
مشاهدة مشاركة منفردة [4]
محمود الشريف
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-09-2017
رقم العضوية : 627
المشاركات : 259
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 14-2-1980
يتابعهم : 1
يتابعونه : 28
قوة السمعة : 2164
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif سؤال وارد بخصوص دمج المراسلات بين الاكسل والوورد
المشاركة الأصلية كتبت بواسطة: abdulwahed catran
جزاك الله خيرا
 


وجزاكم الله خيرا أخى الكريم

11-02-2018 10:54 صباحا
مشاهدة مشاركة منفردة [5]
karwan
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-11-2017
رقم العضوية : 1785
المشاركات : 200
الجنس : ذكر
تاريخ الميلاد : 20-8-1989
يتابعهم : 7
يتابعونه : 7
قوة السمعة : 244
 offline 
look/images/icons/i1.gif سؤال وارد بخصوص دمج المراسلات بين الاكسل والوورد
جزاك الله 

24-04-2019 08:43 صباحا
مشاهدة مشاركة منفردة [6]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif سؤال وارد بخصوص دمج المراسلات بين الاكسل والوورد
أخي الكريم
يرجى عدم تكرار المشاركات بدون داعي




الكلمات الدلالية
سؤال ، وارد ، بخصوص ، المراسلات ، الاكسل ، والوورد ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 10:15 صباحا