방법: 프로그래밍 방식으로 문서의 범위 또는 선택 영역 축소

아티클
02/21/2013

Range 또는 Selection 개체를 사용하여 작업하는 경우 텍스트를 삽입하기 전에 선택 영역을 삽입 지점으로 변경하여 기존 텍스트를 덮어쓰지 않도록 해야 할 수 있습니다.Range 및 Selection 개체에는 모두 Collapse 메서드가 있습니다. 이 메서드에서는 WdCollapseDirection 열거형 값을 사용합니다.

wdCollapseStart는 영역을 선택 영역의 시작 지점으로 축소합니다.열거형 값을 지정하지 않을 경우 이 값이 기본값입니다.
wdCollapseEnd는 영역을 선택 영역의 끝 지점으로 축소합니다.

적용 대상: 이 항목의 정보는 Word 2013 및 Word 2010의 문서 수준 프로젝트 및 응용 프로그램 수준 프로젝트에 적용됩니다. 자세한 내용은 Office 응용 프로그램 및 프로젝트 형식에 따라 사용 가능한 기능을 참조하십시오.

영역을 축소하고 새 텍스트를 삽입하려면

문서의 첫 번째 단락으로 구성된 Range 개체를 만듭니다.

다음 코드 예제는 문서 수준 사용자 지정에 사용할 수 있습니다.
```
Dim rng As Word.Range = Me.Paragraphs(1).Range
```
```
Word.Range rng = this.Paragraphs[1].Range; 
```
다음 코드 예제는 응용 프로그램 수준 추가 기능에 사용할 수 있습니다.이 코드에서는 활성 문서를 사용합니다.
```
Dim rng As Word.Range = Me.Application.ActiveDocument.Paragraphs(1).Range
```
```
Word.Range rng = this.Application.ActiveDocument.Paragraphs[1].Range;
```

wdCollapseStart 열거형 값을 사용하여 범위를 축소합니다.

rng.Collapse(Word.WdCollapseDirection.wdCollapseStart)

rng.Collapse(Word.WdCollapseDirection.wdCollapseStart);

새 텍스트를 삽입합니다.

rng.Text = " New Text "

rng.Text = " New Text ";

Range를 선택합니다.
```
rng.Select()
```
```
rng.Select();
```

wdCollapseEnd 열거형 값을 사용하면 텍스트가 다음 단락의 시작 지점에 삽입됩니다.

rng.Collapse(Word.WdCollapseDirection.wdCollapseEnd)

rng.Collapse(Word.WdCollapseDirection.wdCollapseEnd);

원래 범위에는 단락 마커가 포함되므로 이 경우 새 문장을 단락 마커 앞에 삽입할 수 없습니다.자세한 내용은 방법: 프로그래밍 방식으로 범위를 만들 때 단락 기호 제외을 참조하십시오.

문서 수준 사용자 지정 예제

문서 수준 사용자 지정의 범위를 축소하려면

다음 예제에서는 문서 수준 사용자 지정의 전체 메서드를 보여 줍니다.이 코드를 사용하려면 프로젝트의 ThisDocument 클래스에서 이 코드를 실행하십시오.

Dim rng As Word.Range = Me.Paragraphs(1).Range

rng.Collapse(Word.WdCollapseDirection.wdCollapseStart)

rng.Text = " New Text "
rng.Select()

Word.Range rng = this.Paragraphs[1].Range; 

rng.Collapse(Word.WdCollapseDirection.wdCollapseStart); 

rng.Text = " New Text ";
rng.Select();

응용 프로그램 수준 추가 기능 예제

응용 프로그램 수준 추가 기능의 범위를 축소하려면

다음 예제에서는 응용 프로그램 수준 추가 기능의 전체 메서드를 보여 줍니다.이 코드를 사용하려면 프로젝트의 ThisAddIn 클래스에서 이 코드를 실행하십시오.

Dim rng As Word.Range = Me.Application.ActiveDocument.Paragraphs(1).Range

rng.Collapse(Word.WdCollapseDirection.wdCollapseStart)

rng.Text = " New Text "
rng.Select()

Word.Range rng = this.Application.ActiveDocument.Paragraphs[1].Range;

rng.Collapse(Word.WdCollapseDirection.wdCollapseStart);

rng.Text = " New Text ";
rng.Select();