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


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





كود لاستخراج كل الجداول من ملف وورد الي ملف جديد

كود لاستخراج كل الجداول من ملف وورد الي ملف جديد : [code]U3ViIENvcHlUYWJsZXMoKTxiciAvPg0KJm5ic3A7Jm5ic3A7Jm5ic3A7Jm5ic3A ..



18-02-2018 01:35 صباحا
jjebril
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 334
المشاركات : 34
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-1-1973
يتابعهم : 1
يتابعونه : 1
قوة السمعة : 88
الاعجاب : 19
 offline 
كود لاستخراج كل الجداول من ملف وورد الي ملف جديد :
Sub CopyTables()
    Dim Source As Document
    Dim Target As Document
    Dim tbl As Table
    Dim tr As Range

    Set Source = ActiveDocument
    Set Target = Documents.Add

    For Each tbl In Source.Tables
        Set tr = Target.Range
        tr.Collapse wdCollapseEnd
        tr.FormattedText = tbl.Range.FormattedText
        tr.Collapse wdCollapseEnd
        tr.Text = vbCrLf
    Next
End Sub



تم تحرير الموضوع بواسطة :Yasser Elaraby
بتاريخ:21-02-2018 03:34 مساء

سبب التعديل : تنسيق الكود


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



21-02-2018 03:35 مساء
مشاهدة مشاركة منفردة [1]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 808
الجنس : ذكر
الدعوات : 10
يتابعهم : 2
يتابعونه : 459
قوة السمعة : 5541
الاعجاب : 1462
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif كود لاستخراج كل الجداول من ملف وورد الي ملف جديد
جزاكم الله خيرا اخي الكريم  jjebril
142

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


توقيع :Yasser Elaraby
663013020


21-02-2018 03:49 مساء
مشاهدة مشاركة منفردة [2]
عبدالجيد
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 194
المشاركات : 328
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 15-2-1986
يتابعهم : 101
يتابعونه : 22
قوة السمعة : 2261
الاعجاب : 558
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif كود لاستخراج كل الجداول من ملف وورد الي ملف جديد
حتى الوورد فيه أكواد
احنا على كده عايزين نتعلم من جديد

أثارت هذه المشاركة إعجاب: jjebril، السعيد الجزائري،



23-02-2018 12:14 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4310
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 308
قوة السمعة : 12304
الاعجاب : 4482
 offline 
look/images/icons/i1.gif كود لاستخراج كل الجداول من ملف وورد الي ملف جديد
بارك الله فيك أخي الكريم
يفضل أن يكون هناك ملف مرفق مطبق فيه الشرح لتمام الاستفادة

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



08-03-2018 03:30 مساء
مشاهدة مشاركة منفردة [4]
mohamed2020
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-03-2018
رقم العضوية : 4774
المشاركات : 95
الجنس : ذكر
تاريخ الميلاد : 6-11-1987
الإنذارات : 1
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 118
الاعجاب : 24
 offline 
look/images/icons/i1.gif كود لاستخراج كل الجداول من ملف وورد الي ملف جديد
السلام عليكم ورحمة الله وبركاته 142
ما شاء الله بارك الله ...بالتوفيق إن شاء الله 3
 




11-05-2018 09:51 مساء
مشاهدة مشاركة منفردة [5]
السعيد الجزائري
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 01-05-2018
رقم العضوية : 5917
المشاركات : 5
الجنس : ذكر
تاريخ الميلاد : 27-3-1976
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 20
الاعجاب : 5
 offline 
look/images/icons/i1.gif كود لاستخراج كل الجداول من ملف وورد الي ملف جديد
كود اكثرمن رائع تسلم 






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
داله Alsqercomment جديده معرفه لاستخراج تعليق خليه فى خليه اخرى الصقر
4 388 mahmoud ayad

الكلمات الدلالية
لاستخراج ، الجداول ، وورد ، جديد ،


 







الساعة الآن 07:01 مساء

أعلن هنا
أعلن هنا
أعلن هنا