Step 2 of 3: Adding Simple Text

' create document
Dim word = New C1WordDocument()
word.Clear()
' measure and show some text 
Dim text = "Hello!! This is a sample text."
Dim font = New Font("Segoe UI Light", 20, RtfFontStyle.Italic)
' add paragraph
word.AddParagraph(text, font, Colors.BlueViolet, RtfHorizontalAlignment.Justify)
' get stream to save to
Dim dlg = New SaveFileDialog()
dlg.FileName = "document"
dlg.DefaultExt = ".docx"
Dim dr = dlg.ShowDialog()
If Not dr.HasValue OrElse Not dr.Value Then
        Return
End If
' save document
Using stream = dlg.OpenFile()
        word.Save(stream, If(dlg.FileName.ToLower().EndsWith(".docx"), FileFormat.OpenXml, FileFormat.Rtf))
End Using
MessageBox.Show("Word Document saved to " + dlg.SafeFileName)

// create document
var word = new C1WordDocument();
word.Clear();
// measure and show some text 
var text = "Hello!! This is a sample text.";
var font = new Font("Segoe UI Light", 20, RtfFontStyle.Italic);
// add paragraph
word.AddParagraph(text, font, Colors.BlueViolet, RtfHorizontalAlignment.Justify);
// get stream to save to
var dlg = new SaveFileDialog();
dlg.FileName = "document";
dlg.DefaultExt = ".docx";
var dr = dlg.ShowDialog();
if (!dr.HasValue || !dr.Value) {
  return;
}
// save document
using(var stream = dlg.OpenFile()) {
  word.Save(stream, dlg.FileName.ToLower().EndsWith(".docx") ? FileFormat.OpenXml : FileFormat.Rtf);
}
MessageBox.Show("Word Document saved to " + dlg.SafeFileName);