derjamalo
Goto Top

.css datei in html über VBA einbinden

Hallo an alle Experten....


ich habe folgendes problem. Ich will ein programm schreiben, dass mir eine .doc datei in html umwandelt und unter einen bestimmten namen speichert. dann soll das programm aus dem ordner, wo die html gespeichert worden ist, zwei css dateien (die zur formatierung der html datei dienen) und 2 gif bilder (die als banner oben platziert werden) einbinden. sprich er soll die 4 dateien in die html version einbringen.

habe es hingekriegt, dass mein .doc in html umgewandelt wird und in mein zielverzeichnis gespeichert wird(auch unter den gewünschten namen).
jetzt meine frage: wie kriege ich die einbindung der css bzw bilder hin?
mein code sieht bisher so aus:

Sub DocToHTML()

Dim FileName As String

If MsgBox("English File ?", vbQuestion + vbYesNo) = vbNo Then
FileName = "Info049"

Else
FileName = "Info001"
End If

ChangeFileOpenDirectory ("c:\Dokumente und Einstellungen\pyx127\Desktop\Allgemein\Dokus_HTML\HTML_Info")
ActiveDocument.SaveAs FileName:=FileName, FileFormat:= _
wdFormatFilteredHTML, LockComments:=False, Password:="", AddToRecentFiles _
:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
ActiveWindow.View.Type = wdWebView

End Sub


funktioniert soweit ganz gut, nur wie kriege ich die einbindung hin?
in den css datei sind schon alle foramtierungen integriert!!!


bitte um hilfe....

danke

jasmin

Content-Key: 129802

Url: https://administrator.de/contentid/129802

Ausgedruckt am: 29.03.2024 um 11:03 Uhr