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

Статья
02/20/2013

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

Применение. Сведения этого раздела применяются к проектам уровня документа и уровня приложения для Word 2013 и 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);
```
Чтобы переместить начальную позицию диапазона, используйте метод MoveStart объекта Range.
```
rng.MoveStart(Unit:=Word.WdUnits.wdCharacter, Count:=7)
```
```
rng.MoveStart(Word.WdUnits.wdCharacter, 7);
```
Чтобы переместить конечную позицию диапазона, используйте метод MoveEnd объекта Range.
```
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);