طريقة التحديد على جميع الجداول بداخل المستند عن طريق الكود

[رفعت يسري حامد]

طريقة سهلة لتحديد على جميع الجداول بداخل المستند مرة واحدة عن طريق الكود

Sub select_tables()
Dim mytable As Table
Application.ScreenUpdating = False

For Each mytable In ActiveDocument.Tables
mytable.Range.Editors.Add wdEditorEveryone
Next
ActiveDocument.SelectAllEditableRanges (wdEditorEveryone)
ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone)
Application.ScreenUpdating = True
End Sub

وبالله التوفيق

 

[تومي محمد]

بارك الله فيك وحفظك

والسلام عليكم

[رفعت يسري حامد]

سلمك الله يا مشرفنا الغالي ، شكرًا لك. ووفقنا الله وإياك لما يحبه ويرضاه