Thread: Newbie Question - Need direction on how to proceed
View Single Post
 
Old 03-03-2016, 06:15 AM
highrise955 highrise955 is offline Windows 10 Office 2013
Advanced Beginner
  
Join Date: Mar 2016
Posts: 37
highrise955 is on a distinguished road
Default
Quote:
Originally Posted by gmaxey View Post
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.
Reply With Quote