'========================================================================
'Projekt: Frontpage-Erweiterungen
'Modul: ojMetatagsBearbeiten
'Version: 1.1
'Frontpage: 2000, 2002
'Nutzung: Freeware
'Copyright: (c) 2001 by Otto Janko. All Rights Reserved.
'Version: 1.101
'Veränderungen gegenüber 1.1
' am Ende jeden Metatags vbCRLF eingefügt, Code ist besser lesbar
' separates Einlesen jeden Metatags
'
Option Explicit
Public Sub
ojMetatagsBearbeiten()
If
(ActiveWebWindow.PageWindows.Count = 0) Then
MsgBox "Es ist kein Dokument geöffnet", _
vbOKOnly + vbExclamation
Exit Sub
End If
frmMetatagsBearbeiten.Show vbModeless
End Sub