Yes, some window dressing wouldn't hurt:
Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey, http://gregmaxey.com/word_tips.html, 9/7/2017
Dim oRng As Range
Dim strIndexes As String
Dim oDocTemp As Document
Set oRng = Selection.Range
Application.ScreenUpdating = False
strIndexes = InputBox("Enter the document table index number e.g., " _
& "2 (for second table in document) followded by a comma then the column " _
& "index number e.g, 2,3 (for the third column in second table)", "Table/Column Index")
On Error GoTo Err_Indexes
If IsNumeric(Split(strIndexes, ",")(0)) And IsNumeric(Split(strIndexes, ",")(1)) Then
ActiveDocument.Tables(Split(strIndexes, ",")(0)).Columns(Split(strIndexes, ",")(1)).Select
Selection.Copy
Set oDocTemp = Documents.Add(, , , False)
oDocTemp.Range.Paste
MsgBox oDocTemp.Range.ComputeStatistics(wdStatisticWords)
oDocTemp.Close wdDoNotSaveChanges
Application.ScreenUpdating = True
oRng.Select
Else
Err_Indexes:
MsgBox "Invalid table\column index"
If Not oDocTemp Is Nothing Then oDocTemp.Close wdDoNotSaveChanges
End If
lbl_Exit:
Exit Sub
End Sub