If you want to copy it as a single block, it is provided on this page.
A year ago we announced that Excel Online and each of the applications that make up Office Online were destined to become a comprehensive productivity experience on more browsers and devices—not just companions to the desktop applications.
Since then we’ve released several major updates and many minor updates, and today I’m sharing another significant step forward!
(Note that these changes will roll-out worldwide over the course of the next few days.) As I wrote in an earlier post, we have a prioritized list of features and functionalities based on customer feedback and market research.
'' 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.
'' 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.
For j = LBound(v Bookmarks) To UBound(v Bookmarks) 'go to the bookmark Selection. Copy Picture 1, -4147 'return to Word and paste obj Doc. ' If the bmk held text, deleting the selection removes the bmk too.