troubleshooting Question

vb script equalizing width of rows

Avatar of Keith McElroy
Keith McElroy asked on
VB ScriptMicrosoft Word
1 Comment1 Solution130 ViewsLast Modified:
I have tables that are 6 columns in most rows and 1 merged column in other rows
I am deleting the 6th column if it exists.
Then, I want the one merged column row to be the same width.
The following code errs saying trw.width is not a valid property

How do I fix this code...

                        dim tblwidth
                        if tbl.Columns.count > 5 and then
                              for each trw in tbl.rows
                                    if trw.cells.count > 5 then
                                          trw.cells(6).Delete   'this works
                                          tblwidth = trw.width       'this fails
                                          
                                    end if
                                    
                                    if trw.cells.count = 1 then
                                    
                                          trw.width = tblwidth  'this will make the merged column row same width as the rows above that were trimmed down to 5 columns.
                                          
                                    end if
                              next
                              
                        end if
ASKER CERTIFIED SOLUTION
Neil Fleming
Consultant and developer

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Join our community to see this answer!
Unlock 1 Answer and 1 Comment.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 1 Comment.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros