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をテキストとともにコピーすると、私にとってはうまくいきました。