Eliminar saltos específicos en Word
Tengo un texto teatral editado de esta manera.
LISANDRO.
¿Si sacaste eso de un libro?
GABRIEL.
Correcto.
Quisiera subir los textos de cada uno junto a su nombre, para que quede:
LISANDRO. ¿Si sacaste eso de un libro?
GABRIEL. Correcto.
¿Alguien podría indicarme un comando para ello y evitar hacerlos uno por uno?
Pruebe esta Macro
Public Sub Lisandro()
Dim rng As Range, x As Integer, i As Integer
X = ActiveDocument.Paragraphs.Count - 1
Debug.Print X
Tex = "<[A-Z][A-Z]*[A-Z]>"
For i = X To 1 Step -1
Set rng = ActiveDocument.Paragraphs(i).Range
If rng.Find.Execute(findText:=Tex, MatchWildcards:=True) = True Then
rng.Select
Selection.EndKey Unit:=wdLine
Selection.TypeText Text:=" "
Selection.Delete Unit:=wdCharacter, Count:=1
End If
Next
End Sub
