لدي كود لعمل مصفوفة لكل فقرة في المستند بنمط معين ( عنوان جدول المصادر) لتجميعها كنصوص، ثم وضعها كنص بديل ضمن خصائص الجدول، بحيث يكون كل جدول مقابله هذا النص
وهذا هو الكود:
Sub MyCaptionTableWithTitle2018()
Dim tbl As Table
Dim i As Long
Dim MyAR() As String
i = 0
Selection.HomeKey Unit:=wdStory
Selection.Find.Style = "عنوان 3"
Do While Selection.Find.Execute = True
ReDim Preserve MyAR(i)
MyAR(i) = Selection
i = i + 1
Loop
For i = LBound(MyAR) To UBound(MyAR)
For Each tbl In ActiveDocument.Tables
tbl.Select
Table.Title=MyAR(i)
next
next
end sub
كود لعمل مصفوفة لنمط معين
