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

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

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