using Spire.Doc;
using Spire.Doc.Documents;
using System.Drawing;

namespace InsertHyperlinks
{
class Program
{
static void Main(string[] args)
{
//Create a Word document
Document doc = new Document();

//Add a section
Section section = doc.AddSection();

//Add a paragraph
Paragraph paragraph = section.AddParagraph();
paragraph.AppendHyperlink("http://www-iceblue.com/", "Home Page", HyperlinkType.WebLink);

//Append line breaks
paragraph.AppendBreak(BreakType.LineBreak);
paragraph.AppendBreak(BreakType.LineBreak);

//Add an email link
paragraph.AppendHyperlink("mailto:support@e-iceblue.com", "Mail Us", HyperlinkType.EMailLink);

//Append line breaks
paragraph.AppendBreak(BreakType.LineBreak);
paragraph.AppendBreak(BreakType.LineBreak);

//Add a file link
string filePath = @"C:\Users\Administrator\Desktop\report.xlsx";
paragraph.AppendHyperlink(filePath, "Click to open the report", HyperlinkType.FileLink);

//Append line breaks
paragraph.AppendBreak(BreakType.LineBreak);
paragraph.AppendBreak(BreakType.LineBreak);

//Add another section and create a bookmark
Section section2 = doc.AddSection();
Paragraph bookmarkParagrapg = section2.AddParagraph();
bookmarkParagrapg.AppendText("Here is a bookmark");
BookmarkStart start = bookmarkParagrapg.AppendBookmarkStart("myBookmark");
bookmarkParagrapg.Items.Insert(0, start);
bookmarkParagrapg.AppendBookmarkEnd("myBookmark");

//Link to the bookmark
paragraph.AppendHyperlink("myBookmark", "Jump to a location inside this document", HyperlinkType.Bookmark);

//Append line breaks
paragraph.AppendBreak(BreakType.LineBreak);
paragraph.AppendBreak(BreakType.LineBreak);

//Add an image link
Image image = Image.FromFile(@"C:\Users\Administrator\Desktop\logo.png");
Spire.Doc.Fields.DocPicture picture = paragraph.AppendPicture(image);
paragraph.AppendHyperlink("http://docs.microsoft.com/en-us/dotnet/", picture, HyperlinkType.WebLink);

//Save to file
doc.SaveToFile("InsertHyperlinks.docx", FileFormat.Docx2013);
}
}
}

【VB.NET】

Imports Spire.Doc
Imports Spire.Doc.Documents
Imports System.Drawing

Namespace InsertHyperlinks
Class Program
Shared Sub Main(ByVal args() As String)
'Create a Word document
Document doc = New Document()

'Add a section
Dim section As Section = doc.AddSection()

'Add a paragraph
Dim paragraph As Paragraph = section.AddParagraph()
paragraph.AppendHyperlink("http://www.e-iceblue.com/", "Home Page", HyperlinkType.WebLink)

'Append line breaks
paragraph.AppendBreak(BreakType.LineBreak)
paragraph.AppendBreak(BreakType.LineBreak)

'Add an email link
paragraph.AppendHyperlink("mailto:support@e-iceblue.com", "Mail Us", HyperlinkType.EMailLink)

'Append line breaks
paragraph.AppendBreak(BreakType.LineBreak)
paragraph.AppendBreak(BreakType.LineBreak)

'Add a file link
Dim filePath As String = "C:\Users\Administrator\Desktop\report.xlsx"
paragraph.AppendHyperlink(filePath, "Click to open the report", HyperlinkType.FileLink)

'Append line breaks
paragraph.AppendBreak(BreakType.LineBreak)
paragraph.AppendBreak(BreakType.LineBreak)

'Add another section and create a bookmark
Dim section2 As Section = doc.AddSection()
Dim bookmarkParagrapg As Paragraph = section2.AddParagraph()
bookmarkParagrapg.AppendText("Here is a bookmark")
Dim start As BookmarkStart = bookmarkParagrapg.AppendBookmarkStart("myBookmark")
bookmarkParagrapg.Items.Insert(0, start)
bookmarkParagrapg.AppendBookmarkEnd("myBookmark")

'Link to the bookmark
paragraph.AppendHyperlink("myBookmark", "Jump to a location inside this document", HyperlinkType.Bookmark)

'Append line breaks
paragraph.AppendBreak(BreakType.LineBreak)
paragraph.AppendBreak(BreakType.LineBreak)

'Add an image link
Dim image As Image = Image.FromFile("C:\Users\Administrator\Desktop\logo.png")
Dim picture As Spire.Doc.Fields.DocPicture = paragraph.AppendPicture(image)
paragraph.AppendHyperlink("http://docs.microsoft.com/en-us/dotnet/", picture, HyperlinkType.WebLink)

'Save to file
doc.SaveToFile("InsertHyperlinks.docx", FileFormat.Docx2013)
System.Diagnostics.Process.Start("InsertHyperlinks.docx")
End Sub
End Class
End Namespace

步驟三：將超鏈接添加到 Word 中的現(xiàn)有文本

將超鏈接添加到文檔中的現(xiàn)有文本有點(diǎn)復(fù)雜。您需要先找到目標(biāo)字符串，然后在段落中將其替換為超鏈接字段。以下是步驟。

