Word Macro to find and delete rows that contain adjacent cells containing "."

AlexanderJohnWilley · #1 11-07-2012, 10:07 AM

Hello,
I have tables of text that are pasted from excel to word as two column and multiple row tables

A number of the rows have no text and instead have "." just dots in both cells.
For these, I need word macro that will search through the table and find and delete the rows where both adjacent cells contain "." (no text)
thank you!

gmaxey · #2 11-07-2012, 10:29 AM

By "dots" do you mean blank space or do you mean periods "."?

If the former then try:

HTML Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRow As Word.Row
For Each oRow In Selection.Tables(1).Rows
  Do While oRow.Cells(1).Range.Characters.First = Chr(32)
    oRow.Cells(1).Range.Characters.First.Delete
  Loop
   Do While oRow.Cells(2).Range.Characters.First = Chr(32)
    oRow.Cells(2).Range.Characters.First.Delete
  Loop
  If Len(oRow.Range) = 6 Then
    oRow.Delete
  End If
Next
End Sub

AlexanderJohnWilley · #3 11-07-2012, 10:31 AM

Hello,
I have tables of text that are pasted from excel to word as two column and multiple row tables
A number of the rows have no text and instead have "." just dots in both cells.
For these, I need word macro that will search through the table and find and delete the rows where both adjacent cells contain "." (no text)
thank you!

AlexanderJohnWilley · #4 11-07-2012, 10:34 AM

thank you very much

I mean period: .

thanks

gmaxey · #5 11-07-2012, 10:41 AM

Then change the "32" (two places) to "46"

macropod · #6 11-07-2012, 02:04 PM

Try:

Code:

Sub Demo()
Dim i As Long, j As Long, Rng1 As Range, Rng2 As Range
With ActiveDocument
  For i = .Tables.Count To 1 Step -1
    With .Tables(i)
      For j = .Rows.Count To 1 Step -1
        With .Rows(j)
          Set Rng1 = .Cells(1).Range
          Rng1.End = Rng1.End - 1
          Set Rng2 = .Cells(2).Range
          Rng2.End = Rng2.End - 1
          If Rng1.Text = "." Then
            If Rng2.Text = "." Then
              .Delete
            End If
          End If
        End With
      Next
    End With
  Next
End With
End Sub

macropod · #7 11-07-2012, 05:05 PM

AlexanderJohnWilley: I've just merged your two threads (in different forums on this board) asking for help with the same issue.

I am not amused to find I've wasted my time answering a question I then find has been answered elsewhere - before you even posted the one I answered.

Kindly don't post the same question in multiple threads.

AlexanderJohnWilley · #8 11-08-2012, 10:15 AM

Dear All - thank you so much for your help

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
In Excel 2007-After Selecting Visibe Cells-How do I "Copy to Visible cells" Only	mag	Excel	0	10-28-2012 08:04 PM
How to "hard link" two adjacent cells to a data validation drop down list?	Geza59	Excel	10	10-19-2012 11:56 AM
'Linking' entered information to other "cells" from an original "cell" in MS Word	Wade	Word	6	09-03-2012 05:22 PM
Macro to delete rows with all empty cells	ubns	Excel Programming	2	08-14-2012 02:01 AM
Automated "Macro" to delete Tags/Anchors	field3	Word VBA	0	02-25-2009 02:53 PM