Save a word doc as .jpg from Excel macro?

[espenskeie]

Hi

Is it possible to save a word docx as .jpg file from Excel?

Or .pdf?

Regards
Espen

 

[wigi]

What version of Office do you use?

 

[espenskeie]

I have the 2010 Office

 

[wigi]

Then, this code is an example to save as PDF. The code needs to be in Word VBA:

Sub SaveAsPDF()

    ActiveDocument.ExportAsFixedFormat "C:\MyFile.PDF", wdExportFormatPDF

End Sub

You can also do this from Excel VBA, the same ExportAsFixedFormat method needs to be used, but the reference to the document to be saved (here: ActiveDocument) will need to be done differently. There will be no ActiveDocument in the Excel VBA.

 

[espenskeie]

Great, thats very short and presice.

How can I run the macro in Word from a excel macro, is it just an ordinary

Call SaveAsPDF

?

Or do you know how I rewrite the ActiveDocument, in my case it's named Intro.docx

Regards
Espen

 

[wigi]

Call SaveAsPDF

What code do you have there?

 

[espenskeie]

Option Explicit
 'the document
Dim Inv_doc As Object
 'the application
Dim WD As Object
Dim FName As String
Dim DesktopB As String
Option Base 1
Sub AutoNameEdit()
    Const wdReplaceAll = 2
    Dim objSelection
    Dim WDarray As Variant
    Dim WDcnt As Long, myCnt As Long, i As Long
    Dim cmdPrice_Click As Long
    i = 1
    WDarray = Array("txtCompName", "txtCompNo", "txtCompRef", "txtRefTitle", _
    "txtCompName", "txtStorage", "txtSpecial", "txtCompRef", "txtSafeRef", "txtStreet", "txtStreetNo", "txtPostNo", "txtCity")
    FName = ActiveWorkbook.Sheets("Ark3").RAnge("B1").Value
    DesktopB = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator
    
    Dim which_document As String
    which_document = DesktopB & "\SalesTools\Intro.docx"
    
             'need an instance of word
    Set WD = CreateObject("Word.Application") 'Set objWord = CreateObject("Word.Application")
    WD.Visible = True
    Set Inv_doc = WD.Documents.Open(which_document) 'Set objDoc = objWord.Documents.Open("C:\Scripts\Test.doc")
    Set objSelection = WD.Selection
    For myCnt = 1 To UBound(WDarray)
        objSelection.Find.Text = WDarray(myCnt)
        objSelection.Find.Forward = True
        objSelection.Find.MatchWholeWord = True
        If objSelection.Find.Execute Then
            objSelection.Find.Replacement.Text = Sheets("Ark3").Cells(i, 2).Text
            objSelection.Find.Execute , , , , , , , , , , wdReplaceAll
        End If
        i = i + 1
    Next

    WD.Activate
    Inv_doc.SaveAs DesktopB & "\SalesTools\" & FName & " - " & Date & ".docx"
    Inv_doc.Close
    WD.Quit
    Set Inv_doc = Nothing
    Set WD = Nothing
    
End Sub

 

[wigi]

This code invokes Word from Excel, so yes, with similar code you can also save a Word doc as PDF.

 

[espenskeie]

I have tried this but I get error msg:

Invalid procedure or call argument.

Option Explicit
 'the document
Dim Inv_doc As Object
 'the application
Dim WD As Object
Dim FName As String
Dim DesktopB As String
Option Base 1
Sub AutoNameEdit()
    Const wdReplaceAll = 2
    Dim objSelection
    Dim WDarray As Variant
    Dim WDcnt As Long, myCnt As Long, i As Long
    Dim cmdPrice_Click As Long
    Const wdExportFormatPDF = 2
    i = 1
    WDarray = Array("txtCompName", "txtCompNo", "txtCompRef", "txtRefTitle", _
    "txtCompName", "txtStorage", "txtSpecial", "txtCompRef", "txtSafeRef", "txtStreet", "txtStreetNo", "txtPostNo", "txtCity")
    FName = ActiveWorkbook.Sheets("Ark3").RAnge("B1").Value
    DesktopB = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator
    
    Dim which_document As String
    which_document = DesktopB & "\SalesTools\Intro.docx"
    
             'need an instance of word
    Set WD = CreateObject("Word.Application") 'Set objWord = CreateObject("Word.Application")
    WD.Visible = True
    Set Inv_doc = WD.Documents.Open(which_document) 'Set objDoc = objWord.Documents.Open("C:\Scripts\Test.doc")
    Set objSelection = WD.Selection
    For myCnt = 1 To UBound(WDarray)
        objSelection.Find.Text = WDarray(myCnt)
        objSelection.Find.Forward = True
        objSelection.Find.MatchWholeWord = True
        If objSelection.Find.Execute Then
            objSelection.Find.Replacement.Text = Sheets("Ark3").Cells(i, 2).Text
            objSelection.Find.Execute , , , , , , , , , , wdReplaceAll
        End If
        i = i + 1
    Next

    WD.Activate
    Inv_doc.ExportAsFixedFormat DesktopB & "\SalesTools\" & FName & " - " & Date & ".PDF", wdExportFormatPDF
    'Inv_doc.SaveAs DesktopB & "\SalesTools\" & FName & " - " & Date & ".docx"
    Inv_doc.Close
    WD.Quit
    Set Inv_doc = Nothing
    Set WD = Nothing
    
End Sub

 

[wigi]

What happens if you substitute wdExportFormatPDF for the number 17?