Replies

Thanks Han,

I did that, but placing break after Copy Picture. The chart (graphic) is in the clipboard and pastable anywhere.

Regards
Ridz

Thanks Hans,

It indeed solves the problems. However, do you know why I was not given the chance to select different worksheet within the workbook? OLE option allows that.

Regards
Rid

Thank you.

Did you mean IncludeText field code? I am not able to find InsertFile with Word Help.

Regards
Rid

Thank you everyone and sorry for replying late.

The good news is I have managed to convince the boss to use PDF instead. I used plug-in to Acrobat to convert the old colours to the new ones.

Again thank you.

Regards
Rid

Hans,

In this case, the documents do not ‘deserve’ 100% treatment anymore, as they will become obsolete by the end of this year. But the boss still wants to do the extra steps and wants the colours in the documents to be changed. In other words, I want easy way out, if it is at all possible. I don’t mind using Table Auto Format if the tables have patterns. But the cells are merged here and there; one cell of a row is shaded; whilst other similar tables are not. To put it crudely, I don’t know what the creators were doing.

Regards
Rid

Thanks Hans,

You read my ‘nightmare’ well. Yes, if the users could use different formats on text (even after styles are created for them), you could imagine how messy the tables produced. I am trying to avoid re-creating the tables, if I could simply “search and replace” the colours and shadings.

Regards,
Rid

Thank you.

It works for text, but how about cell border and Shading; text box fill colour?

Regards
Rid

Thanks Hans,

You are a life-saver.

I was short of manually typing out the TOC.

Regards
Rid

Thank you so much.

Hans,

Thank you so much. Everything is so far so good after I changed all the .Width to .PreferredWidth (including on the main document that I am working on). What is the difference between two or rather, when should one be used instead of the other?

Regards
Rid

Thanks Hans,

I tried after closing another document that has similar code, and it works (BUT…see below). I am still trying to figure out the cause why I cannot use the same codes on my actual document.

Now, the interesting part, can you see at your side that the width of columns in table 1 is different from table 2 (or table 3)? Do you know why?

Regards
Rid

Thanks Andrew,

I tried your suggestion, but unfortunately, it does not seem to solve the issue.

Now, the codes generate the same error at the first line that resize the column width (instead of 3rd line), no matter how wide I set the width to (ie. no chance to get to Column 3 and resize the width).

…
With Selection.Tables(1)
.Columns(1).Width = CentimetersToPoints(7.5) ‘ Error here
.Columns(2).Width = CentimetersToPoints(1.7)
.Columns(3).Width = 15
.Columns(4).Width = CentimetersToPoints(1)
End With
….

Regards
Rid

Attached is the document that contains a few tables.

Thank you in advance for your help.

Regards
Rid

MyTableStyle (a very misleading variable name, I am going to change it), is used to set the paragraph styles of the text in the table.

The paddings of the tables ware not effected by applying the style. To be very sure I have moved the codes above the codes I posted in my second Posting. Yet, the error still occur.

Thanks you.

Rid

Thanks Andy.

I am not sure if that is the case because I did set the left and right padding to 0 and 0.1 cm respectively before I set the column width.

I reset the paddings with the code (included in my first posting):

With Selection.Tables(1)
.PreferredWidthType = wdPreferredWidthPoints
.Rows.LeftIndent = CentimetersToPoints(0.4)
.PreferredWidth = CentimetersToPoints(10.5)
.TopPadding = CentimetersToPoints(0)
.BottomPadding = CentimetersToPoints(0)
.LeftPadding = CentimetersToPoints(0)
.RightPadding = CentimetersToPoints(0.1)
.Spacing = 0
.AllowPageBreaks = True
.AllowAutoFit = False
End With

Regards
Rid