Microsoft Office Forums - View Single Post - [Solved] VB Script using Content Control

Thread: [Solved] VB Script using Content Control

View Single Post

Old

01-13-2022, 10:51 PM

gmayor

gmayor is offline

gmayor uses Windows 10

Windows 10 gmayor uses Office 2019

gmayor uses Office 2019

Office 2019

Expert

Join Date: Aug 2014

Posts: 4,106

gmayor has much to be proud of

gmayor has much to be proud of

gmayor has much to be proud of

gmayor has much to be proud of

gmayor has much to be proud of

gmayor has much to be proud of

gmayor has much to be proud of

gmayor has much to be proud of

Default

The code references are to lower case so

Code:

Case Is = "ComSystem"

is never going to be true

Use instead

Code:

Case Is = "comsystem"

Similarly

Code:

If InStr(1, LCase(ContentControl.Range.Text), "test") > 0 Then

There doesn't appear to be a content control titled "BVW" in the document?

__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com

Reply With Quote