Thread: Save Filename based on Text Field
View Single Post
 
Old 09-30-2014, 08:32 PM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,467
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default
Yes, and it's quite simple, using code like:
Code:
With ActiveDocument
  .SaveAs2 FileName:="C:\Users\" & Environ("Username") & "\Documents\" & _
    .SelectContentControlsByTitle("MyControl")(1).Range.Text & ".PDF", _
    FileFormat:=wdFormatPDF
End With
where 'MyControl' is your content control's title.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote