Word - convertir tablas en texto

convertir tablas en texto

Publicado por Willy (5 intervenciones) el 25/03/2016 02:47:06

Holas comunidad.

Tengo un tedioso trabajo, debo convertir tablas de un documento en texto.
Es tedioso porque ya me canse de seleccionar la tabla, hacer clic en menu: presentación/datos/convertor a texto y lo demas.
Son muchas tablas en cada documento. Como hago para convertir las tablas (solo las tablas en texto) de una vez y no una por una. No puedo hacer Ctrl+E, Ctrl+C y llevarlo a bloque de notas o borrar formato, porque el documento tiene otras letras con diferentes fuentes, colores y tamaños q debo respetar.
Quice reemplazar formato con Ctrl+L, pero no encuentro la opcion de tabla.

Ayuda por favor.
Gracias por todo

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 1

Val: 2.194

convertir tablas en texto

Publicado por wordexperto.com (1180 intervenciones) el 25/03/2016 11:11:20

Hola Willy:
Prueba estos dos códigos, ambos usan Tabuladores para separar el texto. Si quieres usar otro, usa:
wdSeparateByDefaultListSeparator
wdSeparateByParagraphs
wdSeparateByCommas
Este es el primero:

Sub TablesToText()

    Dim tbl As Table

    For Each tbl In ActiveDocument.Tables

        tbl.ConvertToText

        Separator:=wdSeparateByTabs

    Next tbl

    Set tbl = Nothing

End Sub

o este otro

Sub AllTablesToText()

    Dim Tbls As Long

    Dim J As Long

    Tbls = ActiveDocument.Tables.Count

    For J = Tbls To 1 Step –1

        ActiveDocument.Tables(J).ConvertToText Separator:=wdSeparateByTabs

    Next J

End Sub

http://wordexperto.com/

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

como crear un auto guardado con texto en word?

DISEÑO DE IMPRESIÓN