Adding a Save button into a document

macropod · #1 03-22-2013, 11:43 PM

OK, you're using content controls. But. Since you document has access to their properties locked via a password, I can't refer to it by name ...

That said, one can still refer to it as the first content control in the document.

If you add the following code to your incident report template's 'ThisDocument' code module, you should be able to get the result you're after. The code intercepts both the File|Save and File|SaveAs processes. By default, the code attempts to save the file to the folder you nominated but, if it doesn't exist, a folder browser pops up so the user can select another one (or create the missing one).

Code:

Sub FileSaveAs()
Dim StrPath As String, StrName As String
StrPath = "C:\" & Environ("Username") & "\Temp\Documents\Forms\"
StrName = ActiveDocument.ContentControls(1).Range.Text
If StrName Like "Choose*" Then
  MsgBox "Error: Residence incomplete", vbCritical
  Exit Sub
End If
If Dir(StrPath) = "" Then
  StrPath = GetFolder
  If StrPath = "" Then
    MsgBox "No Save Path Available", vbCritical
    Exit Sub
  End If
  StrPath = StrPath & "\"
End If
With Application.Dialogs(wdDialogFileSaveAs)
  .Name = StrPath & StrName & "_" & Format(Now, "YYYYMMDD")
  .Show
End With
End Sub
 
Sub FileSave()
With ActiveDocument
  If Not Right(Left(.FullName, InStrRev(.FullName, ".") - 1), 8) Like "########" Then
    Call FileSaveAs
    Exit Sub
  End If
  .Save
End With
End Sub
 
Function GetFolder() As String
Dim oFolder As Object
GetFolder = ""
Set oFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Choose a folder", 0)
If (Not oFolder Is Nothing) Then GetFolder = oFolder.Items.Item.Path
Set oFolder = Nothing
End Function

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Command button - save in temp folder and send email with attachment	bigbird69	Word VBA	13	11-18-2012 10:06 PM
Command Button will not work when document is protected	brockjensen	Word	1	11-02-2012 06:59 PM
Word ask to save template whenever i save a derived document	jorbjo	Word	3	10-04-2012 10:52 AM
Adding email button to Word form	leilers	Word	5	01-09-2012 03:21 PM
Adding an Email Button to a Word Document	maddoktor	Word	0	12-01-2011 01:32 PM