W2HTML

Autor:
Jrgen Hinrichs
schul16@gmx.net
http://mitglied.lycos.de/erleuchtet/index-g.htm
Infos und Tips fr Word, Windows, Access, Excel, Internet

Dieses Makro unterliegt dem Urheberrecht und bleibt Eigentum des Autors.
Es ist Freeware und darf unter Nennung des Autors und der Herkunft
unentgeltlich weitergegeben werden.

Es darf weder verkauft noch verliehen noch anderweitig kommerziell
vertrieben werden, auch nicht in genderter oder erweiterter Form.

Jedwede Haftung wird ausgeschlossen.
Weitere Makros auf Anfrage.


###############

Makro AlsInternetSeiteSpeichern

Speichert eine Seite in WORD 97 / 2000 zweimal ab:

I. einmal im originalen WORD- Format (.doc) im ursprnglichen Verzeichnis zur spteren Weiterbearbeitung und

II. einmal als abgeleitetes HTML- Dokument (.htm). 

Das Makro macht so aus dem mchtigem WORD Textverarbeitungsprogramm einen recht brauchbaren HTML- Editor, da viele WORD- Features, Makros und Automatismen bei der Erstellung von Internetseiten genutzt werden knnen, ohne bei der Konvertierung zu HTML jedesmal verloren zu gehen: das Original wird im WORD- Format abgespeichert und in HTML nur eine Kopie der jeweiligen aktuellen Seite.

###############


Den unten stehenden Makro- Code kopieren und in MS WORD 97 / 2000
ber

 "Extras / Makro / Makros: Erstellen"

unter einem ausgewhlten Namen vollstndig in das sich ffnende Editor- Fenster einfgen




CODE AB HIER KOPIEREN (inklusive der Anfangs- und Endzeilen mit "Sub") 

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Sub AlsInternetSeiteSpeichern()
Rem Makro erstellt 1999 von Juergen Hinrichs schul16@gmx.net

' AlsInternetSeiteSpeichern Makro II
' Speichert ein Word - Doc einmal als Doc und einmal als HTML- Seite
'
    Selection.WholeStory
    Selection.Fields.Update
 ActiveDocument.Save
 ActiveDocument.Close
RecentFiles(1).Open

Rem  GEBEN SIE HIER DEN SPEICHERPFAD FUER DAS INTERNET-DOKUMENT EIN

ChangeFileOpenDirectory _
    "C:\EIGENE DATEIEN\"
     
Dim Datei$
Dim KeineErweiterung$
WordBasic.FileSave
Datei$ = WordBasic.[FileName$]()
KeineErweiterung$ = WordBasic.[FileNameInfo$](Datei$, 4)

Rem DAS FILE_FORMAT 100 MUSS EVTL. NOCH ANGEPASST WERDEN
 
     ActiveDocument.SaveAs FileName:= _
     KeineErweiterung$ + ".htm" _
     , FileFormat:=100, LockComments:=False, Password:="", AddToRecentFiles:= _
     True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
     False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
     SaveAsAOCELetter:=False
 ActiveDocument.Close


Rem FFNET DAS DOKUMENT VON NEUEM

Rem DIESE SCHLEIFE 'ON ERROR-NIX' WURDE IN WORD 2000 NOCH NICHT GEPRFT
Rem BEI VERSAGEN EIN APOSTROPH ' VOR DIE NCHSTE ZEILE STELLEN
On Error GoTo Nix
    RecentFiles(2).Open
GoTo Meldung

Nix:
MsgBox "Fehler beim Dateiaufruf"
MsgBox "Datei war mglicherweise noch in Gebrauch und wurde nicht gelscht"
GoTo Ende

Meldung:
WordBasic.MsgBox "Ihr Dokument wurde soeben zweimal gespeichert: einmal im originalen  Word (.doc)-Format und einmal als abgeleitetes HTML-Dokument (.htm)"

Ende:
End Sub

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Einige Makros sind so umfangreich, da sie bei greren Texten und geringem Arbeitsspeicher die Fhigkeit von MS WORD berschreiten sich zurckliegende Schritte zu merken. Das beeintrchtigt jedoch nicht die Funktion des Makros. In diesem Fall die Meldung: "Unzureichender Arbeitspeicher. Sie knnen diesen Vorgang nicht rckgngig machen. Fortfahren?" mit J (Ja), Eingabe- oder der Leertaste besttigen. Um dieses zu umgehen knnen grere Texte abschnittsweise in einem separaten Fenster bearbeiten werden.


- - - - - - - - - - - -


Wenn das Resultat im '.htm'- Format nur eine Ansammlung kryptischer Zeichen ist, in der Angabe

 "FileFormat: = 100,"    "100"  durch   "102" "110"  oder eine andere Zahl ersetzen; das ist von System zu System unterschiedlich.

Dazu ein Auszug aus der MICROSOFT WORD- HILFE:  

 "Sie knnen auch andere Dateiformate angeben, doch mssen diese im Abschnitt [MSWord Text Converters] der Datei WIN.INI aufgelistet sein. Sie knnen den entsprechenden Wert bestimmen, indem Sie die Eintrge (beginnend mit Null) bis zum gewnschten Eintrag zhlen und anschlieen 100 hinzuaddieren."

Leichter geht es so:

"Wenn Sie sich nicht sicher sind, welche Visual Basic- Methode oder- Eigenschaft Sie verwenden sollen, knnen Sie die Makroaufzeichnung aktivieren und die Aktion manuell ausfhren. Die Makroaufzeichnung konvertiert Ihre Aktionen in einen Visual Basic- Code. Nachdem Ihre Aktionen aufgezeichnet wurden, knnen Sie den Code Ihren Wnschen entsprechend ndern. Wenn Sie sich z. B. nicht sicher sind, welche Eigenschaft oder Methode fr einen Absatzeinzug verwendet wird, gehen Sie wie folgt vor:

1. Whlen Sie im Men Extras den Befehl Makro, und klicken Sie anschlieend auf Aufzeichnen.
2. ndern Sie gegebenenfalls den Standardnamen fr das Makro, und klicken Sie auf OK, um die Aufzeichnung zu beginnen."

...

Nun das offene Dokument mit "Datei/Speichern Unter Dateityp: HTML" als HTML speichern und Makroaufzeichnung beenden:

...

"5. Klicken Sie auf die Schaltflche Beenden in der Aufzeichnung beenden- Symbolleiste.

6. Whlen Sie im Men Extras den Befehl Makros, und klicken Sie anschlieend auf Makros.
7. Whlen Sie den Namen fr das Makro (siehe Schritt 2), und klicken Sie auf die Schaltflche Bearbeiten."

Hier kann man nun die fr das jeweilige System vorgesehene Zahl fr das Konvertierungsformat zu 'HTML' ablesen, herauskopieren und in das Makro AlsInternetSeiteSpeichern bertragen.



Neue Makros in MS WORD 97 / 2000 integrieren:

 "Extras / Anpassen / Befehle / Kategorien: Makros"

Makro auswhlen und durch Ziehen mit der Maus in ein Men einfgen

Beispielsweise in "Datei" als '&Als Internet Seite Speichern' 

oder ber "Tastatur" mit einer Tastenkombination belegen. 


Alternativ das Makro direkt ber

 "Extras / Makro / Ausfhren" 	

auswhlen und ausfhren lassen.




Einbau und Betrieb des Makros geschieht auf eigenes Risiko.

(c) 1999 Jrgen Hinrichs




