Learn how to provision tenants, synchronize on-premise Active Directory, implement Single Sign-On, customize Office deployment, and protect your organization with eDiscovery and DLP policies. Only from Platform Scholar.
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.