![]() |
|
#1
|
||||
|
||||
![]()
Rather than deleting the rows, I would recommend you hide them from view. The following code does that in the document you posted.
Code:
Sub HideUnwantedRows() Dim sText As String, aTbl As Table Dim iRow As Integer, aRng As Range sText = InputBox("What text are you searching for?") For Each aTbl In ActiveDocument.Tables aTbl.Range.Select If aTbl.Range.Paragraphs(1).Style = "Agente" Then Set aRng = aTbl.Range ElseIf InStr(aTbl.Range.Text, sText) > 0 Then 'if there is at least one row For iRow = aTbl.Rows.Count To 1 Step -1 If Not InStr(aTbl.Rows(iRow).Range.Text, sText) > 0 Then 'not this row aTbl.Rows(iRow).Range.Font.Hidden = True End If Next iRow Else If Not aRng Is Nothing Then 'hide both tables aRng.End = aTbl.Range.End aRng.Font.Hidden = True Set aRng = Nothing Else 'table is standalone aTbl.Range.Font.Hidden = True End If End If Next aTbl With ActiveWindow.View .ShowAll = False .ShowHiddenText = False End With End Sub
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
#2
|
|||
|
|||
![]() Quote:
I will take advantage of your good will... I have another task to do in this same document: If you see the tables with data, the last column will always be "Serv/Rec." and below that a link to a legend like "Ser02". If you go to the last table, there will the definition of this expression. I also have to keep this definition and hide (or delete) the rest that is not used. Is it still possible? If this is asking too much, I already thank you for life! This was really awesome. I'm studying to do this by myself. Thanks a lot for your code! |
![]() |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
Open file which contains specific words in title | Nick70 | PowerPoint | 2 | 06-08-2016 06:55 AM |
![]() |
jeffreybrown | Word VBA | 2 | 05-01-2016 06:05 PM |
Copying specific columns of a table to WORD and deleting rows | ffinley | Word VBA | 5 | 12-07-2015 04:01 PM |
Export calendar events from multiple calendars with specific title | rasmus | Outlook | 0 | 02-06-2015 01:58 AM |
Extracting specific rows | sbdk82 | Excel | 4 | 09-07-2014 10:24 PM |