Cuestión : La indexación de direcciones de los archivos de la palabra 2007, líneas de rotura se quita

¡Hola! el
i tiene un problema con el iFilter, indexación de direcciones del
By de offfiltx.dll (versión 2010.1400.4746.1000) de los archivos de .docx que la línea roturas será… el
I.e. nos dejó tiene un docx con la indexación de direcciones del
Three Four

After del
One dos del texto nosotros el problema del

Similar del have
One TwoThree cuatro… es rel= fijado " nofollow " del " _blank " del target= de " http://stackoverflow.com/questions/1939187/word-ifilter-for-docx-parser-error " del href= del here
el
del uestions/1939187/word-ifilter-for-docx-parser-error
but de http://stackoverflow.com/q class= del

Respuesta : La indexación de direcciones de los archivos de la palabra 2007, líneas de rotura se quita

Intentar esto:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

Sub ShowColumnInfo ()
 
Amortiguar el doc. como documento
Amortiguar i como número entero
Amortiguar el Sec como sección
Amortiguar el str como secuencia, strColBk como secuencia
 
    Fijar doc. = ActiveDocument
     
     
    Para cada Sec en el doc. Secciones
        i = i + 1
        Si (CInt (CountWordPhrase (i, doc.)) > 0) Entonces
            strColBk = CountWordPhrase (i, doc.)
            str = str y vbCrLf y “sección: ” y i y “columnas” y Sec.PageSetup.TextColumns.Count y “-” y “ColumnBreaks (” y strColBk y "),”
        Terminar si
    Después
 
    Rotura Info de la columna de MsgBox “: ” y str, vbInformation, “rotura Info de la columna por la sección”
     
 
Submarino del extremo
 
Función privada CountWordPhrase (SecId como número entero, myDoc como documento) como secuencia
 
X dévil como secuencia
Y dévil como número entero
 
    En el curriculum vitae del error recomendado  después 'no realmente pero problemas puede suceder en hallazgos
 
    x = “^n”  'texto de la rotura de la columna
    
    myDoc.Sections (SecId). Range.Select
    Con Selection.Find
        Hacer mientras que. Ejecutar (FindText: =x, delantero: =True, formato: =True, _
           MatchWholeWord: el =True) = verdad
           y = y + 1
        Lazo
    Extremo con
 
    CountWordPhrase = CStr (y)
 
Función del final
Otras soluciones  
 
programming4us programming4us