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





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

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



06-12-2017 02:35 مساء
محمود الشريف
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-09-2017
رقم العضوية : 627
المشاركات : 195
الجنس : ذكر
تاريخ الميلاد : 14-2-1980
يتابعهم : 4
يتابعونه : 8
قوة السمعة : 1100
الاعجاب : 285
 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]
محمود ابو الدهب
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 335
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 3
يتابعهم : 4
يتابعونه : 7
قوة السمعة : 892
الاعجاب : 319
 Online 
look/images/icons/i1.gif سؤال وارد بخصوص دمج المراسلات بين الاكسل والوورد
بارك الله فيك استاذ محمود وزاد الله من علمك 

أثارت هذه المشاركة إعجاب: abdulwahed catran،


توقيع :محمود ابو الدهب

 

لى عظيم الشرف بالانضمام لهذا الصرح العظيم 


 

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

 

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



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




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

أثارت هذه المشاركة إعجاب: محمود ابو الدهب،



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


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







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

« لا يوجد| لا يوجد»

 







الساعة الآن 03:01 صباحا