vba Word-Tabelle_ganze Zeilen löschen
09.11.2022 10:30:33
patinspace
vielleicht kann mir wer bei meinem Problem behilflich sein.
Ich möchte in einem Word Dokument, in welchem eine Tabelle mit Inhalten befüllt werden kann (in Word wegen Formularfunktion) per Button die letzte Zeile löschen.
Dies hab ich bereits in VBA umsetzen können, jedoch möchte ich natürlich nicht, dass der Benutzer die ganze Tabelle löschen kann mittels Button. Ich würde dazu - wenn sinnvoll - gerne eine IF-Funktion verwenden, die prüft ob die vorhandene Tabelle min. 2 Zeilen aufweist. Und wenn ja, kann die letzte Zeile gelöscht werden.
Hoffe, dass meine Anfrage verständlich ist.
Anbei mein geschriebenes Modul:
Sub letztezeile()
DokuAuf
kopierZeile2
DokuZu
End Sub
Private Sub DokuAuf()
If ActiveDocument.ProtectionType wdNoProtection Then
ActiveDocument.Unprotect Password:=""
End If
End Sub
With ActiveDocument
If .FormFields.Result = "" Then ?
.Tables(1).Rows.Last.Cells.Delete
End If
End With
End Sub
Private Sub DokuZu()
If ActiveDocument.ProtectionType = wdNoProtection Then
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True, Password:=""
End If
End Sub
Anzeige