إضافة رمز معين، أو نص معين للخلايا الفارغة في الجدول

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

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

وهذا الماكرو يتيح لك ذلك:

'
' إضافة رمز معين، أو نص معين للخلايا الفارغة
'
'
    Dim tTable As Table
    Dim cCell As Cell
    Dim sTemp As String
    ss = InputBox("أدخل الرمز أو النص الذي تريد أن تجعله في الخلايا الفارغة")
    sTemp = ss
    For Each tTable In ActiveDocument.Range.Tables
        For Each cCell In tTable.Range.Cells
                If Len(cCell.Range.Text) < 3 Then
                cCell.Range = sTemp
            End If
        Next
    Next
    Set oCell = Nothing
    Set tTable = Nothing
End Sub

[تومي محمد]

شكرا