Вставить / отобразить двухстраничный объект Word в листе Excel

Question

Я пытаюсь взять двухстраничный документ Word и вставить его в лист Excel 2010 . Я не пытаюсь дать ссылку на оригинальный документ.

Пока что мне удалось вставить объект, но он отображает только первую страницу. Чтобы увидеть вторую страницу, я должен дважды щелкнуть на объекте, который затем переводит меня в режим редактирования. Изменение размера объекта не работает, независимо от того, нахожусь ли я в режиме редактирования или в обычном режиме.

Я искал документацию по этому и нашел эту ветку, но на самом деле не было решения. Что я не хочу делать, так это разделить мой документ на два отдельных файла, хотя на данный момент это выглядит так, будто это мой единственный вариант.

Кто-нибудь знает, как отобразить обе страницы документа Word на листе Excel не разбивая их на два отдельных файла? Кто-нибудь знает, возможно ли это вообще?

Answer 1

Есть трюк, который почти работает. Вы можете создать текстовое поле в Excel, а затем выделить весь текст в документе Word (Ctrl-A), скопировать его и вставить в текстовое поле Excel.

Графика и форматирование обычно не делают это через разрыв, но жирным шрифтом, ссылки, и т.д. Обычно делают.

Как я уже сказал, не идеальное решение, но если ваш текстовый документ больше текста, чем форматирования, вы должны быть ближе. Это единственный способ, которым я когда-либо смог получить больше чем одну страницу Word в Excel

Answer 2

Я справился с этой проблемой, изменив размер страницы в Word с A4 на нестандартный размер (максимально возможная длина). Это было тогда достаточно долго, чтобы, когда я вставил в Excel как объект, все это появилось. Мой оригинальный файл был длиной около двух страниц.

Answer 3

Хорошо, вот решение, на котором я остановился.

Я вложил документ Word в лист. Поскольку пользователь может прокручивать документ вниз, когда он находится в режиме редактирования, я использовал VBA, чтобы автоматически перевести объект в режим редактирования:

'This code is called from a button on a different sheet. It could also be put in _
'a Worksheet_SheetActivate instead or called from a button on the same sheet. 
Dim ws As Worksheet
Application.ScreenUpdating = False

Set ws = ThisWorkbook.Sheets("Sheet1")
With ws
    .Activate
    .Shapes.Range(Array("Object 7")).Select
    Selection.Verb Verb:=xlPrimary
End With
Application.ScreenUpdating = True

Таким образом, пользователю не нужно дважды щелкать объект, чтобы войти в режим редактирования ... это не идеальное решение, но это достойный обходной путь для моих целей.