Quote:
Originally Posted by gmaxey
Code:
Sub Document_Open()
Dim oCC As ContentControl
Set oCC = ActiveDocument.SelectContentControlsByTitle("Name").Item(1)
oCC.Type = wdContentControlText
oCC.Range.Text = Application.UserName
oCC.Type = wdContentControlDropdownList
Document_ContentControlOnExit oCC, False
lbl_Exit:
Exit Sub
End Sub
|
Thanks Greg!
Should this code (along with the other code I showed in the 2nd message of this thread) also update my "Title" control. I'm assuming it should because of the
Document_ContentControlOnExit statement. Is this correct?
Also, one last thing (hopefully). Once I have the template the way I want it. What do I need to do to get it to work on our companies server? Besides copying the template to an accessible drive, are there any other parts (xml,docm...) that I need to move over with the template?
Again, thanks again. I really appreciate your assistance.
03-03-2016, 06:15 AM
Similar Threads
Newbie Question
Windows 10 
Office 2013
Hybrid Mode