Sub NeuesDokMitFortlaufendenAbschnittenUnd2tenAbschnittSchuetzen()
Documents.Add
ActiveDocument.Content.Select
With Selection
.Collapse Direction:=wdCollapseEnd
.InsertAfter Dies ist ein Text. & vbCr & vbCr
.Collapse Direction:=wdCollapseEnd
->fortlaufenden Abschnittswechsel einfügen
.InsertBreak Type:=wdSectionBreakContinuous
.InsertAfter Dies ist ein Text. & vbCr & vbCr
.Collapse Direction:=wdCollapseEnd
->fortlaufenden Abschnittswechsel einfügen
.InsertBreak Type:=wdSectionBreakContinuous
.InsertAfter Dies ist ein Text. & vbCr & vbCr
.Collapse Direction:=wdCollapseEnd
End With
->nur 2.Abschnitt schützen,
->es sind nur Eingaben in Formularfelder möglich
ActiveDocument.Sections(1).ProtectedForForms = False
ActiveDocument.Sections(2).ProtectedForForms = True
ActiveDocument.Sections(3).ProtectedForForms = False
ActiveDocument.Protect Type:=wdAllowOnlyFormFields
End Sub
Sub NeuesDok2MitFortlaufendenAbschnittenUnd2tenAbschnittSchuetzen()
Documents.Add
ActiveDocument.Content.Select
With Selection
.Collapse Direction:=wdCollapseEnd
.InsertAfter Dies ist ein Text. & vbCr & vbCr
.Collapse Direction:=wdCollapseEnd
->fortlaufenden Abschnittswechsel einfügen
.InsertBreak Type:=wdSectionBreakContinuous
.InsertAfter Dies ist ein Text. & vbCr & vbCr
.Collapse Direction:=wdCollapseEnd
->fortlaufenden Abschnittswechsel einfügen
.InsertBreak Type:=wdSectionBreakContinuous
.InsertAfter Dies ist ein Text. & vbCr & vbCr
.Collapse Direction:=wdCollapseEnd
End With
->nur 2.Abschnitt schützen,
->es sind nur Eingaben in Formularfelder möglich
ActiveDocument.Sections(1).ProtectedForForms = False
ActiveDocument.Sections(2).ProtectedForForms = True
ActiveDocument.Sections(3).ProtectedForForms = False
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, Password:=123456
End Sub
Sub SetUnprotection()
ActiveDocument.Unprotect _
Password:=123456
End Sub