Problem trying to wrap a Microsoft Word paragraph in XML tags?!? :/

Question

Hello everyone. I really hope this is not a big problem and that some of your could help. I wrote a Macro in VBA like a year ago that was intented to put a tag before every single paragraph in a document. The logic validates that the paragraph have no other tag before putting one. All of this is based in styles. Some font styles would end up with different tags. This is my code and it works:

Sub edictos()
'
'
' Edictos de El Nuevo Día
' 06/20/2005 by Carlos Stella Sistemas de Información
' Actualización 08/08/2012
'------------------------------------------------------

'Ver 2.0 made by Samuel Otero -> 07/26/2013

Dim oPara As Paragraph
Dim oRng As Range

'Borramos headers y footers
Call ClearHeaderFooters

'Borramos column breaks

 Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^n"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

'Lógica para poner los tags de Tera donde van
    For Each oPara In ActiveDocument.Paragraphs

        If oPara.Range.Style = "C10" Then
            If InStr(1, oPara.Range.Text, "(intro)") = 0 And _
               InStr(1, oPara.Range.Text, "(main)") = 0 And _
               InStr(1, oPara.Range.Text, "(capara)") = 0 Then
                oPara.Range.InsertBefore "(intro) "
            End If
        End If
        If oPara.Range.Style = "J10" Then
            If InStr(1, oPara.Range.Text, "(intro)") = 0 And _
               InStr(1, oPara.Range.Text, "(main)") = 0 And _
               InStr(1, oPara.Range.Text, "(capara)") = 0 Then
                oPara.Range.InsertBefore "(intro) "
            End If
        End If
        If oPara.Range.Style = "J12" Then
            If InStr(1, oPara.Range.Text, "(intro)") = 0 And _
               InStr(1, oPara.Range.Text, "(main)") = 0 And _
               InStr(1, oPara.Range.Text, "(capara)") = 0 Then
                oPara.Range.InsertBefore "(intro) "
            End If
        End If
        If oPara.Range.Style = "LE" Then
            If InStr(1, oPara.Range.Text, "(intro)") = 0 And _
               InStr(1, oPara.Range.Text, "(main)") = 0 And _
               InStr(1, oPara.Range.Text, "(capara)") = 0 Then
                oPara.Range.InsertBefore "(main) "
            End If
        End If
        
        If oPara.Range.Style = "XL" Then
            If InStr(1, oPara.Range.Text, "(intro)") = 0 And _
               InStr(1, oPara.Range.Text, "(main)") = 0 And _
               InStr(1, oPara.Range.Text, "(capara)") = 0 Then
                oPara.Range.InsertBefore "(main) "
            End If
        End If
        
         If oPara.Range.Style = "MF" Then
            If InStr(1, oPara.Range.Text, "(intro)") = 0 And _
               InStr(1, oPara.Range.Text, "(main)") = 0 And _
               InStr(1, oPara.Range.Text, "(capara)") = 0 Then
                oPara.Range.InsertBefore "(main) "
            End If
        End If
        
    If oPara.Range.Style = "HG" Then
            If InStr(1, oPara.Range.Text, "(intro)") = 0 And _
               InStr(1, oPara.Range.Text, "(main)") = 0 And _
               InStr(1, oPara.Range.Text, "(capara)") = 0 Then
                oPara.Range.InsertBefore "(main) "
            End If
        End If
        
        If oPara.Range.Style = "LW" Then
            If InStr(1, oPara.Range.Text, "(intro)") = 0 And _
               InStr(1, oPara.Range.Text, "(main)") = 0 And _
               InStr(1, oPara.Range.Text, "(capara)") = 0 Then
                oPara.Range.InsertBefore "(main) "
            End If
        End If
        
        If oPara.Range.Style = "J8" Then
            If InStr(1, oPara.Range.Text, "(intro)") = 0 And _
               InStr(1, oPara.Range.Text, "(main)") = 0 And _
               InStr(1, oPara.Range.Text, "(capara)") = 0 Then
                oPara.Range.InsertBefore "(main) "
            End If
        End If
        
' Agarrando texto sin estilo >_>
   
        If oPara.Range.Font.Size <= 6 Then
            If InStr(1, oPara.Range.Text, "(intro)") = 0 And _
               InStr(1, oPara.Range.Text, "(main)") = 0 And _
               InStr(1, oPara.Range.Text, "(capara)") = 0 Then
                oPara.Range.InsertBefore "(main) "
            End If
        End If


        If oPara.Range.Font.Size = 8 Then
            If InStr(1, oPara.Range.Text, "(intro)") = 0 And _
               InStr(1, oPara.Range.Text, "(main)") = 0 And _
               InStr(1, oPara.Range.Text, "(capara)") = 0 Then
                oPara.Range.InsertBefore "(capara) "
                oPara.Range.InsertParagraphBefore
                oPara.Range.InsertBefore "(start) "
            End If
        End If
        If oPara.Range.Font.Size = 10 Then
            If InStr(1, oPara.Range.Text, "(intro)") = 0 And _
               InStr(1, oPara.Range.Text, "(main)") = 0 And _
               InStr(1, oPara.Range.Text, "(capara)") = 0 Then
                oPara.Range.InsertBefore "(intro) "
            End If
        End If

 

    Next oPara
 
        
'Con esto borramos el primer espacio del documento (evitamos una línea demás en los edictos)
Selection.HomeKey Unit:=wdStory
Selection.MoveDown Unit:=wdLine, Count:=2
Selection.MoveRight Unit:=wdCharacter, Count:=8
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
   
   

'Crea el .txt para ser importado a Tera
    ChangeFileOpenDirectory "C:\edictos\"
    ActiveDocument.SaveAs FileName:="C:\edictos\Edictos.txt", FileFormat:= _
                          wdFormatText, AddToRecentFiles:=True, _
                          WritePassword:="", EmbedTrueTypeFonts:=False, _
                          SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
                          False, Encoding:=1252, InsertLineBreaks:=False, AllowSubstitutions:=False, _
                          LineEnding:=wdCRLF
                          
                                  

    
    MsgBox "Proceso completado", 0, "Yay!"
                         
       ActiveDocument.Close

End Sub

As you see, it ends up saving a .txt document with the tags.

NOW... the issue is that the tags wont work anymore in the new system, and I need to wrap the paragraph in XML Tags. I tried to do something like for styles:

 If oPara.Range.Style = "LW" Then
            If InStr(1, oPara.Range.Text, "<intro>") = 0 And _
               InStr(1, oPara.Range.Text, "<main>") = 0 And _
               InStr(1, oPara.Range.Text, "<capara>") = 0 Then
                oPara.Range.InsertAfter "</main> "
                oPara.Range.InsertBefore "<main> "
            End If
        End If

But it just would add the two tags before the paragraphs!!! Is there anyway to wrap the paragraph in XML tags, following my logic? Somebody help please!! Thank you!! :/

Answer 1

Hi,

Sorry for my delay.

I am afraid that this is not the proper forum for this issue, and I found that you have posted it in dedicated forum.

http://social.msdn.microsoft.com/Forums/office/en-US/8dad5670-d90b-4ea8-abe2-bc785a2368ca/problem-trying-to-wrap-a-microsoft-word-paragraph-in-xml-tags-?forum=worddev#8dad5670-d90b-4ea8-abe2-bc785a2368ca

I would suggest you focus on that thread to get more dedicated support.

Thanks for your understanding.

Regards.

---

We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click HERE to participate the survey.

Answer 2

You are right. Sorry and thank you.