Selection.Paste не сохраняя полное исходное форматирование

Question

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

Мой код выглядит следующим образом:

Set SmallDoc = Documents.Open("small.doc")
Selection.WholeStory
Selection.Copy

'Paste document content at bookmark
Set MasterDoc = Documents.Open("main.doc")
Selection.GoTo What:=wdGoToBookmark, Name:="placeToPaste"
Selection.Paste

Проблема:

Форматирование в основном сохраняется, за исключением того, что изображения передаются поперек и выглядят так, как будто они обрезаны.Есть ли способ сохранить весь исходный формат или какой-нибудь способ исправить эту проблему?

Answer 1

Хотя я не могу найти, возможно ли обеспечить сохранение исходного форматирования, в моем конкретном случае это помогло сохранить правильное отображение изображений:

'Opens and selects the current document
Dim CurrentDoc As Document
Set CurrentDoc = Documents.Open('c:/your/file/here.doc')
CurrentDoc.Select

'Cycle each image and change its formatting
For Each Pic In Selection.InlineShapes
    Pic.ConvertToShape.WrapFormat.Type = wdWrapSquare
Next

Answer 2

Попробуйте

Selection.PasteAndFormat wdFormatOriginalFormatting

Это сработало для меня при копировании TextBox (рисование) и JPEG вместе с текстом.