Sub ScratchMacro()
Dim strFileName As String
Dim bInvalid As Boolean
bInvalid = False
With ActiveDocument
Select Case True
Case .SelectContentControlsByTitle("Disc.").Item(1).ShowingPlaceholderText: bInvalid = True
Case .SelectContentControlsByTitle("RegNo").Item(1).ShowingPlaceholderText: bInvalid = True
Case .SelectContentControlsByTitle("Driver").Item(1).ShowingPlaceholderText: bInvalid = True
Case .SelectContentControlsByTitle("Company").Item(1).ShowingPlaceholderText: bInvalid = True
Case Else
strFileName = .SelectContentControlsByTitle("Disc.").Item(1).Range.Text & "-" & _
.SelectContentControlsByTitle("RegNo").Item(1).Range.Text & "-" & _
.SelectContentControlsByTitle("Company").Item(1).Range.Text & "-" & _
.SelectContentControlsByTitle("Driver").Item(1).Range.Text
End Select
End With
If bInvalid Then
MsgBox "File name not defined from document content."
Exit Sub
End If
With Dialogs(wdDialogFileSaveAs)
.Name = strFileName
.Show
End With
lbl_Exit:
Exit Sub
End Sub