• 創(chuàng)建一個(gè)文檔對(duì)象。
• 使用Document.LoadFromFile()方法加載 Word 文件。
• 使用Document.FindAllString()方法查找文檔中所有出現(xiàn)的目標(biāo)字符串，并從集合中通過(guò)其索引獲取特定字符串。
• 獲取字符串自己的段落及其在其中的位置。
• 從段落中刪除字符串。
• 創(chuàng)建一個(gè)超鏈接字段并將其插入到字符串所在的位置。
• 使用Document.SaveToFle()方法將文檔保存到另一個(gè)文件。

【C＃】

using Spire.Doc;
using Spire.Doc.Documents;
using Spire.Doc.Fields;
using Spire.Doc.Interface;

namespace AddHyperlinksToExistingText
{
class Program
{
static void Main(string[] args)
{
//Create a Document object
Document document = new Document();

//Load a Word file
document.LoadFromFile(@"C:\Users\Administrator\Desktop\sample.docx");

//Find all the occurrences of the string ".NET Framework" in the document
TextSelection[] selections = document.FindAllString(".NET Framework", true, true);

//Get the second occurrence
TextRange range = selections[1].GetAsOneRange();

//Get its owner paragraph
Paragraph parapgraph = range.OwnerParagraph;

//Get its position in the paragraph
int index = parapgraph.Items.IndexOf(range);

//Remove it from the paragraph
parapgraph.Items.Remove(range);

//Create a hyperlink field
Spire.Doc.Fields.Field field = new Spire.Doc.Fields.Field(document);
field.Type = Spire.Doc.FieldType.FieldHyperlink;
Hyperlink hyperlink = new Hyperlink(field);
hyperlink.Type = HyperlinkType.WebLink;
hyperlink.Uri = "http://en.wikipedia.org/wiki/.NET_Framework";
parapgraph.Items.Insert(index, field);

//Insert a field mark "start" to the paragraph
IParagraphBase start = document.CreateParagraphItem(ParagraphItemType.FieldMark);
(start as FieldMark).Type = FieldMarkType.FieldSeparator;
parapgraph.Items.Insert(index + 1, start);

//Insert a text range between two field marks
ITextRange textRange = new Spire.Doc.Fields.TextRange(document);
textRange.Text = ".NET Framework";
textRange.CharacterFormat.Font = range.CharacterFormat.Font;
textRange.CharacterFormat.TextColor = System.Drawing.Color.Blue;
textRange.CharacterFormat.UnderlineStyle = UnderlineStyle.Single;
parapgraph.Items.Insert(index + 2, textRange);

//Insert a field mark "end" to the paragraph
IParagraphBase end = document.CreateParagraphItem(ParagraphItemType.FieldMark);
(end as FieldMark).Type = FieldMarkType.FieldEnd;
parapgraph.Items.Insert(index + 3, end);

//Save to file
document.SaveToFile("AddHyperlink.docx", Spire.Doc.FileFormat.Docx);
}
}
}

【VB.NET】

Imports Spire.Doc
Imports Spire.Doc.Documents
Imports Spire.Doc.Fields
Imports Spire.Doc.Interface

Namespace AddHyperlinksToExistingText
Class Program
Shared Sub Main(ByVal args() As String)
'Create a Document object
Dim document As Document = New Document()

'Load a Word file
document.LoadFromFile("C:\Users\Administrator\Desktop\sample.docx")

'Find all the occurrences of the string ".NET Framework" in the document
Dim selections() As TextSelection = document.FindAllString(".NET Framework",True,True)

'Get the second occurrence
Dim range As TextRange = selections(1).GetAsOneRange()

'Get its owner paragraph
Dim parapgraph As Paragraph = range.OwnerParagraph

'Get its position in the paragraph
Dim index As Integer = parapgraph.Items.IndexOf(range)

'Remove it from the paragraph
parapgraph.Items.Remove(range)

'Create a hyperlink field
Dim field As Spire.Doc.Fields.Field = New Spire.Doc.Fields.Field(document)
field.Type = Spire.Doc.FieldType.FieldHyperlink
Dim hyperlink As Hyperlink = New Hyperlink(field)
hyperlink.Type = HyperlinkType.WebLink
hyperlink.Uri = "http://en.wikipedia.org/wiki/.NET_Framework"
parapgraph.Items.Insert(index, field)

'Insert a field mark "start" to the paragraph
Dim start As IParagraphBase = document.CreateParagraphItem(ParagraphItemType.FieldMark)
(start as FieldMark).Type = FieldMarkType.FieldSeparator
parapgraph.Items.Insert(index + 1, start)

'Insert a text range between two field marks
Dim textRange As ITextRange = New Spire.Doc.Fields.TextRange(document)
textRange.Text = ".NET Framework"
textRange.CharacterFormat.Font = range.CharacterFormat.Font
textRange.CharacterFormat.TextColor = System.Drawing.Color.Blue
textRange.CharacterFormat.UnderlineStyle = UnderlineStyle.Single
parapgraph.Items.Insert(index + 2, textRange)

'Insert a field mark "end" to the paragraph
Dim end As IParagraphBase = document.CreateParagraphItem(ParagraphItemType.FieldMark)
(end as FieldMark).Type = FieldMarkType.FieldEnd
parapgraph.Items.Insert(index + 3, end)

'Save to file
document.SaveToFile("AddHyperlink.docx", Spire.Doc.FileFormat.Docx)
End Sub
End Class
End Namespace

以上便是如何在C#/VB.NET中給Word 文檔插入超鏈接，如果您有其他問(wèn)題也可以繼續(xù)瀏覽本系列文章，獲取相關(guān)教程，你還可以給我留言或者加入我們的官方技術(shù)交流群。

歡迎下載|體驗(yàn)更多E-iceblue產(chǎn)品