VB.Net script for tables removal

[kdr13]

Dear support team,
Kindly provide VB.Net script for removing all tables from Word doc and saving changes to same file.

Thank you!

[Jane.Bai]

Hello,

Thanks for your inquiry.
Please use the code below to remove tables in a document.

Code: Select all

'Load Document
Dim doc As New Document()
doc.LoadFromFile("TableTest.docx")

'Remove all the tables   
For Each s As Section In doc.Sections
   Dim secTables As New List(Of Table)()
   For Each tb As Table In s.Tables
      secTables.Add(tb)
   Next
   For i As Integer = 0 To secTables.Count - 1
      s.Tables.Remove(secTables(i))
   Next
Next

'Save Document
 doc.SaveToFile("RemoveTable.docx", FileFormat.Docx)


Sincerely,
Jane
E-iceblue support team

[kdr13]

Thanks a lot.

There is one immediate error message that prevents the rebuild of the solution - the word "table" in the code provided is ambiguous so I changed it to Spire.Doc.Table - I will check if it works properly and let you know

[kdr13]

This code does not work - Please re-check / fix and also provide a code that supports both DOCX and DOC.

Thank you!

[Jane.Bai]

Hello,

Thanks for your response.
Please refer to the code below.

Code: Select all

Private Sub button15_Click(sender As Object, e As EventArgs)
   Dim path__1 = ""
   Dim fileExts As String = ""
   Dim openFileDialog As New OpenFileDialog()
   If openFileDialog.ShowDialog() = DialogResult.OK Then
      path__1 = openFileDialog.FileName
      fileExts = Path.GetExtension(path__1)
   End If

   Dim doc As New Document(path__1)

   For Each s As Section In doc.Sections
      '1. remove the tables in the header
      Dim hTable As New List(Of Table)()
      For Each hObject As DocumentObject In s.HeadersFooters.Header.ChildObjects
         If TypeOf hObject Is Table Then
            Dim table As Table = TryCast(hObject, Table)
            hTable.Add(table)
         End If
      Next
      For i As Integer = 0 To hTable.Count - 1

         s.HeadersFooters.Header.ChildObjects.Remove(hTable(i))
      Next

      '2. remove the tables in the footer
      Dim fTable As New List(Of Table)()
      For Each fObject As DocumentObject In s.HeadersFooters.Footer.ChildObjects
         If TypeOf fObject Is Table Then
            Dim table As Table = TryCast(fObject, Table)
            fTable.Add(table)
         End If
      Next
      For i As Integer = 0 To fTable.Count - 1

         s.HeadersFooters.Footer.ChildObjects.Remove(fTable(i))
      Next


      '2. remove tables in body   
      Dim secTables As New List(Of Table)()
      For Each tb As Table In s.Tables
         secTables.Add(tb)
      Next
      For i As Integer = 0 To secTables.Count - 1
         s.Tables.Remove(secTables(i))
      Next
   Next


   doc.SaveToFile(Convert.ToString("result") & fileExts, FileFormat.Auto)
   System.Diagnostics.Process.Start(Convert.ToString("result") & fileExts)
End Sub


If there's still any issue, please provide your sample file.

Sincerely,
Jane
E-iceblue support team

[kdr13]

I tweaked the piece of code provided and it works fine now.

Thank you!

[Jane.Bai]

Hello,

Glad to hear that.
Just feel free to contact us if you need any assistance.

Sincerely,
Jane
E-iceblue support team