نسخ جميع الجداول من الملف إلى ملف آخر:

[أبو عاصم المصري]

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

وهذا الماكرو يقوم بذلك:

'
'ماكرو لنسخ كل الجداول من الملف إلى ملف آخر
'
   Dim Source As Document
    Dim Target As Document
    Dim Tbl As Table
    Dim tr As Range

n = ActiveDocument.Tables.Count
    If n = 0 Then
        MsgBox "لا يوجد جداول ", vbOKOnly

 Exit Sub
 Else
 End If

    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
Beep
End Sub