Copying word table formats to excel using VBA

[mmussmann]

Hey all

First of all i would like to say this is my first ever VBA macro

Im working on a macro that goes through some word .docx documents and copies a word table.

The problem is i cant get it to copy the table formats over to excel, it copies all the text as it should but is loses all formating.

Cells((iCol + RowInc), iRow) = WorksheetFunction.Clean(wdDoc.tables(TableNo).cell(iRow, iCol).Range.Text)

This is the line i use to copy the data from word table cells to excel cells.


Is there a easy solution to making it transfer not just the cell information but also the cell format from word??

Eksample of the problem follows:

Table info in word:

Forudsætninger
• Der skal være etableret retningslinier for tildeling af udvidede rettigheder, evt. som del af IT-sikkerhedspolitikken.
• Der skal være udpeget en Administrator.


Same info in excel

ForudsætningerDer skal være etableret retningslinier for tildeling af udvidede rettigheder, evt. som del af IT-sikkerhedspolitikken. Der skal være udpeget en Administrator.



Thanks in advance for the help.

[mmussmann]

Dump, need help

[mmussmann]

still needs help .. havent had time to look at the problem again but if somebody can give me some input so i have something to work with before the weekend.

[T-J]

Hi

This works for me.

Please Login or Register  to view this content.