Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' C1WordDocument1.Info.Title = "Simple Text Sample"
        Dim font As New Font("Cambria", 24, FontStyle.Bold)
        '        C1WordDocument1.Load(Application.StartupPath + "\..\..\demo.docx")
        C1WordDocument1.Load("D:\sviluppo\vuota.docx")
        C1WordDocument1.AddParagraph("il nuovo paragrafo", font, Color.RosyBrown)
        C1WordDocument1.AddBookmark("bmk1")
        font = Nothing
        font = New Font("Magneto", 18, FontStyle.Regular)
        C1WordDocument1.AddBookmarkStart("bmk2")
        C1WordDocument1.AddBookmarkEnd("bmk2")
        AddTextBeforeBookmark(C1WordDocument1, C1WordDocument1.MainSection.Content)
        C1WordDocument1.Save("simple.docx")
        Process.Start("simple.docx")
    End Sub