C#/VB.NET: вставка гиперссылок в документы Word

PM> Install-Package Spire.Doc

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("https://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("https://docs.microsoft.com/en-us/dotnet/", picture, HyperlinkType.WebLink);
    
                //Save to file
                doc.SaveToFile("InsertHyperlinks.docx", FileFormat.Docx2013);
            }
        }
    }

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("https://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("https://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

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 = "https://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);
            }
        }
    }

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 = "https://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