Почему SaveAs не использует правильный PixelsPerInch в макросе? - PullRequest
Новая
       28

Почему SaveAs не использует правильный PixelsPerInch в макросе?

1 голос
/ 03 октября 2009

У меня есть макрос, который преобразует документы Word в htm. Проблема в том, что изображения всегда сохраняются как 96 ppi, хотя я указал 240 ppi.

Есть идеи как исправить?

Вот мой макрос: 

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

1 Ответ

0 голосов
/ 30 ноября 2013

Попробуйте FileFormat: = wdFormatHTML, а не FileFormat: = wdFormatFilteredHTML

С http://answers.microsoft.com/en-us/office/forum/office_2010-word/image-quality-changes-when-saving-as-web-page/4c860944-c627-4fed-afd4-a7473ab1dee6 "Сохранение в виде« Отфильтрованного »HTML удалит любые специальные теги Office и внесет изменения в файл, чтобы обеспечить совместимость браузера. Помимо удаления тегов, сохранение в виде« Отфильтрованного HTML »также приведет к уменьшению изображения до разрешения экрана. . "

С Качество изображения в "Web Page, Filtered""... это по умолчанию для сохраненных в Word отфильтрованных веб-страниц. Все тэги mso удаляются и уменьшаются до минимума путем DPI до 96 "

...