Dateiname zum Speichern bestimmen

Mit dem folgenden Makro wird der Dateiname bestimmt, welcher im Dialog 'Speichern unter ...' angezeigt wird.

With Dialogs(wdDialogFileSummaryInfo)

.Title = "myTitle"
.Execute

End With

Der Name in der Titelzeile von Word kann mit dem folgenden Befehl geändert werden:

Application.ActiveWindow.Caption = "myTitle"

---

Dokumentschutz ein und ausschalten

Die folgende Prozedur kann einem Symbol zugeordnet werden. Somit kann der Dokumentschutz eines Formulares einfach umgeschaltet werden, wobei die vorhandenen Eingaben nicht verloren gehen wie mit dem Standard-Wordbefehl.

Sub LockUnlockFormToggle()
On Error Resume Next
	If ActiveDocument.ProtectionType <> wdNoProtection Then
		ActiveDocument.Unprotect
	Else
		ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
	End If
On Error GoTo 0
End Sub

---

Funktion ob ein Formularfeld existiert

Diese Funktion dient zur Abfrage ob ein Formularfeld in einem Dokument exisitert. Danke an Thomas Schremser.

Public Function FormFieldExists(ByVal Name As String, _
  Optional ByVal Doc As Document) As Boolean
    Dim Dummy As FormField

    If Not IsObjectValid(Doc) Then
        Set Doc = ActiveDocument
    End If
    On Error Resume Next
    Set Dummy = Doc.FormFields(CStr(Name))
    FormFieldExists = (Err.Number = 0)
End Function

---

SIBS Sägesser Informatik