Putting Something in Every Cell of a Table

It would be beneficial if this macro looped through an open Word document and performed this action for each table contained within.
From https://www.techrepublic.com/article/pro-tip-ways-to-convert-word-tables-to-text/, I found this:
|
Sub ConvertAllTablesToText()
'Convert all the tables in current document to text.
Dim tbl As Table
For Each tbl In ActiveDocument.Tables
tbl.ConvertToText Separator:=wdSeparateByTabs
Next
End Sub
|
And then there's the code above:
|
Sub AddTableNA()
Dim NumRows As Integer
Dim NumCols As Integer
Dim J As Integer
Dim K As Integer
Dim ChkTxt As String

If Not Selection.Information(wdWithInTable) Then
Exit Sub
End If

NumRows = Selection.Tables(1).Rows.Count
NumCols = Selection.Tables(1).Columns.Count

'Loop to select each row in the current table
For J = 1 To NumRows
'Loop to select each cell in the current row
For K = 1 To NumCols
'Select the cell to check
Selection.Tables(1).Rows(J).Cells(K).Select
'Copy any text in the cell
ChkTxt = Selection.Text
'Strip off the last 2 characters (removes end of cell marker)
ChkTxt = Left(ChkTxt, Len(ChkTxt) - 2)
'If empty, add "n/a" text
If (ChkTxt = "") Then Selection.TypeText ("N/A")
Next K
Next J
End Sub
|
This code DOES NOT WORK!!!! but it's as close as I can get to better explain what I am envisioning SO IT NEEDS SOMEONE WHO CAN CODE VBA to look at it.
|
Sub CanWePutSomethingInEveryCellOfATable()
' Sub PutSomethingInEveryCellOfATable()
'Combine two macros:
' https://wordribbon.tips.net/T013265_Putting_Something_in_Every_Cell_of_a_Table.html
' https://www.techrepublic.com/article/pro-tip-ways-to-convert-word-tables-to-text/
Dim tbl As Table
Dim NumRows As Integer
Dim NumCols As Integer
Dim J As Integer
Dim K As Integer
Dim ChkTxt As String
For Each tbl In ActiveDocument.Tables
'Loop to select each row in the current table
For J = 1 To NumRows
'Loop to select each cell in the current row
For K = 1 To NumCols
'Select the cell to check
Selection.Tables(1).Rows(J).Cells(K).Select
'Copy any text in the cell
ChkTxt = Selection.Text
'Strip off the last 2 characters (removes end of cell marker)
ChkTxt = Left(ChkTxt, Len(ChkTxt) - 2)
'If empty, add "n/a" text
If (ChkTxt = "") Then Selection.TypeText ("N/A")
Next K
Next J
Next
End Sub
|
Again, the above code DOES NOT WORK!!!! but it's as close as I can get to better explain what I am envisioning SO IT NEEDS SOMEONE WHO CAN CODE VBA to look at it.

So.... help? <grin>

Allen,
Out of curiosity, why strip TWO characters? Is there a danger of overwriting valid cell content?