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.
Public Const STR_XML_START As String = "<glossentry>" Public Const STR_XML_END As String = "</glossentry>" Public Const STR_XML_TERM As String = "<glossterm>" Public Const STR_XML_TERM_END As String = "</glossterm>" Public Const STR_XML_DEF As String = "<glossdef>" Public Const STR_XML_DEF_END As String = "</glossdef>" Sub SortItOut() Dim p As Paragraph Dim str As String For Each p In ActiveDocument.Paragraphs str = Trim(p.Range.Text) If InStr(1, str, "¬", vbTextCompare) > 0 Then p.Range.Text = STR_XML_START & vbCrLf & _ STR_XML_TERM & str & STR_XML_TERM_END & STR_VBCRLF & _ STR_XML_END str = "" End If Next p End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.