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

macropod · #1 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.

hysterical.useless · #2 02-02-2018, 04:55 PM

Sorry, I'm not sure I follow what you mean by "Parent" and "Child". But I was able to accomplish what I wanted using one of the predefined document types ("Company").

Is this enough information to construct the pdf macro, or do I need to implement the VBA code you provided first?

macropod · #3 02-02-2018, 05:05 PM

Quote:

Originally Posted by hysterical.useless

Sorry, I'm not sure I follow what you mean by "Parent" and "Child".

As indicated in my previous reply, those are content control titles that you can add via Developer|Controls>Properties, after selecting the appropriate content control.

hysterical.useless · #4 02-02-2018, 05:32 PM

I opened the property list. Each has a "(Name)" and "ThisDocument" attribute. The list is rather long, and I'm unsure if I need to be using to them.

I would assume the next step would be to create a macro for saving a pdf using the filename convention discussed in my original post. If we know I'm using the built-in "Company" control type for the "Lorem Ipsum" text in the filename, is there a way to grab that for the macro?

macropod · #5 02-02-2018, 05:42 PM

Quote:

Originally Posted by hysterical.useless

I opened the property list. Each has a "(Name)" and "ThisDocument" attribute. The list is rather long, and I'm unsure if I need to be using to them.

What you're looking at has nothing to do with

Quote:

Originally Posted by macropod

content control titles that you can add via Developer|Controls>Properties, after selecting the appropriate content control.

There are screenshots in the link I gave you, under 7. Content Controls - https://gregmaxey.com/word_tip_pages...ting_data.html

Quote:

Originally Posted by hysterical.useless

If we know I'm using the built-in "Company" control type for the "Lorem Ipsum" text in the filename, is there a way to grab that for the macro?

That's not the issue. The issue is the content replication. In any event, it's unwise to repurpose a built-in content control the way you propose.

hysterical.useless · #6 02-02-2018, 05:52 PM

Sorry if I'm not understanding - I am completely new to content controls - but what exactly is it that you need me to do at this point? I have my "Lorem ipsum" text replicating throughout the document as needed now. That solves the second part of my two-part issue in the original post, I think.

Now I just need to know how to write a pdf-save macro that saves the filename according to some boilerplate text at the front, my "Lorem ipsum" text currently being used with a content control, and the computer's internal date.

Am I missing something? Am I skipping a step? Apologies for all the questions.

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