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를 텍스트와 함께 복사 할 때 저에게 효과적이었습니다.