وقتی لیلیانا یک جدول در یک سند دارد، الزامات شرکت بیان می کند که هر خانه در جدول باید چیزی در آن داشته باشد. این بدان معناست که اگر سلولی در غیر این صورت خالی باشد، باید دارای یک خط تیره یا حروف "N/A" باشد. لیلیانا متعجب است که آیا راهی وجود دارد که بتواند به طور خودکار یک خط تیره یا "N/A" را در خانه های خالی جدول قرار دهد.
تنها راه انجام این کار با ماکرو است. می‌توانید یکی ایجاد کنید که از هر کدام از سلول‌های جدول عبور کند و بررسی کند که چه چیزی در آن وجود دارد. اگر سلول خالی است، متن مورد نظر شما در سلول قرار می گیرد. در اینجا یک نمونه ماکرو وجود دارد که روی تمام جداول یک سند کار می کند و هر سلول را بررسی می کند:
Sub ProcCells1() Dim tTable As Table Dim cCell As Cell Dim sTemp As String sTemp = "N/A" For Each tTable In ActiveDocument.Range.Tables For Each cCell In tTable.Range.Cells An apparently empty cell contains an end of cell marker If Len(cCell.Range.Text) < 3 Then cCell.Range = sTemp End If Next Next Set oCell = Nothing Set tTable = Nothing End Sub
اگر تصمیم دارید که سلول های خالی شما به جای "N/A" دارای یک خط تیره باشد، تنها کاری که باید انجام دهید این است که متن قرار داده شده در متغیر sTemp را تغییر دهید. اگر ماکرویی را ترجیح می دهید که با یک جدول به جای همه جداول یک سند کار کند، تغییرات زیر عالی عمل می کند:
Sub ProcCells2() Dim tTable As Table Dim cCell As Cell Dim sTemp As String sTemp = "N/A" If Selection.Information(wdWithInTable) Then Set tTable = Selection.Tables(1) For Each cCell In tTable.Range.Cells An apparently empty cell contains an end of cell marker If Len(cCell.Range.Text) < 3 Then cCell.Range = sTemp End If Next End If Set oCell = Nothing Set tTable = Nothing End Sub
برای استفاده از این تغییر، فقط مطمئن شوید که نقطه درج در جدولی است که می خواهید پردازش کنید قبل از اجرای ماکرو.
اگر ترجیح می‌دهید از ماکروها استفاده نکنید، روش متفاوتی وجود دارد که می‌توانید در نظر بگیرید - فقط مطمئن شوید که جدول شما حاوی خط تیره یا متن "N/A" مورد نظر قبل از شروع قرار دادن اطلاعات در آن باشد. می توانید یک الگوی جدول ایجاد کنید که حاوی یک خط تیره یا "N/A" در هر سلول باشد، و سپس با قرار دادن اطلاعات دیگر در سلول، متن پیش فرض را به سادگی حذف کنید. (روش های مختلفی که می توانید الگوهای جدول را تنظیم کنید در شماره های دیگر PCcloob پوشش داده شده است.)
