Delete Empty Rows and empty columns from the word table

**mvneema** · 03-25-2014, 09:41 AM

I am trying to populate the 2 tables from excel to word. I will be getting the excel file with tables in various sheets. One sheet consist of 2 tables that will be inserted to one word document. So if there are 2 sheets then I will have the tables inserted in the 2 word document. In the excel sheet I have attached, there are 2 sheets with tables in each of them. I have written the code to copy and paste the table to word doc from (general) range A1:G4 (Table 1) and A9:H18 (Table 2) that has empty rows and columns selected. But there are empty rows and columns inserted since the table range is not same sheetwise. I would like get the empty rows and columns deleted in the word table. Can some one help me on this? Please find the attached sample excel sheet and the word documents.

**AlphaFrog** · 03-25-2014, 10:39 AM

You didn't include your code.

I would suggest instead of deleting rows\columns from the Word doc, it would be easier to copy only the cells with data instead of a fixed size range. There are several methods to define used cell areas in VBA depending on the nature of your data. Below are two examples to copy only the rows with data from sheet 1

Sub Copy_Table1()
    With Sheets("Sheet1")
        .Range("A1", .Range("A9").End(xlUp)).Resize(, 7).Copy  'columns A:G
    End With
End Sub
    
Sub Copy_Table2()
    With Sheets("Sheet1")
        .Range("A9", .Range("A100").End(xlUp)).Resize(, 7).Copy  'columns A:G
    End With
End Sub

Here's a very good guide with other examples. If you do a web search, you can find several more guides.
Select Actual Used Range in Excel Sheet

**mvneema** · 03-25-2014, 10:51 AM

Hi Apha,
Oops I am sorry about that. Here is the code

Dim rRange1, rRange2 As Range
        Dim destRg1, destRg2 As Word.Range
Set rRange1 = Worksheets(FName).Range("A1:G415")
            Set rRange2 = Worksheets(FName).Range("A9:H18")
            
            'copy and paste the data range (could be a table1)
            
            rRange1.Copy  ' set the arguments as needed
            Set destRg1 = Wrd.ActiveDocument.Bookmarks("tab1").Range
            If destRg1.Tables.Count > 0 Then destRg1.Tables(1).Delete
        
            destRg1.PasteExcelTable LinkedToExcel:=False, _
            WordFormatting:=True, RTF:=False
            Wrd.ActiveDocument.Bookmarks.Add Name:="tab1", Range:=destRg1.Tables(1).Range
           
       
       
          
            'copy and paste the data range (could be a table2)
            rRange2.Copy  ' set the arguments as needed
            Set destRg2 = Wrd.ActiveDocument.Bookmarks("tab2").Range
            If destRg2.Tables.Count > 0 Then destRg2.Tables(1).Delete
        
            destRg2.PasteExcelTable LinkedToExcel:=False, _
            WordFormatting:=True, RTF:=False
            Wrd.ActiveDocument.Bookmarks.Add Name:="tab2", Range:=destRg2.Tables(1).Range

in this code snippet, i am copy and pasting the table from excel sheet to word where there is a bookmarks tab1 and tab2 in word.
Will I be able to select the used range for sheets even though there have different range (like start and end range)? I will absolutely look at the guide as well. Thanks for the reply.

Delete Empty Rows and empty columns from the word table

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Delete Empty Rows and empty columns from the word table

Re: Delete Empty Rows and empty columns from the word table

Re: Delete Empty Rows and empty columns from the word table

Thread Information

Users Browsing this Thread

Similar Threads

[SOLVED] Delete rows when two columns are empty

how to delete empty rows or columns only

Find empty columns, rows and delete

[SOLVED] Delete rows with empty cells in columns B&C

Code to Delete Empty Rows in a Word Table

Bookmarks

Bookmarks

Posting Permissions