Macro to auto-save pdf using text on page + current date

macropod · #4 02-02-2018, 04:10 PM

Rather than using the VBA code listed in the "Advanced Custom Mapping" section, you might want to read a little further on and go to the 'Content Control Tools' page and download the addin there.

A simpler alternative would be to use a ContentControlOnExit macro in the 'ThisDocument' code module of either the document or its template, coded along the lines of:

Code:

Private Sub Document_ContentControlOnExit(ByVal CCtrl As ContentControl, Cancel As Boolean)
If CCtrl.Title <> "Parent" Then Exit Sub
With CCtrl
  If .ShowingPlaceholderText = False Then
    ActiveDocument.SelectContentControlsByTitle("Child")(1).Range.Text = .Range.Text
  Else
    ActiveDocument.SelectContentControlsByTitle("Child")(1).Range.Text = "XXXX"
  End If
End With
End Sub

where 'Parent' is the title of the Content Control you type in and 'Child' is the title of the Content Control the typed string is to be replicated in.

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Auto save macro	brent chadwick	Word VBA	10	10-25-2017 08:26 AM
How to save the current page in a new file with all the page settings (header, footer	Jamal NUMAN	Word	6	03-15-2012 03:27 PM
How to call current PC date and/or current PC year	KIM SOLIS	Excel	2	11-04-2011 06:09 PM
Word Macro: Save file as text with current file name	jabberwocky12	Word VBA	2	10-22-2010 12:23 PM
Auto insert current month's name and current year	Styler001	Word	4	01-25-2010 06:40 PM