Word - convertir tablas en texto

   
Vista:
Imágen de perfil de Willy

convertir tablas en texto

Publicado por Willy (2 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 claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de wordexperto.com

convertir tablas en texto

Publicado por wordexperto.com (234 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:
1
2
3
4
5
6
7
8
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
1
2
3
4
5
6
7
8
9
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 claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar