''
'' This code is part of Document Solutions for Word demos.
'' Copyright (c) MESCIUS inc. All rights reserved.
''
Imports System.IO
Imports System.Linq
Imports GrapeCity.Documents.Word

'' This demo shows how to insert a link to a YouTube video into an existing DOCX.
Public Class InsertVideoLink
    Function CreateDocx() As GcWordDocument
        Dim doc = New GcWordDocument()
        '' Load an existing DOCX and find a specific location in it:
        doc.Load(Path.Combine("Resources", "WordDocs", "wetlands.docx"))
        Dim fr = doc.Body.Find("Reptiles and amphibians must return there to breed").First()
        '' Add picture with a thumbnail and a video link after the found paragraph:
        Dim par = fr.Range.ParentParagraph.Next
        Dim pic = par.AddRun().AddPicture()
        Dim picBytes = File.ReadAllBytes(Path.Combine("Resources", "ImagesBis", "wetlands.jpg"))
        pic.ImageData.SetImage(picBytes, "image/jpeg")
        pic.ImageData.WebVideoProperties.SetUrl("https://www.youtube.com/watch?v=k9UbKlBc3W4", "What are wetlands", 420, 300)
        pic.Size.Width.Value = 400
        pic.Size.Height.Value = 300
        '' Done:
        Return doc
    End Function
End Class