How convey this code to another documents???

Its only working in the same document. But i need to workout this to other documents.

Please advise.

Simply create a dotm template based on the document I supplied - or save it as a dotm template - then use that template for the creation of new documents (which you can save in the docx format). Provided the documents created from that template can access it, they content controls will continue to work.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Yes!! i got it

Thanks much again!!

Please refer the attached sample doc which is needs to be update automatically in point value section based on the number answers selected in the first column.

Answer choices are may be select both "X" or numeric (1,2,...etc).

So, the point value will be updated automatically as 01 for one answer selection, 02 for two answer choices selection and so on...

Please help out on this.

Attached Files

sample.docx (99.1 KB, 10 views)

Can anyone help out on this???

I think a little patience on your part wouldn't go astray. It also would have been helpful had you specified your requirements in full from the outset. So far you've made it like getting blood out of a stone... This should also have been posted as a follow-up in the original thread alone. Threads merged.

Change:
If .Range.Text = "X" Then j = j + 1
to:
If Trim(.Range.Text) <> "" Then j = j + 1

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Cross-posted at: https://social.msdn.microsoft.com/Fo...?forum=worddev
For cross-posting etiquette, please read: http://www.excelguru.ca/content.php?184

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

I am really Sorry about that Paul!!

I don't think you working on this. That's why i just created again..

Also i never except to come another option (numeric value) in this code.

Once again my Apologies!!!

I will check on this and let you know..

Thanks much!!!

Hi Paul!!!

The above modification code is not working for me.

Can you please check on this??

It works for me...

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Thanks for checking Paul!!!

I can able to access this macro now.

But i have the another doubt like,

if content control having the different titles called as "Correct Answer Match", "Correct Answer Label" etc...

What we can do??

thanks
Ganesan. G

You might, for example, change:
If .Title <> "Correct Answer" Then Exit Sub
to:
If Instr(.Title, "Correct Answer") <> 1 Then Exit Sub

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Thanks for the reply....

If i supposed to be use multiple styles instead of change the style?

This has nothing to do with Styles, but everything to do with your content control titles.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Hi Paul,

Thanks for the reply...

Sorry i am just asking about the content control titles if it is have more than one title as mentioned above, how we can modify the macro?