방법: 문서에서 범위 확장
Microsoft Office Word 문서에서 Range 개체를 정의한 후 MoveStart 및 MoveEnd 메서드를 사용하여 해당 개체의 시작점과 끝점을 변경합니다. MoveStart 메서드와 MoveEnd 메서드는 Unit 및 Count라는 두 개의 인수를 동일하게 사용합니다. Count 인수는 이동할 단위 수이고, Unit 인수는 다음 WdUnits 값 중 하나가 될 수 있습니다.
적용 대상: 이 항목의 정보는 Word 2007 및 Word 2010의 문서 수준 프로젝트 및 응용 프로그램 수준 프로젝트에 적용됩니다. 자세한 내용은 Office 응용 프로그램 및 프로젝트 형식에 따라 사용 가능한 기능을 참조하십시오.
다음 예제에서는 일곱 개의 문자로 구성된 범위를 정의합니다. 그런 다음 범위의 시작 위치를 원래 시작 위치에서 일곱 문자 뒤로 이동합니다. 범위의 끝 위치는 변경된 시작 위치와 마찬가지로 원래 시작 위치에서 일곱 문자 뒤에 있으므로 범위를 변경한 결과에는 문자가 포함되지 않습니다. 그런 다음 이 코드에서는 끝 위치를 현재 끝 위치에서 일곱 문자 뒤로 이동합니다.
범위를 확장하려면
문자의 범위를 정의합니다. 자세한 내용은 방법: 문서 내의 범위 정의 및 선택을 참조하십시오.
다음 코드 예제는 문서 수준 사용자 지정에 사용할 수 있습니다.
Dim rng As Word.Range = Me.Range(Start:=0, End:=7)
object start = 0; object end = 7; Word.Range rng = this.Range(ref start, ref end);
다음 코드 예제는 응용 프로그램 수준 추가 기능에 사용할 수 있습니다. 이 예제에서는 활성 문서를 사용합니다.
Dim rng As Word.Range = Me.Application.ActiveDocument.Range(Start:=0, End:=7)
Word.Range rng = this.Application.ActiveDocument.Range(0, 7);
Range 개체의 MoveStart 메서드를 사용하여 범위의 시작 위치를 옮깁니다.
rng.MoveStart(Unit:=Word.WdUnits.wdCharacter, Count:=7)
rng.MoveStart(Word.WdUnits.wdCharacter, 7);
Range 개체의 MoveEnd 메서드를 사용하여 범위의 끝 위치를 옮깁니다.
rng.MoveEnd(Unit:=Word.WdUnits.wdCharacter, Count:=7)
rng.MoveEnd(Word.WdUnits.wdCharacter, 7);
문서 수준 사용자 지정 코드
문서 수준 사용자 지정의 범위를 확장하려면
다음 예제에서는 문서 수준 사용자 지정의 전체 코드를 보여 줍니다. 이 코드를 사용하려면 프로젝트의 ThisDocument 클래스에서 이 코드를 실행하십시오.
' Define a range of 7 characters. Dim rng As Word.Range = Me.Range(Start:=0, End:=7) ' Move the start position 7 characters. rng.MoveStart(Unit:=Word.WdUnits.wdCharacter, Count:=7) ' Move the end position 7 characters. rng.MoveEnd(Unit:=Word.WdUnits.wdCharacter, Count:=7)
// Define a range of 7 characters. object start = 0; object end = 7; Word.Range rng = this.Range(ref start, ref end); // Move the start position 7 characters. rng.MoveStart(Word.WdUnits.wdCharacter, 7); // Move the end position 7 characters. rng.MoveEnd(Word.WdUnits.wdCharacter, 7);
응용 프로그램 수준 추가 기능 코드
응용 프로그램 수준 추가 기능의 범위를 확장하려면
다음 예제에서는 응용 프로그램 수준 추가 기능의 전체 코드를 보여 줍니다. 이 코드를 사용하려면 프로젝트의 ThisAddIn 클래스에서 이 코드를 실행하십시오.
' Define a range of 7 characters. Dim rng As Word.Range = Me.Application.ActiveDocument.Range(Start:=0, End:=7) ' Move the start position 7 characters. rng.MoveStart(Unit:=Word.WdUnits.wdCharacter, Count:=7) ' Move the end position 7 characters. rng.MoveEnd(Unit:=Word.WdUnits.wdCharacter, Count:=7)
// Define a range of 7 characters. Word.Range rng = this.Application.ActiveDocument.Range(0, 7); // Move the start position 7 characters. rng.MoveStart(Word.WdUnits.wdCharacter, 7); // Move the end position 7 characters. rng.MoveEnd(Word.WdUnits.wdCharacter, 7);