VBA Word 2010迭代和比较，比较错误

我有这个密码。用于将第一段比较到表的单元格中，然后对单元格中的其余段落执行某些操作

Sub Preguntas()
Dim Tbl As Table, Cl As Cell, tipo As Integer, para As Paragraph, contador As Integer, textop As String, textor As String, aux As String
Dim switchm As String

   For Each Tbl In ActiveDocument.Tables
      For Each Cl In Tbl.Range.Cells
        'Variables a 0
        tipo = 0
        contador = 0
        textop = ""
        textor = ""
        switchm = "</div><div class=""arrastrable palabra2"">"
        'Andamos loas párrafos dentro de la celda
        For Each para In Cl.Range.Paragraphs

         <---------- THIS COMPARISON RETURNS ME ALWAYS FALSE-------->
           If para.Range.Text = "RELACIONAR " Then
                    tipo = 3
                Else
                        If para.Range.Text = "ARRASTRAR " Then
                            tipo = 2
                        Else
                            If para.Range.Text = "MANZANA-GUSANO " Then
                                tipo = 1

                            End If
                        End If
            End If
           <-----------------------END OF COMPARISON------------------->
            Select Case tipo
                Case 1
                    'Cogemos el párrafo como texto en aux
                    aux = para.Range.Text
                    'Realizarmos la llamada a Arrastra--USAMOS CALL PARA LLAMAR A PROCEDIMIENTOS QUE NO SEAN FUNCIONES
                    Call Manzana(textop, aux, contador)
                    'Incrementamos el contador
                    contador = contador + 1
                Case 2
                    'Cogemos el párrafo como texto en aux
                    aux = para.Range.Text
                    'Realizarmos la llamada a Arrastra--USAMOS CALL PARA LLAMAR A PROCEDIMIENTOS QUE NO SEAN FUNCIONES
                    Call Arrastra(textop, textor, aux, contador, switchm)
                    'Incrementamos el contador
                    contador = contador + 1
                Case 3
                    'Cogemos el párrafo como texto en aux
                    aux = para.Range.Text
                    'Realizarmos la llamada a Arrastra--USAMOS CALL PARA LLAMAR A PROCEDIMIENTOS QUE NO SEAN FUNCIONES
                    Call Relaciona(textop, textor, aux, contador)
                    'Incrementamos el contador
                    contador = contador + 1
            End Select

            Next para
            'El texto de la celda lo cambiamos al transformado
                Cl.Range.Text = textop + textor
                'Volvemos el contador a 0
                contador = 0
                'Volvemos el tipo a 0
                tipo = 0
           'Fin párrafos celdas
      Next Cl
   Next Tbl
End Sub

'Funcion ARRASTRAR a HTML
Sub Arrastra(textop As String, textor As String, ByVal aux As String, ByVal contador As Integer, switchm As String)
    Select Case contador
        Case 0
            textop = "<div class=""ejercicio_arrastrar""><div class=""comenzar_ejercicio_arrastrar"">Comenzar Actividad</div><div class=""content""><div class=""num_palabras_correctas""></div><span class=""texto_arrastra"">"
        Case 1
            textop = textop + aux + "</span><div class=""columnas""><div class=""parrafo palabra1""><div class=""texto"">"
        Case 2
            textop = textop + aux + "</div><div class=""suelta"" id=""sueltapalabra1""> arrastra...</div></div><div class=""parrafo palabra2""><div class=""texto"">"
        Case 3
            textor = textor + "<div class=""columna_der""><div class=""arrastrable palabra1"">" + aux
        Case 4
            textop = textop + aux + "</div><div class=""suelta"" id=""sueltapalabra2""> arrastra...</div></div><div class=""parrafo palabra3""><div class=""texto"">"
        Case 5
            switchm = switchm + aux + "</div></div><div class=""clear""></div><div class=""controls""><div class=""mensaje_feedback""></div><div class=""boton"">Comprobar</div></div></div></div>"
        Case 6
            textop = textop + aux + "</div><div class=""suelta"" id=""sueltapalabra3""> arrastra...</div></div></div>"
        Case 7
            textor = textor + "</div><div class=""arrastrable palabra3"">" + aux + switchm
    End Select

End Sub
'Funcion RELACIONA a HTML
Sub Relaciona(textop As String, textor As String, ByVal aux As String, ByVal contador As Integer)
    Select Case contador
        Case 0
            textop = "<div class=""ejercicio_unir""><div class=""comenzar_ejercicio"">Comenzar Actividad</div><div class=""content""><span class=""texto_arrastra"">"
        Case 1
            textop = textop + aux + "</span><!--------------- COLUMNA IZQUIERDA  --------------><div class=""columna_izq""><!--------------- Frase  --------------><div class=""frases""><div class=""texto""><span>"
        Case 2
            textor = textor + aux + "</span></div><div class=""clear""></div></div></div><div class=""clear""></div><div class=""controls""><div class=""mensaje_feedback""></div><div class=""boton"">Comprobar</div></div></div></div>"
        Case 3
            textop = textop + aux + "</span></div><div class=""cuadros""><input type=""text"" readonly=""readonly"" value=""1"" class=""pregunta match1""></div><div class=""clear""></div></div><!--------------- Frase  --------------><div class=""frases""><div class=""texto""><span>"
        Case 4
            textor = "<!--------------------- COLUMNA DERECHA  --------------------><div class=""columna_der""><!--------------- Frase  --------------><div class=""frases""><div class=""cuadros""><input type=""text"" class=""respuesta match2""></div><div class=""texto""><span>" + aux + "</span></div><div class=""clear""></div></div><!--------------- Frase  --------------><div class=""frases""><div class=""cuadros""><input type=""text"" class=""respuesta match1""></div><div class=""texto""><span>" + textor
        Case 5
            textop = textop + aux + "</span></div><div class=""cuadros""><input type=""text"" readonly=""readonly"" value=""2"" class=""pregunta match2""></div><div class=""clear""></div></div></div>"
    End Select
