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 RedFlags() Dim sCheckDoc As String Dim docRef As Document Dim docCurrent As Document Dim wrdRef As String Dim wrdPara As Paragraph sCheckDoc = "c:\checklist.doc" Set docCurrent = Selection.Document Set docRef = Documents.Open(sCheckDoc) docCurrent.Activate Options.DefaultHighlightColorIndex = wdRed Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting Selection.Find.Replacement.Highlight = True With Selection.Find .ClearFormatting .Replacement.ClearFormatting .Replacement.Highlight = True .Replacement.Text = "^&" .Forward = True .Format = True .MatchWholeWord = True .MatchCase = False .MatchWildcards = False End With For Each wrdPara In docRef.Paragraphs wrdRef = wrdPara.Range.Text If Asc(Left(wrdRef, 1)) > 32 Then ' remove the paragraph mark: wrdRef = Left(wrdRef, Len(wrdRef) - 1) With Selection.Find .Wrap = wdFindContinue .Text = wrdRef .Execute Replace:=wdReplaceAll End With End If Next wrdPara docRef.Close docCurrent.Activate End Sub
|VBA to Delete the Filtered Rows in an Excel Table||3||32|
|Access 2010 drag and drop file to row on form only need relative path / filename of the file that was dragged.||12||41|
|Import text from rows into columns?||12||32|