Macro para eliminar fácilmente saltos de línea y espacios en blanco excesivos en Microsoft Word

0

 


Código:


Sub EliminarEspaciosSaltosDeLinea()

    Dim R As Range, C As Variant

    Set R = Selection.Range

    C = Array("^p", "^w")

    For Each Char In C

        With R.Find

            .ClearFormatting

            .Replacement.ClearFormatting

            .Text = Char

            .Replacement.Text = " "

            .Forward = True

            .Wrap = wdFindStop

            .Format = False

            .MatchCase = False

            .MatchWholeWord = False

            .MatchWildcards = False

            .MatchSoundsLike = False

            .MatchAllWordForms = False

        End With

        R.Find.Execute Replace:=wdReplaceAll

    Next Char

    R.Paragraphs.Alignment = wdAlignParagraphJustify

End Sub


Entradas que pueden interesarte

Entradas más recientes Entradas antiguas

Sin comentarios

Etiquetas:
#aprendiendoexcel365, #josealcaldealias, #Excel, #funciones, #UDF, #Visual Basic, #VBA, #DAX, #Tips, #Basico, #Microsoft Excel, #Cursos Excel OnLine, #Aprende Excel, #Aprende Excel OnLine, #Excel 365, #Power Pivot, #Power BI, #Power Query, #Google Sheets, #Macros, #Código VBA, #Tutoriales Excel, #MTV, #Vbscript, #TypeScript, #Lenguaje M, #fórmulas, #funciones, #paso a paso, #funciones Excel, #libros, #tablas, #formatos, #hojas, #datos, #gráfico, #análisis de datos, #base de datos, #dashboards, #tablas dinámicas, #excel desde cero, #hoja de cálculo, #plantillas de Excel