Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Sub Search_Table() Dim ht As Single Dim strLen As Integer Dim rng As Range Dim strFind As String 'The index number of the tables that have the string 'Single Products' have to be listed in a MsgBox at the End strFind = "Single Products" strLen = Len(strFind) Set rng = ActiveDocument.Range With rng .Find.ClearFormatting With .Find .Text = strFind .Execute End With Do If .Find.Found Then If rng.Information(wdWithInTable) Then MsgBox "String has been found" End If End If If Not .Find.Found Then MsgBox "String has not been found" End If rng.MoveStart strLen .Find.Execute Loop Until Not (.Find.Found) End With End Sub
|How to customise Office 2016 font settings with a GPO||3||98|
|Exclude superscript footnote numbers when changing the font color in a Word document||2||47|
|Create a text box form field in Word - up to 500 words?||3||21|
|Find fonts in Word 2010||32||52|