Once you have connected with/created the Word instance, simply open the word file. Set oWordApp = CreateObject("Word.Application") Set oWordApp = GetObject(, "Word.Application") '~~> Establish an Word application object For example Sub Sample()ĭim oWordApp As Object, oWordDoc As Object I am using Late Binding where you do not need to add any references.ĭeclare your Word objects and then bind with either an existing instance of Word or create a new instance. To interact with Word from Excel, you can choose either Early Binding or Late Binding. ObjTemplateSheetExcelWkBk.SaveAs strFld & "\" & strFileName WorksheetFunction.Clean(.cell(iRow + 1, iCol + 1).Range.Text) ObjTemplateSheetExcelSheet.Cells(2, yourArray(arrycnt) + 1) = _
WorksheetFunction.Clean(.cell(iRow, iCol + 1).Range.Text) ObjTemplateSheetExcelSheet.Cells(2, yourArray(arrycnt)) = _ StrEach = WorksheetFunction.Clean(.cell(iRow, iCol).Range.Text) 'copy cell contents from Word table cells to Excel cells Set objTemplateSheetExcelSheet = (5) '(Selecting the desired tab) ("C:\Temp\Documents Page XX_US-VC Combo Template.xlsx") Set objTemplateSheetExcelApp = CreateObject("Excel.Application")
#SOURCE FORMATTING IN WORD CODE#
Ok I am attaching the remaining piece of code as well 'Creating TemplateSheet object 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. To show (or hide) the Paste Options button in Word 2003, click Tools > Options > Edit and check (or uncheck) "Show Paste Options buttons.I am trying to copy some data from a word table to an excel sheet using a VB Macro. Of course, many Word users consider this button a nuisance because it blocks material immediately surrounding the paste.
Choose Match Destination Formatting on the Paste Options button to avoid pasting the source document's formatting as well. You can also select a style or other formatting. Your other paste options are to Match Destination Formatting or to Keep Text Only. At least the Paste Options button that appears after you paste in Word 2003 (and Word 2002) does make it easy to make the change manually with each paste. Since the company I work for still uses Word 2003, we've got no such option because you can't change Word 2003's default Keep Source Formatting paste setting.
#SOURCE FORMATTING IN WORD HOW TO#
In the Cut, copy, and paste section, select Match Destination Formatting in the "Pasting from other programs" drop-down menu.Īn article on Microsoft's Word 2007 Help and How-To site describes how to control the formatting when you paste text between documents and within a document as well as from other programs. To do so, click the Office button and choose Word Options > Advanced. One of the best features Microsoft added to Word 2007 is the ability to change the program's default paste setting so added material adopts the formatting of the destination document. The resulting file was a formatting disaster that bore little resemblance to the template the document was allegedly based on. Unfortunately, the formatting of the source documents made the trip as well.
It seems the author pasted material into the file from several different applications. I spent several hours last week cleaning up the errant formatting in a complicated, 30-page Word document that was loaded with custom styles.
0 kommentar(er)
