Microsoft Office Forums

Go Back   Microsoft Office Forums > >

 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #4  
Old 05-04-2017, 10:39 PM
gmayor's Avatar
gmayor gmayor is offline Assistance with Word VBA Windows 10 Assistance with Word VBA Office 2016
Expert
 
Join Date: Aug 2014
Posts: 4,144
gmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud of
Default

You can add the subject string to your macro that saves the document e.g.

Code:
Sub SaveForm()
Dim strPath As String
Dim strName As String
strPath = "C:\Path\"    'Where to save the document
    On Error GoTo err_Handler
    If ActiveDocument.FormFields("User_Name").Result = "" Or _
       ActiveDocument.FormFields("Cell_Phone_Number").Result = "" Then
        MsgBox "Complete name and cell number fields"
        GoTo lbl_Exit
    End If
    strName = "GSS #390 for " & ActiveDocument.FormFields("User_Name").Result & Chr(32) & ActiveDocument.FormFields("Cell_Phone_Number").Result
    strName = strName & ".docx"
    ActiveDocument.SaveAs2 strPath & strName
lbl_Exit:
    Exit Sub
err_Handler:
    If Err.Number = 5941 Then
        MsgBox "One or other of the form fields used to name the documnent is missing!"
        Err.Clear
        GoTo lbl_Exit
    End If
End Sub
__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com
Reply With Quote
 



Similar Threads
Thread Thread Starter Forum Replies Last Post
Assistance with Word VBA Search assistance mysterytramp Word 2 04-06-2016 06:28 AM
Assistance with Word VBA Assistance with VBA Code to identify and highlight dates in a word doc shaunlthomas Word VBA 1 08-13-2015 05:25 PM
Assistance with Word 2010 If formula ciresuark Word 1 03-09-2015 12:57 PM
Graph Assistance medavidcook Excel 9 01-31-2014 02:17 AM
Assistance with Word VBA Formula assistance please blazzercat Excel 2 07-08-2009 08:45 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 07:41 PM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft