Практическое руководство. Расширение диапазонов в документах

Статья
04/28/2010

Обновлен: Ноябрь 2007

Применение
Сведения в данном разделе относятся только к указанным проектам Visual Studio Tools for Office и версиям приложений Microsoft Office. Тип проекта Проекты уровня документа Проекты уровня приложения Версия Microsoft Office Word 2003 Word 2007 Дополнительные сведения см. в разделе Доступность функций по типам приложений и проектов.

Сведения в данном разделе относятся только к указанным проектам Visual Studio Tools for Office и версиям приложений Microsoft Office.

Тип проекта

Проекты уровня документа
Проекты уровня приложения

Версия Microsoft Office

Word 2003
Word 2007

Дополнительные сведения см. в разделе Доступность функций по типам приложений и проектов.

После объявления объекта диапазона Range в документе Microsoft Office Word можно изменить его начальную и конечную позиции с помощью методов MoveStart и MoveEnd. Оба метода — MoveStart и MoveEnd — принимают два аргумента: Unit и Count. Аргумент Count представляет количество пунктов, на которое выполняется сдвиг, а аргумент Unit может быть одним из значений WdUnits:

В следующем примере показано создание диапазона из семи знаков. После создания начальная позиция диапазона перемещается на семь знаков вперед. Так как конечная позиция диапазона находилась на расстоянии семи знаков от начальной позиции, в результате получится диапазон нулевого размера. На следующем шаге конечная позиция диапазона перемещается на семь знаков вперед.

Расширение диапазона

Определите диапазон знаков. Дополнительные сведения см. в разделе Практическое руководство. Определение и выделение диапазонов в документе.

Приведенный ниже пример кода можно использовать в настройке на уровне документа.
```
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)
```
```
object start = 0;
object end = 7;
Word.Range rng = this.Application.ActiveDocument.Range(
    ref start, ref end);
```

Чтобы переместить начальную позицию диапазона, используйте метод MoveStart объекта Range.

rng.MoveStart(Unit:=Word.WdUnits.wdCharacter, Count:=7)

object unit = Word.WdUnits.wdCharacter;
object count = 7;
rng.MoveStart(ref unit, ref count);

Чтобы переместить конечную позицию диапазона, используйте метод MoveEnd объекта Range.
```
rng.MoveEnd(Unit:=Word.WdUnits.wdCharacter, Count:=7)
```
```
unit = Word.WdUnits.wdCharacter;
count = 7;
rng.MoveEnd(ref unit, ref count);
```

Код настройки на уровне документа

Расширение диапазона в настройке на уровне документа

В следующем примере приведен полный код для настройки на уровне документа. Чтобы использовать этот код, выполните его из класса 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.
object unit = Word.WdUnits.wdCharacter;
object count = 7;
rng.MoveStart(ref unit, ref count);

// Move the end position 7 characters.
unit = Word.WdUnits.wdCharacter;
count = 7;
rng.MoveEnd(ref unit, ref count);

Код надстройки уровня приложения

Расширение диапазона в надстройке уровня приложения

В следующем примере приведен полный код для надстройки уровня приложения. Чтобы использовать этот код, выполните его из класса 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.
object start = 0;
object end = 7;
Word.Range rng = this.Application.ActiveDocument.Range(
    ref start, ref end);

// Move the start position 7 characters.
object unit = Word.WdUnits.wdCharacter;
object count = 7;
rng.MoveStart(ref unit, ref count);

// Move the end position 7 characters.
unit = Word.WdUnits.wdCharacter;
count = 7;
rng.MoveEnd(ref unit, ref count);