eibst
04-28-2015, 02:31 AM
Hi Community!
I got a problem. I'm printing a document from our companies crm with mailmerge. Now the problem is that objects have different attributes (different size) and so sometimes the table gehts filled nearly entirely sometimes its nearly empty ! So I looked for a makro to clean the table and found one working for me :
Dim myTable As Table
Dim myRow As Row
Dim myCell As Cell
Dim myRange As Range
Dim IsEmpty As Boolean
For Each myTable In ActiveDocument.Tables
For Each myRow In myTable.Rows
IsEmpty = True
For Each myCell In myRow.Cells
Set myRange = myCell.Range
myRange.MoveEnd Unit:=wdCharacter, Count:=-1
If myRange.Text <> "" Then IsEmpty = False
Next myCell
If IsEmpty Then myRow.Delete
Next myRow
Next myTable
The thing is I want it to run automatically on the merged document which does unfortunately not work with autoOpen(), AutoExec() and so on.
Is there any possibilty that it automatically will be executed on the merged document!
I'm looking forward to your answers
regards
Stefan
PS: Sorry for my bad english :)
I got a problem. I'm printing a document from our companies crm with mailmerge. Now the problem is that objects have different attributes (different size) and so sometimes the table gehts filled nearly entirely sometimes its nearly empty ! So I looked for a makro to clean the table and found one working for me :
Dim myTable As Table
Dim myRow As Row
Dim myCell As Cell
Dim myRange As Range
Dim IsEmpty As Boolean
For Each myTable In ActiveDocument.Tables
For Each myRow In myTable.Rows
IsEmpty = True
For Each myCell In myRow.Cells
Set myRange = myCell.Range
myRange.MoveEnd Unit:=wdCharacter, Count:=-1
If myRange.Text <> "" Then IsEmpty = False
Next myCell
If IsEmpty Then myRow.Delete
Next myRow
Next myTable
The thing is I want it to run automatically on the merged document which does unfortunately not work with autoOpen(), AutoExec() and so on.
Is there any possibilty that it automatically will be executed on the merged document!
I'm looking forward to your answers
regards
Stefan
PS: Sorry for my bad english :)