excel - tipos - insertar filas y columnas en word 2013

¿Cómo agregar filas a una tabla de Word fusionada?

Question

Así es como se ve la mesa.

Código:

Sub WordTableTester()
Dim CurrentTable As table
Dim wdDoc As Document
Dim Rw As Long, col As Long
Dim wdFileName
wdFileName = Application.GetOpenFilename("Word files (*.docx),*.docx", , "Please choose a file containing requirements to be imported")
If wdFileName = False Then Exit Sub ''(user cancelled import file browser)
Set wdDoc = GetObject(wdFileName) ''open Word file
With wdDoc
Set CurrentTable = wdDoc.Tables(1)
Rw = 9: col = CurrentTable.Columns.Count
wdDoc.Range(CurrentTable.Cell(Rw, 1).Range.start, _
CurrentTable.Cell(Rw, col).Range.start).Select
wdDoc.Application.Selection.InsertRowsBelow
End With
End Sub

Cuando ejecuto esto, Run-Time error ''5941'': The requested member of the collection does not exist. un mensaje de error: Run-Time error ''5941'': The requested member of the collection does not exist.

Nota: Estoy ejecutando una macro de Excel VBA e importando / agregando filas a una tabla en un documento de Word

Answer 1

Trabajar con filas combinadas en MS Word Table es un poco complicado.

¿Es esto lo que quieres?

Sub Sample()
Dim CurrentTable As Table
Dim wdDoc As Document
Dim Rw As Long, col As Long
Set wdDoc = ActiveDocument ''<~~ Created this for testing
Set CurrentTable = wdDoc.Tables(1)
Rw = 9: col = CurrentTable.Columns.Count
wdDoc.Range(CurrentTable.Cell(Rw, 1).Range.Start, _
CurrentTable.Cell(Rw, col).Range.Start).Select
wdDoc.Application.Selection.InsertRowsBelow
End Sub

Captura de pantalla

Editar

El formato de tu mesa está completamente estropeado. La tabla se creó con pocas filas y luego las celdas se fusionaron / dividieron para crear nuevas filas y, por lo tanto, recibía el error. Además, ya que está automatizando la palabra de Excel, lo recomendaría de la siguiente manera.

Prueba esto

Sub WordTableTester()
Dim oWordApp As Object, oWordDoc As Object, CurrentTable As Object
Dim flName As Variant
Dim Rw As Long, col As Long
flName = Application.GetOpenFilename("Word files (*.docx),*.docx", _
, "Please choose a file containing requirements to be imported")
If flName = False Then Exit Sub
Set oWordApp = CreateObject("Word.Application")
oWordApp.Visible = True
Set oWordDoc = oWordApp.Documents.Open(flName)
Set CurrentTable = oWordDoc.Tables(1)
Rw = 7: col = CurrentTable.Columns.Count
oWordDoc.Range(CurrentTable.Cell(Rw, 1).Range.Start, _
CurrentTable.Cell(Rw, col).Range.Start).Select
oWordDoc.Application.Selection.InsertRowsBelow
End Sub