Bookmark.InsertAfter Метод (2007 System)
Обновлен: Ноябрь 2007
Вставляет указанный текст в конец элемента управления Bookmark.
Пространство имен: Microsoft.Office.Tools.Word
Сборка: Microsoft.Office.Tools.Word.v9.0 (в Microsoft.Office.Tools.Word.v9.0.dll)
Синтаксис
'Декларация
Public Sub InsertAfter ( _
Text As String _
)
'Применение
Dim instance As Bookmark
Dim Text As String
instance.InsertAfter(Text)
public void InsertAfter(
string Text
)
Параметры
- Text
Тип: System.String
Вставляемый текст.
Примеры
В следующем примере кода в документ вставляется текст и элемент управления Bookmark с текстом, после чего к тексту добавляется примечание. В окне сообщения выводятся положения в тексте примечаний, полученные с помощью методов GoToNext и GoToPrevious.
В этом примере демонстрируется настройка уровня документа.
Private Sub BookmarkGoToNext()
Me.Paragraphs(1).Range.InsertParagraphBefore()
Me.Paragraphs(1).Range.InsertParagraphBefore()
Me.Paragraphs(1).Range.Text = "This is the first paragraph."
Dim Bookmark1 As Microsoft.Office.Tools.Word.Bookmark = _
Me.Controls.AddBookmark(Me.Paragraphs(2).Range, "Bookmark1")
Bookmark1.Text = "This is original text of the bookmark."
Dim commentText As Object = "This is some comment text."
Me.Paragraphs(1).Range.Comments.Add(Me.Paragraphs(1).Range _
.Words(4), commentText)
Bookmark1.Words.First.Comments.Add(Bookmark1.Words.First, _
commentText)
Bookmark1.InsertBefore("Text inserted before bookmark. ")
Bookmark1.InsertAfter(" Text inserted after bookmark.")
Dim range1 As Word.Range = Bookmark1.GoToNext( _
Word.WdGoToItem.wdGoToComment)
Dim range2 As Word.Range = Bookmark1.GoToPrevious( _
Word.WdGoToItem.wdGoToComment)
MessageBox.Show("Using GoToNext, the comment is " & _
"at position " & range1.Start.ToString & vbLf & _
"Using GoToPrevious, the comment is at position " & _
range2.Start.ToString)
End Sub
private void BookmarkGoToNext()
{
this.Paragraphs[1].Range.InsertParagraphBefore();
this.Paragraphs[1].Range.InsertParagraphBefore();
this.Paragraphs[1].Range.Text = "This is the first paragraph.";
Microsoft.Office.Tools.Word.Bookmark bookmark1 =
this.Controls.AddBookmark(this.Paragraphs[2].Range,
"bookmark1");
bookmark1.Text = "This is original text of the bookmark.";
object commentText = "This is some comment text.";
this.Paragraphs[1].Range.Comments.Add(this.Paragraphs[1]
.Range.Words[4], ref commentText);
bookmark1.Words.First.Comments.Add(bookmark1.Words.First,
ref commentText);
bookmark1.InsertBefore("Text inserted before bookmark. ");
bookmark1.InsertAfter(" Text inserted after bookmark.");
Word.Range range1 = bookmark1.GoToNext(Word.WdGoToItem.wdGoToComment);
Word.Range range2 = bookmark1.GoToPrevious(Word.WdGoToItem.wdGoToComment);
MessageBox.Show("Using GoToNext, the comment is at position "
+ range1.Start.ToString() + "\n" +
"Using GoToPrevious, the comment is at position "
+ range2.Start.ToString());
}
Разрешения
- Полное доверие для непосредственно вызывающего метода. Этот член не может быть использован частично доверенным кодом. Дополнительные сведения см. в разделе Использование библиотек из не вполне надежного кода.