Sub ShowColumnInfo ()
Escurecer o doc como o original
Escurecer i como o inteiro
Escurecer o segundo como a seção
Escurecer o estreptococo como a corda, strColBk como a corda
Ajustar doc = ActiveDocument
Para cada segundo no doc. Seções
i = i + 1
Se (CInt (CountWordPhrase (i, doc)) > 0) Então
strColBk = CountWordPhrase (i, doc)
estreptococo = estreptococo & vbCrLf & “seção: ” & i & “colunas” & Sec.PageSetup.TextColumns.Count & “-” & “ColumnBreaks (” & strColBk & "),”
Terminar se
Em seguida
Informação da ruptura coluna de MsgBox da “: ” & estreptococo, vbInformation, “informação da ruptura da coluna por a seção”
Submarino da extremidade
Função confidencial CountWordPhrase (SecId como o inteiro, myDoc como o original) como a corda
X não ofuscante como a corda
Y não ofuscante como o inteiro
No resumo do erro recomendado em seguida 'não realmente mas nos problemas pode acontecer em achados
x = “^n” 'texto da ruptura da coluna
myDoc.Sections (SecId). Range.Select
Com Selection.Find
Fazer quando. Executar (FindText: =x, para diante: =True, formato: =True, _
MatchWholeWord: o =True) = retifica
y = y + 1
Laço
Extremidade com
CountWordPhrase = CStr (y)
Função do fim
|