VBA - 두 콘텐츠 컨트롤 간의 기본 줄 바꿈 설정

Question

Word 용 VBA에서 두 콘텐츠 컨트롤 사이에 줄을 가져 오려고합니다. 두 콘텐트 컨트롤간에 기본 줄 바꿈을 설정하고 싶습니다. 둘 이상의 줄 바꿈 사이에 다른 줄을 삭제하고 싶습니다.

루프에서 코드를 수행 할 때 문자열을 콘텐츠 컨트롤에 병합하면 콘텐츠 컨트롤에 병합 된 후 여러 줄 바꿈이 적용됩니다.

두 콘텐츠 컨트롤간에 기본 두 줄 바꿈을 어떻게 설정할 수 있습니까?

Content control A 
- line break 
- line break 
Content control B 

Answer 1

나는 이것을위한 해결책을 찾았다.

Sub RemoveLineBreak() 

Dim rStart As Range 
Dim rEnd As Range 


    ActiveDocument.SelectContentControlsByTag("ContentC1").Item(1).Range.Select 
    Selection.MoveDown Unit:=wdLine, Count:=1 

Set rStart = Selection.Range 

    ActiveDocument.SelectContentControlsByTag("ContentC2").Item(1).Range.Select 
    Selection.MoveUp Unit:=wdLine, Count:=1 

Set rEnd = Selection.Range 

    ActiveDocument.Range(rStart.Start, rEnd.End).Select 
    Selection.Delete 
    Selection.InsertBreak Type:=wdLineBreak 

End Sub