Moshe tiene un documento de Word que fue editado por un editor de copias. En cualquier lugar donde el editor haya insertado un comentario, comienza con un paréntesis izquierdo, seguido de «ed note:», luego la nota y finalmente un paréntesis derecho.

Para los procesos internos de Moshe, es más ventajoso tener estas notas como comentarios reales de Word. Se pregunta si hay alguna forma de automatizar la búsqueda de estas notas en el texto y convertirlas en comentarios de Word.

La forma de automatizar este proceso es mediante el uso de una macro. La macro puede depender de las capacidades de Buscar y Reemplazar de Word, pero agrega algo de procesamiento cada vez que se encuentra un comentario coincidente.

Sub NoteToComment()

Dim sTemp As String

Selection.HomeKey Unit:=wdStory

With Selection.Find         .ClearFormatting         .Text = "\(ed note:*\)"

.Replacement.Text = ""

.Forward = True         .Wrap = wdFindStop         .MatchWildcards = True     End With

Do While Selection.Find.Execute         sTemp = Selection.Text         sTemp = Mid(sTemp, 10, Len(sTemp) - 11)

sTemp = Trim(sTemp)

Selection.Text = ""

Selection.MoveEnd unit:=wdCharacter         Selection.MoveStart unit:=wdCharacter, Count:=-1         If Selection.Text = "  " Then Selection.Text = " "

Selection.Collapse         ActiveDocument.Comments.Add Range:=Selection.Range, Text:=sTemp     Loop End Sub

La macro primero se mueve al principio del documento, luego establece las condiciones para la búsqueda. Lo que se busca es el patrón que anotó Moshe — un paréntesis izquierdo, seguido de «nota ed:», luego la nota y finalmente un paréntesis derecho — esta secuencia se asigna a la propiedad .Text del objeto Find. Tenga en cuenta que cada paréntesis tiene una barra invertida delante. Si estas barras invertidas no estuvieran incluidas, Word consideraría los paréntesis como caracteres de control en el patrón de búsqueda. Además, la propiedad .MatchWildcards se establece en True para que la propiedad .Text se trate como un patrón de búsqueda.

En el ciclo Do While, que se ingresa cada vez que se encuentra un comentario coincidente, la variable sTemp se establece en el texto del comentario. Los primeros 9 caracteres se eliminan (estos son «(nota del editor:») junto con el último paréntesis derecho. El comentario se elimina del documento y si quedan varios espacios después de la eliminación, también se eliminan.

Finalmente, se agrega un comentario real que contiene el texto en la variable sTemp.

Hay una cosa para recordar cuando se usa esta macro: depende de hacer coincidir el patrón de comentario correctamente. Esto significa que si hay algunos comentarios que no siguen exactamente el patrón, es posible que no se encuentren ni se conviertan (por ejemplo, si hay un espacio después del paréntesis izquierdo de apertura). Además, si los comentarios en el documento contienen comentarios entre paréntesis dentro del comentario (en otras palabras, hay paréntesis anidados en el comentario), que estropearán lo que se encuentra en la búsqueda con comodines y lo que posteriormente termina en el comentario.

_Nota : _

Si quieres saber cómo nos e 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). Este consejo (1797) se aplica a Microsoft Word 2007, 2010, 2013 y 2016.