They really need to convert it into a usable, database format (I'll even help them do it). This structure is just waiting to crash-in a very bad way. This is not a database, no matter how you define or use it. There is an office here at work that often refers to it "database"-which is really about 50 different MS Excel spreadsheets all linked together on a shared network location. A Word Document is not an Access Database-but it also has a completely different purpose. You also raise an important point, that the average office employee doesn't fully understand, that just because a document has information in it, it doesn't mean that information is useable. I do the same when working with some PowerPoint charts and graphs. Hopefully, readers will also understand that the reverse is also true, that one can modify Tables in MS Word using these principles. Thanks for the great primer on working with MS Word Tables using VBA. NOTE: Experts! Please let me know what I can do to make this small article any better. This is can modified and expanded in many ways, but in its simplest form that’s all there is too it. Rst.Close: Set rst = Nothing 'close and clear recordsetĭb.Close: Set rst = Nothing 'close and clear databaseĭoc.Close: Set doc = Nothing 'close and clear documentĪppWord.Quit: Set appWord = Nothing 'close and clear MS Word With doc.Tables(1) 'target table 1 in People.docxįor i = 2 To .Rows.Count 'cycle through rows in Tables(1) #Import word document table into excel for mac code
Set rst = dbs.OpenRecordset("tblPeople") 'establish the recordset I am trying to extract and import a number of tables from a word document (this number can vary between documents) There are normally only 2 columns of information (but on occasion can be more) I have the following code which will extract and import all the tables into my excel document. Set doc = (strDoc) 'establish the document StrDoc = CurrentProject.Path & "\People.docx" 'set string to document path and file Set appWord = CreateObject("Word.Application") 'establish an instance of word Dim appWord As Word.Application, doc As Word.Documentĭim dbs As DAO.Database, rst As DAO.Recordset, strDoc As String
0 kommentar(er)
