Document .Net - Insert Text

How to insert a text into an existing PDF document in a specific position using C# and VB.Net


Complete code

using SautinSoft.Document;

namespace Example
{
    class Program
    {
        static void Main(string[] args)
        {
            Paragraph();
        }
        /// <summary>
        /// Insert a text into an existing PDF document in a specific position.
        /// </summary>
        /// </remarks>
        /// Details: https://sautinsoft.com/products/document/examples/insert-text-to-pdf-document-net-csharp-vb.php
        /// </remarks>
       static void InsertText()
        {
            string filePath = @"..\..\example.pdf";
            string fileResult = @"Result.pdf";
            DocumentCore dc = DocumentCore.Load(filePath);

            // Find a position to insert text. Before this text: "> in this position".
            ContentRange cr =  dc.Content.Find("> in this position").FirstOrDefault();

            // Insert new text.
            if (cr != null)
                cr.Start.Insert("New text!");
            dc.Save(fileResult);
            System.Diagnostics.Process.Start(new System.Diagnostics.ProcessStartInfo(filePath) { UseShellExecute = true });
            System.Diagnostics.Process.Start(new System.Diagnostics.ProcessStartInfo(fileResult) { UseShellExecute = true });

        }
    }
}

Download.

        
            Imports System
Imports System.IO
Imports SautinSoft.Document

Module Sample
    Sub Main()
        Paragraph()
    End Sub

    ''' <summary>
    ''' Insert a text into an existing PDF document in a specific position.
    ''' </summary>
    ''' </remarks>
    ''' Details: https://sautinsoft.com/products/document/examples/insert-text-to-pdf-document-net-csharp-vb.php
    ''' </remarks>
   Sub InsertText()
        Dim filePath As String = "..\example.pdf"
        Dim fileResult As String = "Result.pdf"
        Dim dc As DocumentCore = DocumentCore.Load(filePath)

        ' Find a position to insert text. Before this text: "> in this position".
        Dim cr As ContentRange = dc.Content.Find("> in this position").FirstOrDefault()

        ' Insert new text.
        If cr IsNot Nothing Then
            cr.Start.Insert("New text!")
        End If
        dc.Save(fileResult)
        System.Diagnostics.Process.Start(New System.Diagnostics.ProcessStartInfo(filePath) With {.UseShellExecute = True})
        System.Diagnostics.Process.Start(New System.Diagnostics.ProcessStartInfo(fileResult) With {.UseShellExecute = True})
    End Sub
End Module

Download.

© SautinSoft 2002 - 2019