End Sub
'Funcion MANZANA-GUSANO a HTML
Sub Manzana(textop As String, ByVal aux As String, ByVal contador As Integer)
    Select Case contador
    Case 0
        textop = "<b>Arrastra la solución correcta al cubo</b><div class=""ee_logo""></div><div class=""ee_pregunta_arrastrar""><div class=""ee_enunciado""><b>"
    Case 1
        textop = textop + aux + "</b></div><div class=""ee_respuesta"">"
    Case 2
        textop = textop + aux + "</div><div class=""ee_respuesta ee_correcta"">"
    Case 3
        textop = textop + aux + "</b></div><div class=""ee_respuesta"">"
    Case 4
        textop = textop + aux + "</b></div><div class=""ee_feedback"">"
    Case 5
        textop = textop + aux + "</div></div>"
End Sub

Sub-Preguntas（）
Dim Tbl作为表格，Cl作为单元格，tipo作为整数，para作为段落，contador作为整数，textop作为字符串，textor作为字符串，aux作为字符串
我是字符串
对于ActiveDocument.Tables中的每个Tbl
对于Tbl.Range.Cells中的每个Cl
'变量a 0
tipo=0
康塔多=0
textop=“”
textor=“”
switchm=“”
“安达莫斯·洛阿斯·帕拉福斯·德特罗·德拉塞尔达
对于Cl.范围段落中的每个段落
如果para.Range.Text=“RELACIONAR”，则
tipo=3
其他的
如果para.Range.Text=“Arrastar”，则
tipo=2
其他的
如果para.Range.Text=“MANZANA-GUSANO”，则
tipo=1
如果结束
如果结束
如果结束
选择案例tipo
案例1
"这是一个很好的例子
aux=para.Range.Text
“认识到阿拉玛达的存在——我们把阿拉玛尔称为一个没有任何功能的过程
打电话给Manzana（textop、aux、contador）
“增量Amos el contador
康塔多=康塔多+1
案例2
"这是一个很好的例子
aux=para.Range.Text
“认识到阿拉玛达的存在——我们把阿拉玛尔称为一个没有任何功能的过程
呼叫Arrastra（textop、textor、aux、contador、switchm）
“增量Amos el contador
康塔多=康塔多+1
案例3
"这是一个很好的例子
aux=para.Range.Text
“认识到阿拉玛达的存在——我们把阿拉玛尔称为一个没有任何功能的过程
呼叫Relaciona（textop、textor、aux、contador）
“增量Amos el contador
康塔多=康塔多+1
结束选择
下一段
“celda lo cambiamos al transformado酒店
Cl.Range.Text=textop+textor
“Volvemos el contador a 0
康塔多=0
“Volvemos el tipo a 0
tipo=0
“Fin párrafos celdas
下一个Cl
下一个Tbl
端接头
'函数arrastar a HTML
子数组（textop作为字符串，textor作为字符串，ByVal aux作为字符串，ByVal contador作为整数，switchm作为字符串）
选择Case contador
案例0
textop=“Comenzar Actividad”
案例1
textop=textop+aux+“”
案例2
textop=textop+aux+“arrastra…”
案例3
textor=textor+“”+aux
案例4
textop=textop+aux+“arrastra…”
案例5
开关M=开关M+aux+“压缩机”
案例6
textop=textop+aux+“arrastra…”
案例7
textor=textor+“”+aux+switchm
结束选择
端接头
'函数RELACIONA HTML
子关系（textop作为字符串，textor作为字符串，ByVal aux作为字符串，ByVal contador作为整数）
选择Case contador
案例0
textop=“Comenzar Actividad”
案例1
textop=textop+aux+“”
案例2
textor=textor+aux+Comprobar
案例3
textop=textop+aux+“”
案例4
textor=”“+aux+“”+textor
案例5
textop=textop+aux+“”
结束选择
端接头
'函数MANZANA-GUSANO a HTML
Sub-Manzana（textop作为字符串，ByVal aux作为字符串，ByVal contador作为整数）
选择Case contador
案例0
textop=“Arrastra la solución correcta al-cubo”
案例1
textop=textop+aux+“”
案例2
textop=textop+aux+“”
案例3
textop=textop+aux+“”
案例4
textop=textop+aux+“”
案例5
textop=textop+aux+“”
端接头

其中一个单元格的第一段（复制粘贴的）是“Arrastar”，因此它们在某个时刻应该是正确的，但总是错误的

---

有人知道为什么吗

已解决。para.Range.Text的结尾带有一个奇怪的字符，类似于空格，但它不是

所以我做了MID（para.Range.Text，1，Len（para.Range.Text）-2）来删除最后2个字符（我想是CR和LF）。这样你只会比较短语或单词