Keywords-Metatag mit VBA erstellen

Mit einem einfachen VBA-Makro lassen sich Wörter eines HTML-Dokuments ins Keywords-Metatag aufnehmen.

Die c't schreibt in Ausgabe 24/00 im Testbericht zu Adobe GoLive 5.0 auf Seite 96 folgendes:

Vorbildlich geht GoLive mit dem Meta-Tag "Keywords" um. Der Befehl "Als Schlüsselwort aufnehmen" überträgt das gerade markierte Wort in das entsprechende Header-Element.

Das ist vermutlich ein Meilenstein in der Software-Entwicklung. Mit FrontPage geht es allerdings auch:

Public Sub As_Keyword()
  
  If ActiveDocument Is Nothing Then
    MsgBox "Sie müssen zuerst ein Dokument öffnen.", _
     vbOKOnly Or vbExclamation
    Exit Sub
  End If
  
  With ActiveDocument
  
    Dim keyword As String
    keyword = Trim(.selection.createRange.Text)
    If keyword = "" Then
      MsgBox "Sie müssen zuerst ein Wort markieren.", _
       vbOKOnly Or vbExclamation
      Exit Sub
    End If
  
    If .all.tags("META").Item("KEYWORDS") Is Nothing Then
      .all.tags("HEAD")(0).insertAdjacentHTML _
       "BeforeEnd", "<meta name=""Keywords"" content=""" & _
       keyword & """>"
    Else
      .all.tags("META").Item("Keywords").setAttribute _
       "content", .all.tags("META").Item("Keywords"). _
       getAttribute("content") & ", " & keyword
    End If
  End With
End Sub

Das ist alles. Und kostet zusammen mit FrontPage nicht über 500,- DM. Ein wesentlich umfangreicheres Makro für die Verwaltung von Meta-Tags hat Otto Janko entwickelt.

Natürlich interessiert sich keine brauchbare Suchmaschine noch für Meta-Tags.