¿Cómo copio las tablas de Word en Excel sin dividir las celdas en varias filas?

33

Tengo datos en una tabla de Word que incluye saltos de línea y párrafo. Cuando copio los datos en Excel, divide cada línea y párrafo que quiero en varias celdas. ¿Cómo copio los datos a Excel y mantengo los descansos?

microsoft-excel microsoft-word skia.heliou
fuente

Respuestas:

39

Tendrás que hacer un poco de reemplazo de personaje. Es una solución bastante simple.

En palabra:

  1. Seleccione toda su tabla en Word.
  2. Abra el cuadro de diálogo "Buscar y reemplazar" (por ejemplo, escribiendo Ctrl+ H).
  3. En el campo "Buscar qué", ingrese ^l. Esto seleccionará todos los saltos de línea.
    • Puede seleccionar saltos de párrafo ingresando ^p.
  4. En el campo "Reemplazar con", ingrese ^v.
    • Este es un acceso directo para el símbolo de párrafo ¶, también conocido como "pilcrow".
    • Es posible que desee reemplazar las marcas de párrafo con dos almohadillas para facilitar su reemplazo más adelante.
  5. Haga clic en "Reemplazar todo".
  6. Copie los datos de la tabla al portapapeles.

En Excel:

  1. Pegue su tabla en la ubicación deseada en Excel.
  2. Con los datos tabulares seleccionados, abra el cuadro de diálogo "Buscar y reemplazar" (de nuevo, Ctrl+ Hfunciona).
  3. En el campo "Buscar qué", ingrese el siguiente código Alt: Alt+ 0182. Aparece un pilcrow.
    • Para ingresar un código Alt, mantenga presionada la Alttecla mientras escribe los dígitos en el teclado numérico. Puede ser útil tenerlo Num Lockencendido.
  4. En el campo Reemplazar, ingrese el siguiente código Alt: Alt+ 0010.
    • Este código ingresa en un solo salto de línea. No aparece nada, aunque su cursor puede cambiar.
  5. Haga clic en "Reemplazar todo".

Referencias

skia.heliou
fuente
Esta respuesta (con diferencias triviales y estéticas) apareció en Microsoft.com en Retener celdas de varias líneas al pegar la tabla de Word en Excel . Y, por cierto, encuentro que (Alt) +010 es lo suficientemente bueno; No necesito los dos ceros a la izquierda.
G-Man dice 'reinstalar a Mónica' el
@ G-Man Ja ... ¡si tan solo lo hubiera encontrado antes! Lástima que no estaba trabajando en Office 2007 en ese momento. Además, ¿te refieres al primer cero (Alt + 010) o los dos primeros (Alt + 10)?
skia.heliou
Gracias. Obtuve todos los pasos para trabajar en una Mac (en Excel 15) excepto el último. No pude ingresar el alt-0010 o el salto de línea. ¿Alguna sugerencia? Intenté copiar y pegar un salto de línea desde otra fuente, así como algunos otros trucos.
JayCrossler
Office 2013 aquí, esto no funciona. Todavía obtengo varias filas en Excel después del reemplazo.
Neil
17

Hay una manera más fácil.

Si tiene una cuenta de Google Gmail, puede abrir Google Drive, crear una nueva hoja de cálculo y luego copiar toda la tabla de Microsoft Word en la hoja de cálculo de Google. Una vez que lo tenga en el formato deseado, puede copiar la tabla en Microsoft Excel.

Abe Basani
fuente
55
... o ... solo déjalo en Drive :)
GreenAsJade
Tuve que copiar de Word a Google Doc y luego de Google Doc a Google Sheet (de lo contrario, los saltos de línea desaparecerían). +1 de todos modos
user2518618
1

Descubrí que puedes usar LibreOffice Calc.

  1. Seleccione su tabla de Word
  2. Dupdo
  3. En LibreOffice Calc, pegue especial como HTML
  4. Guarda en tu formato favorito

Su tabla no se dividirá en varias celdas.

Muelle
fuente
Funciona bien para entrar en LibreOffice Calc. Y luego para pasar de Calc a Excel: 1. selecciona tu tabla de Calc 2. Copia 3. En Microsoft Excel, Pega Especial como DIF
Paul Gobée
0

Hice una función vba para eliminar la nueva línea que causaba que las celdas se dividieran en Excel antes de copiar en Excel.

sub RemoveNewLinesFromTabelCells (tblnumber como entero)
'eliminar nueva línea de cada celda en la tabla seleccionada tabla por número de tabla
  tenue x tan largo, y tan largo, conteo de columnas tan largo, conteo de filas tan largo
  columncount = Activedocument.Tables (tblNumber) .Range.Columns.Count
  rowcount = Activedocument.Tables (tblNumber) .Range.Rows.Count
  para x = 1 al recuento de filas
     para y = 1 al recuento de columnas
        ActiveDocument.Tables (tblNumber) .cell (x, y) .Range.Text = Reemplazar (ActiveDocument.TAbles (tblNumber) .cell (x, y) .Range.Text, Chr (13, "")
     siguiente
  siguiente x
final sub
codecaína
fuente