' 保存先のストリームを取得します
Dim dlg = New SaveFileDialog()
dlg.FileName = "document"
dlg.DefaultExt = ".docx"
dlg.Filter = "RTF files (*.rtf)|*.rtf|MS Word (Open XML) files (*.docx)|*.docx"
Dim dr = dlg.ShowDialog()
If Not dr.HasValue OrElse Not dr.Value Then
Return
End If
' sender ボタンを取得します
Dim btn = TryCast(sender, Button)
' ドキュメントを作成します
Dim word = New C1WordDocument()
word.Clear()
' ドキュメント情報を設定します
Dim di = word.Info
di.Author = "ComponentOne"
di.Subject = "C1.WPF.Word sample."
di.Title = DirectCast(btn.Content, String)
' テキストを測定および表示します
Dim text = "こんにちは!! これはサンプルテキストです。"
Dim font = New Font("Segoe UI Light", 20, RtfFontStyle.Italic)
' 段落を追加します
word.AddParagraph(text, font, Colors.BlueViolet, RtfHorizontalAlignment.Justify)
Using stream = dlg.OpenFile()
word.Save(stream, If(dlg.FileName.ToLower().EndsWith("docx"), FileFormat.OpenXml, FileFormat.Rtf))
MessageBox.Show("Word Document saved to " + dlg.SafeFileName)
End Using