VBA를 사용하여 MS Word 문서에 페이지를 추가하면 추가 페이지가 추가됩니다.

Question

첫 페이지에 테이블이있는 매크로가있는 MS 워드 파일이 있습니다. (표는 라벨을 사용하여 생성됩니다).

하지만 표의 셀이 충분하지 않은 경우 유사한 표가있는 다른 페이지를 추가하고 싶습니다.

그래서 나는

ActiveDocument.Sections (1) .Range.Copy

ActiveDocument.Sections.Add.Range.Paste

그러나이 코드를 다음과 같이 코드를 시도하고있다 어떤 시간은 첫 번째 페이지의 형식을 변경합니다. 또한 첫 번째 내용이있는 두 번째 페이지가있는 세 번째 빈 페이지를 만듭니다.

첫 번째 페이지의 내용을 변경하지 않고 첫 번째 페이지의 내용이 동일한 페이지 (예 : ) 만 추가하는 방법을 알려줄 수 있습니까?

감사

Answer 1

표는 자동으로 다음 페이지로 유입되고, 당신은뿐만 아니라 제목 행을 반복 지정할 수 있습니다.

Sub copytable1() 
Dim rtarget As Word.Range 
With ActiveDocument 
    Set rtarget = .Range(.Content.End - 1, .Content.End - 1) 
    rtarget.InsertBreak Type:=Word.WdBreakType.wdPageBreak 
    Set rtarget = .Range(.Content.End - 1, .Content.End - 1) 
    rtarget.FormattedText = .Tables(1).Range.FormattedText 
    Set rtarget = Nothing 
End With 
End Sub 

그것은 가정 : 다음과 같은 코드가 서식을 해치는 경우

하지만 새 테이블이 필요한 가정은 ...

원래 질문은 몇 가지 해명 (아래 몇 가지 포인트 참조)하지만 볼 필요

• 것을 복사 할 표는 단지를 삽입 할 문서
• 에서 첫 번째 테이블은 새 페이지를 문서의 끝에 추가하고 그 후에 표의 사본을 삽입하십시오. 문서가 이미 여러 페이지로되어있을 수있는 경우 상당히 다른 코드가 필요합니다.

편집 가능한 워드 문서를 작성는으로 "좋은 연습,"당신은 내가했던 것처럼 오히려 하드 페이지 나누기보다 휴식을 달성하기 위해 설정 속성을 "전에 페이지 나누기"를 함께 단락 스타일을 사용합니다. 답장을 보내

또는

,

Sub copytable3() 
Dim rtarget As Word.Range 
With ActiveDocument 
    Set rtarget = .Range 
    rtarget.Collapse wdCollapseEnd 
    rtarget.InsertParagraphAfter 
    Set rtarget = .Range 
    rtarget.Collapse wdCollapseEnd 
    rtarget.ParagraphFormat.PageBreakBefore = True 
    Set rtarget = .Range 
    rtarget.Collapse wdCollapseEnd 
    rtarget.InsertParagraphAfter 
    Set rtarget = .Range 
    rtarget.Collapse wdCollapseEnd 
    rtarget.ParagraphFormat.PageBreakBefore = False 
    Set rtarget = .Range 
    rtarget.Collapse wdCollapseEnd 
    rtarget.Select 
    rtarget.FormattedText = .Tables(1).Range.FormattedText 
    Set rtarget = Nothing 
End With 
End Sub