Запускаю макрос из Excel, макрос запускает Word, в нем PDF, а в HTM не сохраняет. И ошибки не дает, не сталкивались с таким?
Sub Conv()
Dim objWrdApp As Object
Dim objWrdDoc As Object
On Error Resume Next
Set objWrdApp = GetObject(, "Word.Application")
If objWrdApp Is Nothing Then
Set objWrdApp = CreateObject("Word.Application")
Set objWrdDoc = objWrdApp.Documents.Open("c:\A1.pdf")
objWrdApp.Visible = True
With objWrdApp
ActiveDocument.SaveAs2 Filename:= _
" c:\A1.htm", _
FileFormat:=wdFormatFilteredHTML, LockComments:=False, Password:="", _
AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
:=False, SaveAsAOCELetter:=False, CompatibilityMode:=0
End With
objWrdApp.Quit
Else
End If
End Sub
И вместо этого
FileFormat:=wdFormatFilteredHTML
это вставлял
FileFormat:=8
Ни хрена
Зачем вы обращаетесь к запущенному Ворду:
Set objWrdApp = GetObject(, "Word.Application")
Почему всегда не запускать Ворд? Может так код будет проще.
Вот так сработало
objWrdDoc.SaveAs2 Filename:="С:\A1.html", FileFormat:=8