Deleting a table with vertically merged cells if it contains certain text.

		Microsoft Office Forums > Microsoft Word > Word VBA
Deleting a table with vertically merged cells if it contains certain text.

FAQ

Thread Tools

Display Modes

10-30-2020, 12:45 AM

macropod

Windows 10 Deleting a table with vertically merged cells if it contains certain text.

Office 2010

Administrator

Join Date: Dec 2010

Location: Canberra, Australia

Posts: 22,525

Replace:
"Tree Number"
with:
"DelTbl"

and replace:

Code:

    If .Information(wdWithInTable) = True Then
      With .Cells(1)
        If .RowIndex > 1 Then
          If Split(.Range.Text, vbCr)(0) = StrFnd Then .Range.InsertBreak (wdColumnBreak)
        End If
      End With
    End If

with:

Code:

    If .Information(wdWithInTable) = True Then .Tables(1).Delete

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

« Previous Thread | Next Thread »

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Finding Tables with Vertically Merged Cells	T-Belle	Word VBA	10	07-19-2020 07:09 PM
Converting table to text (and back) with carriage returns in cells, split and merged cells	ndajko	Word	5	11-04-2019 07:53 AM
Format tables with vertically merged cells	jeffreybrown	Word VBA	2	01-16-2019 03:23 PM
Unmerging vertically merged cells	kilroy	Word VBA	5	01-12-2018 12:54 PM
Overcome issues in tables with vertically merged cells	rocky2	Word VBA	12	12-22-2016 03:03 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 05:57 PM.