Looking for a macro for word count in one specific column of table, only rows with white background

gmaxey · #1 10-16-2019, 05:03 AM

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim lngCount
Dim oCell As Cell
Dim oRng As Range
  For Each oCell In Selection.Tables(1).Range.Cells
    If oCell.Range.Information(wdEndOfRangeColumnNumber) = 2 Then 'or whatever column index you need
      If oCell.Shading.BackgroundPatternColor = wdColorAutomatic Then
        Set oRng = oCell.Range
        oRng.End = oRng.End - 1
        lngCount = lngCount + oRng.ComputeStatistics(wdStatisticWords)
      End If
    End If
  Next
  MsgBox lngCount
lbl_Exit:
  Exit Sub
End Sub

mobj · #2 10-17-2019, 03:09 AM

Quote:

Originally Posted by gmaxey

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim lngCount
Dim oCell As Cell
Dim oRng As Range
  For Each oCell In Selection.Tables(1).Range.Cells
    If oCell.Range.Information(wdEndOfRangeColumnNumber) = 2 Then 'or whatever column index you need
      If oCell.Shading.BackgroundPatternColor = wdColorAutomatic Then
        Set oRng = oCell.Range
        oRng.End = oRng.End - 1
        lngCount = lngCount + oRng.ComputeStatistics(wdStatisticWords)
      End If
    End If
  Next
  MsgBox lngCount
lbl_Exit:
  Exit Sub
End Sub

Wow, thank you so much! Works like a charm - I simply chose the right column number, and now click on the table, shortcut key the macro, and type the word count into an excel spreadsheet. What used to take me almost 1 minute per document now takes 5 seconds. Thank you!!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to delete table rows based on the absence of a single specific keyword	JellehFishh	Word VBA	2	06-27-2019 08:23 AM
Macro delete table rows if cell in first column = $	Btop	Word VBA	7	02-13-2018 05:36 PM
Macro Help Needed - White Background & PDF	PJinNH	Word VBA	3	05-04-2017 04:58 PM
Count # of times "text" is in 1 column is specific date is in the other column	ann.acornacchio	Excel	4	12-31-2016 05:40 PM
Copying specific columns of a table to WORD and deleting rows	ffinley	Word VBA	5	12-07-2015 04:01 PM