Document .Net - Delete Text

How to delete a specific text from DOCX document using C# and VB.Net

This code example shows how to remove all matches of "Document" text.

Complete code

using System;
using System.Linq;
using SautinSoft.Document;

namespace Example
{
    class Program
    {
        static void Main(string[] args)
        {
            DeleteText();
        }
        /// <summary>
        /// Delete a specific text from DOCX document.
        /// </summary>
        /// </remarks>
        /// Details: https://sautinsoft.com/products/document/examples/delete-text-from-docx-document-net-csharp-vb.php
        /// </remarks>
        static void DeleteText()
        {
            string filePath = @"..\..\example.docx";
            string fileResult = @"Result.pdf";
            string textToDelete = "document";
            DocumentCore dc = DocumentCore.Load(filePath);

            int countDel = 0;
            foreach (ContentRange cr in dc.Content.Find(textToDelete).Reverse())
            {
                cr.Delete();
                countDel++;
            }
            Console.WriteLine("The text: \"" + textToDelete + "\" - was deleted " + countDel.ToString() + " time(s).");
            Console.ReadKey();

            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 System.Linq
Imports SautinSoft.Document

Module Sample
    Sub Main()
        DeleteText()
    End Sub

    ''' <summary>
    ''' Delete a specific text from DOCX document.
    ''' </summary>
    ''' </remarks>
    ''' Details: https://sautinsoft.com/products/document/examples/delete-text-from-docx-document-net-csharp-vb.php
    ''' </remarks>
    Sub DeleteText()
        Dim filePath As String = "..\example.docx"
        Dim fileResult As String = "Result.pdf"
        Dim textToDelete As String = "document"
        Dim dc As DocumentCore = DocumentCore.Load(filePath)

        Dim countDel As Integer = 0
        For Each cr As ContentRange In dc.Content.Find(textToDelete).Reverse()
            cr.Delete()
            countDel += 1
        Next cr
        Console.WriteLine("The text: """ & textToDelete & """ - was deleted " & countDel.ToString() & " time(s).")
        Console.ReadKey()

        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