Bruce está buscando alguna forma de que Word marque automáticamente oraciones largas en un documento. Por ejemplo, es posible que desee tener esas oraciones con más de 20 palabras marcadas en algún color para que se puedan localizar fácilmente.

Afortunadamente, Word mantiene una colección de oraciones, accesible a través de VBA, que consta de cada oración en un documento. Puede examinar cada elemento de esta colección (cada oración individual) para determinar si es más largo de lo que desea. La siguiente macro proporciona un ejemplo de cómo se hace esto.

Sub Mark_Long()

Dim iMyCount As Integer     Dim iWords As Integer

If Not ActiveDocument.Saved Then         ActiveDocument.Save     End If

'Reset counter     iMyCount = 0

'Set number of words     iWords = 20

For Each MySent In ActiveDocument.Sentences         If MySent.Words.Count > iWords Then              MySent.Font.Color = wdColorRed             iMyCount = iMyCount + 1         End If     Next     MsgBox iMyCount & " sentences longer than " & _       iWords & " words."

End Sub

Observe que se examina cada oración, y si es más larga que la longitud deseada (definida por la variable iWords), la oración se cambia a un color de fuente rojo. Esto hace que sea más fácil examinar el documento y descubrir qué oraciones exceden la longitud especificada.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Esta sugerencia (11909) se aplica a Microsoft Word 2007, 2010, 2013, 2016, 2019 y Word en Office 365. Puede encontrar una versión de esta sugerencia para interfaz de menú anterior de Word aquí:

link: / word-Finding_Long_Sentences [Encontrar frases largas].