Keep (Retain) format while merging RTF files in Windows Application using C# and VB.Net

dnnyobi

SOLVED CLOSED ACTIVE ANSWERED
User: dnnyobi
Posted: on May 26, 2021 12:07 AM
Forum: Windows Basics
Answer: 2
Views: 4147
Sample Code: Download

Hi,

I merged rtf files using the code below in vb.net desktop application.

After it has merged, it does not retain its original format. i.e. the line space is widened.

Try
    Dim allRTFDocument As String() = System.IO.Directory.GetFiles(Application.StartupPath & ("\Data2\" & txtLangCode.Text & ""), "*.rtf")
    Dim characters As String() = New String() {"A", "B", "CH", "D", "E", "Ẹ", "F", "G", "GB", "GH", "GW", "H", _
                                               "I", "Ị", "J", "K", "KP", "KW", "L", "M", "N", "NW", "NY", "Ṇ", _
                                               "O", "Ọ", "P", "S", "Ṣ", "T", "U", "Ụ", "V", "W", "Y", "Z", "Ẓ"}
    Dim files As List(Of String) = New List(Of String)()

    For Each character As String In characters
        Dim chars As String = character.ToLower()
        Dim matchFiles As String() = Array.FindAll(allRTFDocument, Function(c) System.IO.Path.GetFileName(c).ToLower().StartsWith(chars))
        For i As Integer = 0 To matchFiles.Length - 1
            files.Add(matchFiles(i))
        Next
    Next

    Merge(files.ToArray(), My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\Dictionary.docx", True, "")
Catch ex As Exception
    MsgBox("No data to export", MsgBoxStyle.Information)
End Try

In this case, what do I do?

Adnaan

0 1

Reply
ANSWER
User: Adnaan
Replied: on May 26, 2021 06:01 AM
Modified: on May 26, 2021 06:01 AM
Report

Hi dnnyobi,

Refer Below Code

Namespace

using System.IO;

VB.Net

Imports System.IO

Code

protected void OnMerge(object sender, EventArgs e)
{
    string[] allRTFDocument = Directory.GetFiles(@"C:\\Files", "*.rtf");
    Merge(allRTFDocument, @"C:\\Final.rtf", true);
}

public static void Merge(string[] filesToMerge, string outputFilename, bool insertPageBreaks)
{
    object missing = System.Type.Missing;
    object pageBreak = Microsoft.Office.Interop.Word.WdBreakType.wdSectionBreakNextPage;
    object outputFile = outputFilename;
    Microsoft.Office.Interop.Word._Application wordApplication = new Microsoft.Office.Interop.Word.Application();
    try
    {
        Microsoft.Office.Interop.Word.Document wordDocument = wordApplication.Documents.Add(
                                    ref missing
                                    , ref missing
                                    , ref missing
                                    , ref missing);
        Microsoft.Office.Interop.Word.Selection selection = wordApplication.Selection;
        int documentCount = filesToMerge.Length;
        int breakStop = 0;
        foreach (string file in filesToMerge)
        {
            breakStop++;
            selection.InsertFile(file, ref missing, ref missing, ref missing, ref missing);
            if (insertPageBreaks && breakStop != documentCount)
            {
                selection.InsertBreak(ref pageBreak);
            }
        }
        wordDocument.SaveAs(
                    ref outputFile
                    , ref missing
                    , ref missing
                    , ref missing
                    , ref missing
                    , ref missing
                    , ref missing
                    , ref missing
                    , ref missing
                    , ref missing
                    , ref missing
                    , ref missing
                    , ref missing
                    , ref missing
                    , ref missing
                    , ref missing);
        wordDocument = null;
    }
    catch (Exception ex)
    {
        throw ex;
    }
    finally
    {
        wordApplication.Quit(ref missing, ref missing, ref missing);
    }
}

VB.Net

    Protected Sub OnMerge(ByVal sender As Object, ByVal e As EventArgs)
        Dim allRTFDocument As String() = Directory.GetFiles("C:\Files"), "*.rtf")
        Merge(allRTFDocument, "C:\Final.rtf", True)
    End Sub

    Public Shared Sub Merge(ByVal filesToMerge As String(), ByVal outputFilename As String, ByVal insertPageBreaks As Boolean)
        Dim missing As Object = System.Type.Missing
        Dim pageBreak As Object = Microsoft.Office.Interop.Word.WdBreakType.wdSectionBreakNextPage
        Dim outputFile As Object = outputFilename
        Dim wordApplication As Microsoft.Office.Interop.Word._Application = New Microsoft.Office.Interop.Word.Application()

        Try
            Dim wordDocument As Microsoft.Office.Interop.Word.Document = wordApplication.Documents.Add(missing, missing, missing, missing)
            Dim selection As Microsoft.Office.Interop.Word.Selection = wordApplication.Selection
            Dim documentCount As Integer = filesToMerge.Length
            Dim breakStop As Integer = 0

            For Each file As String In filesToMerge
                breakStop += 1
                selection.InsertFile(file, missing, missing, missing, missing)

                If insertPageBreaks AndAlso breakStop <> documentCount Then
                    selection.InsertBreak(pageBreak)
                End If
            Next

            wordDocument.SaveAs(outputFile, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing)
            wordDocument = Nothing
        Catch ex As Exception
            Throw ex
        Finally
            wordApplication.Quit(missing, missing, missing)
        End Try
    End Sub

Input File

File 1