-
Notifications
You must be signed in to change notification settings - Fork 9
/
BookmarksAndHyperlinks.vb
52 lines (46 loc) · 2.55 KB
/
BookmarksAndHyperlinks.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Imports System
Imports System.Collections.Generic
Imports System.Diagnostics
Imports System.Linq
Imports System.Text
Imports System.Threading.Tasks
Imports DevExpress.XtraRichEdit
Imports DevExpress.XtraRichEdit.API.Native
Namespace RichEditDocumentServerAPIExample.CodeExamples
Public Module BookmarksAndHyperlinksActions
Public InsertBookmarkAction As System.Action(Of DevExpress.XtraRichEdit.RichEditDocumentServer) = AddressOf RichEditDocumentServerAPIExample.CodeExamples.BookmarksAndHyperlinksActions.InsertBookmark
Public InsertHyperlinkAction As System.Action(Of DevExpress.XtraRichEdit.RichEditDocumentServer) = AddressOf RichEditDocumentServerAPIExample.CodeExamples.BookmarksAndHyperlinksActions.InsertHyperlink
Private Sub InsertBookmark(ByVal wordProcessor As DevExpress.XtraRichEdit.RichEditDocumentServer)
#Region "#InsertBookmark"
' Load a document from a file.
wordProcessor.LoadDocument("Documents\Grimm.docx", DevExpress.XtraRichEdit.DocumentFormat.OpenXml)
' Access a document.
Dim document As DevExpress.XtraRichEdit.API.Native.Document = wordProcessor.Document
' Start to edit the document.
document.BeginUpdate()
' Create a bookmark at the start document position.
document.Bookmarks.Create(document.CreateRange(document.Range.Start, 0), "Top")
' Create a hyperlink that navigates to the created bookmark.
document.Paragraphs.Append()
Dim hyperlinkRange As DocumentRange = wordProcessor.Document.AppendText("get to the top")
document.Hyperlinks.Create(hyperlinkRange)
document.Hyperlinks(0).Anchor = "Top"
' Finalize to edit the document.
document.EndUpdate()
#End Region ' #InsertBookmark
End Sub
Private Sub InsertHyperlink(ByVal wordProcessor As DevExpress.XtraRichEdit.RichEditDocumentServer)
#Region "#InsertHyperlink"
' Access a document.
Dim document As Document = wordProcessor.Document
' Create a hyperlink at the specified position.
Dim hyperlinkRange As DocumentRange = document.InsertText(document.Range.Start, "Follow me!")
document.Hyperlinks.Create(hyperlinkRange)
' Specify the URI to which the hyperlink navigates.
document.Hyperlinks(0).NavigateUri = "https://devexpress.com"
' Specify the hyperlink tooltip.
document.Hyperlinks(0).ToolTip = "DevExpress"
#End Region ' #InsertHyperlink
End Sub
End Module
End Namespace