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



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







06-12-2017 02:35 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 23-09-2017
رقم العضوية : 627
المشاركات : 259
الدولة : مصر
الجنس :
تاريخ الميلاد : 14-2-1980
قوة السمعة : 2169
الاعجاب : 1
موقعي : زيارة موقعي
السادة // أعضاء المنتدى الكرام
السلام عليكم ورحمه الله وبركاته ،،،

ورد إستفسارين بالموضوع
دمج المراسلات بين الاكسل والوورد
تحت هذا الرابط
http://techno7asry.com/forum/t174

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

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

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

CODE
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

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



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



توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

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

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




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




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




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




look/images/icons/i1.gif سؤال وارد بخصوص دمج المراسلات بين الاكسل والوورد
  24-04-2019 08:43 صباحاً   [6]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10516
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36718
الاعجاب : 170
أخي الكريميرجى عدم تكرار المشاركات بدون داعي




اضافة رد جديد اضافة موضوع جديد




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








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

الساعة الآن 03:36 PM.