![]() |
#7
|
||||
|
||||
![]()
Try this version. If it works then we can look at speeding it up
Code:
Sub HideUnwantedRows2() Dim sText As String, aTbl As Table, aHL As Hyperlink, aCell As Cell Dim iRow As Integer, aRng As Range, aRngTgt As Range, aRow As Row Dim sRefs As String, aRowRng As Range, sTag As String ActiveDocument.Range.Font.Hidden = False sText = InputBox("What text are you searching for?") For Each aTbl In ActiveDocument.Tables 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 Each aRow In aTbl.Rows If Not InStr(aRow.Range.Text, sText) > 0 Then aRow.Range.Font.Hidden = True Else Set aCell = aRow.Cells(aRow.Cells.Count) sRefs = sRefs & "|" & Split(aCell.Range.Text, vbCr)(0) 'builds a list of all the wanted refs End If Next aRow Set aRng = Nothing Else If Not aRng Is Nothing Then 'hide both tables aRng.End = aTbl.Range.End aRng.Font.Hidden = True Set aRng = Nothing Else 'last table is standalone 'Debug.Print sRefs For Each aRow In aTbl.Rows sTag = Split(aRow.Cells(1).Range.Text, vbCr)(0) 'Debug.Print sTag aRow.Range.Font.Hidden = Not InStr(sRefs, sTag) > 0 Next aRow End If End If Next aTbl With ActiveWindow.View .ShowAll = False .ShowHiddenText = False End With End Sub
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
|
![]() |
||||
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 |