Postupy: Sbalování oblastí nebo výběrů v dokumentech prostřednictvím kódu programu

Článek
05/16/2015

Pokud pracujete Range nebo Selection objekt chcete změnit výběr kurzor před vložením textu, aby nedošlo k přepsání existujícího textu.I Range a Selection objekty mají Collapse metodu, která využívá WdCollapseDirection hodnot výčtu:

wdCollapseStartSbalí výběru na začátek výběru.Toto je výchozí možnost, pokud nezadáte hodnotu výčtu.
wdCollapseEndSbalí výběru na konec výběru.

Platí pro: Informace v tomto tématu se vztahují na projekty na úrovni dokumentu i na úrovni aplikace ve Wordu 2013 a ve Wordu 2010. Další informace najdete v tématu Dostupné funkce podle aplikací systému Office a typů projektu.

Sbalit oblast a vložit nový text

Vytvořit Range objekt, který se skládá z prvního odstavce v dokumentu.

Následující příklad kódu lze v dokumentu úroveň přizpůsobení.
```
Dim rng As Word.Range = Me.Paragraphs(1).Range
```
```
Word.Range rng = this.Paragraphs[1].Range; 
```
Následující příklad kódu lze použít v doplňku úrovni aplikace.Tento kód používá aktivní dokument.
```
Dim rng As Word.Range = Me.Application.ActiveDocument.Paragraphs(1).Range
```
```
Word.Range rng = this.Application.ActiveDocument.Paragraphs[1].Range;
```

Použití wdCollapseStart hodnota výčtu sbalit oblast.

rng.Collapse(Word.WdCollapseDirection.wdCollapseStart)

rng.Collapse(Word.WdCollapseDirection.wdCollapseStart);

Vložte nový text.

rng.Text = " New Text "

rng.Text = " New Text ";

Vyberte Range.
```
rng.Select()
```
```
rng.Select();
```

Pokud použijete wdCollapseEnd hodnota výčtu, text se vkládá na začátek následujícího odstavce.

rng.Collapse(Word.WdCollapseDirection.wdCollapseEnd)

rng.Collapse(Word.WdCollapseDirection.wdCollapseEnd);

Očekávali, že vkládání nová věta, která by jej vložit před značku odstavce, ale je není případ, protože původní oblast obsahuje značku odstavce.Další informace naleznete v tématu Postupy: Vyloučení značek odstavů při vytváření oblastí prostřednictvím kódu programu.

Příklad vlastního nastavení úrovně dokumentu

Chcete-li sbalit oblast v přizpůsobení úroveň dokument

Následující příklad ukazuje kompletní metoda pro přizpůsobení úroveň dokument.Použít tento kód, spusťte jej z ThisDocument tříd v projektu.

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();

Úroveň aplikace například doplněk

Chcete-li sbalit oblast v doplňku úrovni aplikace

Následující příklad ukazuje kompletní metoda pro doplněk aplikační úrovni.Použít tento kód, spusťte jej z ThisAddIn tříd v projektu.

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();