2009-10-03 18 views
1

J'ai une macro qui convertit Word docs en htm. Le problème est que les images sont toujours sauvegardées en 96 ppi, même si j'ai spécifié 240 ppi.Pourquoi SaveAs n'utilise pas correctement PixelsPerInch dans une macro?

Des idées sur la façon de résoudre?

Voici ma macro:

Sub Doc2htm() 
    With ActiveDocument.WebOptions 
     .RelyOnCSS = True 
     .OptimizeForBrowser = False 
     .OrganizeInFolder = True 
     .UseLongFileNames = True 
     .RelyOnVML = False 
     .AllowPNG = True 
     .ScreenSize = msoScreenSize800x600 
     .PixelsPerInch = 240 
     .Encoding = msoEncodingWestern 
    End With 
    With Application.DefaultWebOptions 
     .UpdateLinksOnSave = True 
     .CheckIfOfficeIsHTMLEditor = False 
     .CheckIfWordIsDefaultHTMLEditor = False 
     .AlwaysSaveInDefaultEncoding = False 
     .SaveNewWebPagesAsWebArchives = True 
    End With 

    Dim newName As String 
    Dim fileDir As String 
    newName = ActiveDocument.Name 
    If InStr(newName, ".doc") = 0 Then Exit Sub 
    newName = Left(newName, InStr(newName, ".doc") - 1) & ".htm" 
    fileDir = Left(ActiveDocument.FullName, InStrRev(ActiveDocument.FullName, "\")) 

    ChangeFileOpenDirectory fileDir 
    ActiveDocument.SaveAs FileName:=fileDir & newName, FileFormat:= _ 
     wdFormatFilteredHTML, LockComments:=False, Password:="", AddToRecentFiles _ 
     :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _ 
     :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _ 
     SaveAsAOCELetter:=False 
    'Application.Quit 

End Sub

Répondre

0

Essayez FileFormat: = wdFormatHTML plutôt que de FileFormat: = wdFormatFilteredHTML

De http://answers.microsoft.com/en-us/office/forum/office_2010-word/image-quality-changes-when-saving-as-web-page/4c860944-c627-4fed-afd4-a7473ab1dee6 « Enregistrer comme « Filtrée » HTML supprimera toutes les balises spécifiques Office et apporter des modifications Au-delà de la suppression des tags, l'enregistrement en tant que HTML filtré réduit également les images à la résolution de l'écran.

De Image quality in "Web Page, Filtered" » ... c'est par défaut pour page Web Filtrée enregistre dans Word. Tous les MSO balises sont supprimés et il est aussi faible que possible en abaissant le DPI à 96"