.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
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
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 129802
Url: https://administrator.de/forum/css-datei-in-html-ueber-vba-einbinden-129802.html
Ausgedruckt am: 22.04.2025 um 17:04 Uhr