Конвертация PDF в Excel

Автор Седой, 25 ноября 2022, 15:10

Седой

Запускаю макрос из 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