qosaexperts.blogg.se

Then for all the tables present in the word doc accessing each row and column of the tables using the above mentioned code. I am running a table count on the word file. MsgBox "This document contains no tables", _

TableNo = '(Counting no of tables in the document) 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") '(Browsing for a file) The logic I am using is as follows - wdFileName = Application.GetOpenFilename("Word files (*.*),*.*",, _ ObjTemplateSheetExcelSheet.Cells(1, 2) = WorksheetFunction.Clean(.cell(iRow, iCol).Range.Text) Kindly let me know how I can edit this so as to preserve source formatting. Now i want to preserve the source formatting present in word doc. It is copying the text perfectly as desired. That style may or may not match the surrounding text.I am trying to copy some data from a word table to an excel sheet using a VB Macro. Option formats the text to match the style that’s applied where the text is pasted. Underscoring in the original was through a character style (i.e. The underscoring stays in the pasted text with Merge Formatting, but does not when Text Only is used. This is copy and paste formatting, but not the merge formatting button which is a paste option.Īll the original formatting from the text.Ĭhanges the formatting so that it matches the text that surrounds it.Īll work in Word should be on documents on a hard drive.

Now, do a copy operation on "Word2." Merge formatting the copied "Word2" to "Word1" will impart the boldĪnd underline attributes only resulting in "Word1" being in Arial font with bold and underline. "Word2" is in Times New Roman bold and underlines. Is in Arial font with no bold or underline. For example, let's say you have text that says, "Word1" and another that says "Word2." "Word1" "Merge formatting" means that only formatting data will be pasted and not the actual text.