'' Requires: A table in the Excel file to line up the bookmarks and named ranges '' Created: by Denis Wright ''============================================================================== Dim obj Excel As Object, _ obj Wbk As Object, _ obj Doc As Document Dim s Bookmark As String, _ s Wbk Name As String Dim s Range As String, _ s Sheet As String Dim BMRange As Range Dim bmk As Bookmark Dim i As Integer, _ j As Integer, _ k As Integer, _ bmk Count As Integer Dim v Names() Dim v Bookmarks() Dim dlg Open As File Dialog Dim bn Excel As Boolean On Error Go To Err_Handle The File Dialog object lets you pick a file for processing. The error handling routine at the end of the code launches Excel if it is not already running. If obj Wbk Is Nothing Then Set obj Wbk = obj Excel. Open(s Wbk Name) End If 'minimize the Excel window obj Excel. Another major frustration is that recording the Paste Special code to insert the Excel table as an enhanced metafile, was ignored by Word, which defaulted to inserting the table as a formatted Word table.Set obj Doc = Active Document 'check to see that the Excel file is open. Window State = -4140 'minimized 'switch to Excel, find range name that corresponds to the bookmark obj Excel. This is what we were trying to avoid because it changed the layout of the Word document.If you don't want to personalize your Google products, you can still use Google's cloud to store and sync your Chrome data without letting Google read any of your data. With a passphrase, you can use Google's cloud to store and sync your Chrome data without letting Google read it. Your synced data is always protected by encryption when it's in transit.When you change your sync passphrase, all your data is deleted from Google’s servers and all your synced computers and devices are signed out.If your i Pad is currently using an outdated operating system, connect it to the computer and update the i OS using i Tunes.
However, you may find that you have one or more of the following problems: There are articles showing how to push data from Excel to Word using VBA, [see the following], but I hadn’t come across any that used Word as the driver when I had a recent need to do this. Sub Refresh All Tables() ''============================================================================== '' Purpose: To refresh the current table in a Word document with new data from '' the corresponding range in an Excel document.This is for your own good; if someone had pulled from your alpha before you rebased, then you pushed your rebased changes to that alpha, their repo would be hosed, because the history would be different.If you are using Word to build a report that relies on Excel tables, you have a couple of ways to achieve it.When you sign in to Chrome, all your profile information is saved to your Google Account.If you don't want to sync everything, you can change what info is saved.Number = 429 Then 'excel not running; launch Excel Set obj Excel = Create Object("Excel. Number This code has been broken up into sections to help with describing its function.If you want to copy it as a single block, it is provided on this page.To create a bookmark, you do not create a changeset. It ires repository meta-data, and by default stays "local" (in your working copy).You can push and pull bookmarks themselves from remote repositories, if you wish.The code needed to meet some specific criteria: Note: The sheet name is required because Word cannot reference an Excel range without knowing which sheet the range is on. If you like to use 3-letter acronyms for your ranges, you will have problems updating this code to Office 2007 because the native format in 2007 goes out to column XFD, and Excel won't let you use column or cell references as range names. '' The code uses bookmarks in the Word document and corresponding named ranges in '' Excel. This has the advantage that any '' formatting in the Excel document is retained, and the dimensions don't change '' significantly. Workbooks(i) Exit For End If Next Now we minimize the Excel window and hide the application. The first uses the Bookmarks table in the Excel file; the second contains the names of all bookmarks in the active Word document. Value 'loop through the bookmarks bmk Count = Active Document. Count Re Dim v Bookmarks(bmk Count - 1) j = LBound(v Bookmarks) For Each bmk In Active Document. Name j = j 1 Next bmk This section loops through all the bookmarks in the array, retrieving the Excel tables and pasting them into the word document.'' Also, bookmarks are simpler to create and maintain because a picture is only a '' single character in a Word document. It could also be modified to ensure that they pick an Excel file with a table called Bookmarks, located on the List sheet. This section checks to see whether the selected file is already open; if not, it is opened. We also set an object reference to the Excel workbook, to simplify the code later on. A few points are worth commenting on: There are some quirks to using pictures with bookmarks.