Adding tables to Created word document whilst other word document open Help

macropod · #16 03-28-2016, 02:30 PM

The code works fine for me, though I note you're still not structuring your code consistently. For your own benefit, at least, you really need to address that.

rpb925 · #17 03-28-2016, 03:13 PM

Is it the borders code that is inconsistent. I would like to make the code as good as possible. Not sure what you mean by inconsistent.

macropod · #18 03-28-2016, 03:26 PM

Quote:

Originally Posted by rpb925

Is it the borders code that is inconsistent. I would like to make the code as good as possible.

Well, since you've set them all to 'none', I can't imagine what they're not consistent with.
That said, you could replace all of:

Code:

        .ApplyStyleLastRow = False
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = False
        .ApplyStyleRowBands = True
        .ApplyStyleColumnBands = False
        .Borders(wdBorderLeft).LineStyle = wdLineStyleNone
        .Borders(wdBorderRight).LineStyle = wdLineStyleNone
        .Borders(wdBorderTop).LineStyle = wdLineStyleNone
        .Borders(wdBorderBottom).LineStyle = wdLineStyleNone
        .Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone
        .Borders(wdBorderVertical).LineStyle = wdLineStyleNone
        .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
        .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
        .Borders.Shadow = False

with:

Code:

        .Borders.Enable = False

Quote:

Originally Posted by rpb925

Not sure what you mean by inconsistent.

Well, the following hardly follows a decent visual structure:

Code:

      With wdTbl
                     ...
 
       With .Columns(1)
       .PreferredWidthType = wdPreferredWidthPoints
     .PreferredWidth = CentimetersToPoints(3)
    End With
 
     With .Columns(2)
       .PreferredWidthType = wdPreferredWidthPoints
     .PreferredWidth = CentimetersToPoints(13)
    End With

Visually, it gives the impression the first 'End With' related to 'With wdTbl', which it doesn't and that 'With .Columns(2)' ... 'End With' is outside the 'With wdTbl' ... 'End With' structure. Consider also Greg's comments about your code in this thread:
https://www.msofficeforums.com/word-...ated-word.html

rpb925 · #19 03-30-2016, 04:45 PM

Paul I took on your the verbose approach and used

Code:

'1cm=28points
            With .Columns(1)
            .Width = 84
            End With
             
            With .Columns(2)
            .Width = 364
            End With

and worked a treat. I think the tables are sorted now.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Adding furigana to a Word document	rjribbit	Word	0	12-03-2015 09:33 AM
Inexperienced user having dificulty adding text to document I created. Fixed text moves around.	Athalwolf	Word	2	02-08-2015 09:08 AM
Error message opening a document in Word "Word cannot open this file because it is larger than 512 M	poonamshedge	Word	2	09-11-2014 06:11 AM
Adding and Moving parts of a document in Word	PauledInAction	Word	4	07-13-2012 02:38 PM
Adding bullets in a protected Word document	Cindylu3	Word	0	10-03-2008 03:16 PM