/
Form1.vb
29 lines (24 loc) · 847 Bytes
/
Form1.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms
Imports DocumentMerger.Helpers
Imports DevExpress.XtraRichEdit.API.Native
Namespace DocumentMerger
Partial Public Class Form1
Inherits Form
Public Sub New()
InitializeComponent()
End Sub
Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button1.Click
If Not Me.button1.IsHandleCreated Then Return
Dim filenames As New List(Of String)() From {"Documents\FloatingObjects.rtf", "Documents\CharacterFormatting.rtf", "Documents\HeadersFooters.rtf"}
Dim mergedDoc As Document = DocumentsMerger.MergeDouments(filenames)
richEditControl1.RtfText = mergedDoc.RtfText
End Sub
End Class
End Namespace