Guten Tag,
Hallo an alle Experten…
ich habe folgendes problem. Ich will ein programm in vba (um einen makro ausführen zu können) schreiben, dass mir eine .doc datei in html umwandelt und unter einem 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) einbinden. sprich er soll die beiden 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 dateien 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 dateien sind schon alle foramtierungen integriert!!!
bitte um hilfe…
danke
jasmin