Sub selectBlank()
Dim zahl As Long
Dim text As String
Dim br As String
Dim x As String
br = Chr$(13) & Chr$(10)
 
text = "<option value="""" selected></option>" + br
 
zahl = ActiveDocument.all.tags("select").Length - 1
 
While zahl >= 0
 
    x = ActiveDocument.all.tags("select").item(zahl).innerHTML
    ActiveDocument.all.tags("select").item(zahl).innerText = test + x 'FEHLER
    zahl = zahl - 1
 
Wend
 
End Sub