Did you know SD-WANs can improve network connectivity? Check out this webinar to learn how an SD-WAN simplified, one-click tool can help you migrate and manage data in the cloud.
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.