How do a make a doc save based on a text field?

D

Dbltap

Is there a way to make a form base the save as name on the text in a specific
text box? I couldn't find this by searching.

Thanks.
 
D

Doug Robbins

Dim fname as string
fname = ActiveDocument.Formfields("filenameformfieldname").Result
ActiveDocument.SaveAs fname

--
Please respond to the Newsgroup for the benefit of others who may be
interested. Questions sent directly to me will only be answered on a paid
consulting basis.

Hope this helps,
Doug Robbins - Word MVP
 
D

Dbltap

Ok, I think this is what I need. I followed instructions on the MVP site on
what to do with macros others sent and I created the macro in the template I
want this to work in. I then went into the text box properties for that field
and selected the macro I created to run on exit of that box and checked
calculate on exit but it still doesn't work.

The save name it always gives me is my old home address and I can not figure
out where it is getting this from. Is there a macro running that I don't know
about or am I missing something really basic? If you can't tell I'm new to
macros.

Thanks again.
 
D

Doug Robbins

I assume that you replace "filenameformfieldname" with the actual name of
the bookmark assigned to the formfield?

If you run a macro containing the following code on exit from the formfield,
what is displayed in the message box:

MsgBox ActiveDocument.Formfields("filenameformfieldname").Result


--
Please respond to the Newsgroup for the benefit of others who may be
interested. Questions sent directly to me will only be answered on a paid
consulting basis.

Hope this helps,
Doug Robbins - Word MVP
 
D

Dbltap

Ok I figured out my mistake, thanks Doug. Now if I wanted it to have
something added in front of the text from the named field, i.e. "P&D Report"
and then the field name how would I do that?

Thanks again for putting up with my dumb questions.

Chris
 
D

Doug Robbins

Replace

fname = ActiveDocument.Formfields("filenameformfieldname").Result

with

fname = "P&D Report" &
ActiveDocument.Formfields("filenameformfieldname").Result

--
Please respond to the Newsgroup for the benefit of others who may be
interested. Questions sent directly to me will only be answered on a paid
consulting basis.

Hope this helps,
Doug Robbins - Word MVP
 
Top