|
- Imports DevExpress.XtraRichEdit
- Imports DevExpress.XtraRichEdit.API.Native
- Imports System.Drawing
- Imports System.Diagnostics
- Shared Sub Main(ByVal args() As String)
- Dim fileName As String = "Test.docx"
- Using wordProcessor = New RichEditDocumentServer()
- Dim doc As Document = wordProcessor.Document
- doc.AppendText("This document is generated by Word Processing Document API")
- Dim cp As CharacterProperties =
- doc.BeginUpdateCharacters(doc.Paragraphs(0).Range)
- cp.ForeColor = Color.FromArgb(&H83, &H92, &H96)
- cp.Italic = True
- doc.EndUpdateCharacters(cp)
- Dim pp As ParagraphProperties =
- doc.BeginUpdateParagraphs(doc.Paragraphs(0).Range)
- pp.Alignment = ParagraphAlignment.Right
- doc.EndUpdateParagraphs(pp)
- wordProcessor.SaveDocument(fileName, DocumentFormat.OpenXml)
- End Using
- Process.Start(fileName)
- End Sub
复制代码 以上是DevExpress官方文档,链接:https://docs.devexpress.com/OfficeFileAPI/16785/word-processing-document-api/getting-started
在森之格低代码平台的帮助文档中有word控件的代码使用:http://www.sanmugrid.com/help/topics/01166Word%E6%8E%A7%E4%BB%B6.htm
- '获得SplitContainer控件的访问
- Dim SplitContainer1 As System.Windows.Forms.SplitContainer=Me.SmForm.ControlDictionary()("SplitContainer1")
- '先定义一个控件
- Dim word As New DevExpress.XtraRichEdit.RichEditControl
- '设置控件的Dock停靠属性
- word.Dock=DockStyle.Fill
- '将Word控件添加到SplitContainer控件的Panel2中去
- SplitContainer1.Panel2.Controls.Add(word)
复制代码 请帮忙编写代码使用平台的代码编辑器--命令窗口 实现DevExpress官方文档中的生成word并打开的示例。
以便我后续学习参考DevExpress中的其他示例。
|
|