![]() TableNo = InputBox("This Word document contains " & TableNo & " tables." & vbCrLf & _ MsgBox "This document contains no tables", _ Set wdDoc = GetObject(wdFileName) 'open Word file If wdFileName = False Then Exit Sub '(user cancelled import file browser) "Browse for file containing table to be imported") ![]() WdFileName = Application.GetOpenFilename("Word files (*.docm),*.docm",, _ Sub ImportWordTable()ĭim TableNo As Integer 'table number in Wordĭim iCol As Integer 'column index in Excel Here is my current code for a table that isn't merged. I am having trouble exporting a merged word table to excel.
0 Comments
Leave a Reply. |