PDA

View Full Version : Save WordDocument as PDF using Excel 2010



heysus jamal
01-29-2013, 01:21 PM
Hi all,

My macro takes values from an excel spreadsheet and pastes them into bookmarks on a word document template. It then saves it as a word document - however my clients have requested to start sending the statements in pdf. I have the Acrobat add-in installed but cannot figure out the code to SaveAs a pdf. I have a feeling this is a very simple fix but I can't figure it out :banghead:

This is all being done in Office 2010 by the way!


'CREATES MARGIN LETTERS
'************************************************************************** ************
If CallRequirement > 0 Or IntMarginCallRec > 0 Then

If LegalEntity = "GroupInc" Then FilePath = "\\01\Treasury Shared\ALM\Derivative Collateral\Templates\Inc\"
If LegalEntity = "Bank" Then FilePath = "\\01\Treasury Shared\ALM\Derivative Collateral\Templates\Bank\"
FileName = BankName & " Margin Call.dotx"
Set oWA = New Word.Application
Set oWD = oWA.Documents.Add(FilePath & FileName)
'oWD.Application.Visible = True
' ^TOGGLE WORD APP VISIBILITY^
ActiveDocName = oWD.Name

'PASTES VALUES INTO BOOKMARKS IN THE MARGIN LETTER TEMPLATES
'************************************************************************** ************
'FOR BANK TEMPLATES
If LegalEntity = "Bank" Then
oWD.Bookmarks("StatementDate").Range.Text = WorksheetFunction.Text(Cells(RowNum - MondayAdjustment, 1), "dddd, MMMM dd, yyyy")
oWD.Bookmarks("ValueDate").Range.Text = WorksheetFunction.Text(Cells(RowNum, 1), "dddd, MMMM dd, yyyy")
oWD.Bookmarks("MTMValue").Range.Text = WorksheetFunction.Text(Cells(RowNum, 2), "$#,##0.00_);($#,##0.00)")
oWD.Bookmarks("TotalRequirement").Range.Text = WorksheetFunction.Text(Cells(RowNum, 2), "$#,##0.00_);($#,##0.00)")
oWD.Bookmarks("ValueofHeldCollateral").Range.Text = WorksheetFunction.Text(Cells(RowNum, 3), "$#,##0.00_);($#,##0.00)")
oWD.Bookmarks("NetExcessDeficit").Range.Text = WorksheetFunction.Text(Cells(RowNum, 4), "$#,##0.00_);($#,##0.00)")
oWD.Bookmarks("CallRequirement").Range.Text = WorksheetFunction.Text(Cells(RowNum, 5), "#,##0.00_);(#,##0.00)")
'FOR GROUP INC TEMPLATES
ElseIf LegalEntity = "GroupInc" Then
'ALL BANKS ASIDE FROM CITIBANK
oWD.Bookmarks("StatementDate").Range.Text = WorksheetFunction.Text(Cells(RowNum - MondayAdjustment, 1), "dddd, MMMM dd, yyyy")
oWD.Bookmarks("ValueDate").Range.Text = WorksheetFunction.Text(Cells(RowNum, 1), "dddd, MMMM dd, yyyy")
oWD.Bookmarks("MTMValue").Range.Text = WorksheetFunction.Text(Cells(RowNum, 2), "$#,##0.00_);($#,##0.00)")
oWD.Bookmarks("CallRequirement").Range.Text = WorksheetFunction.Text(Cells(RowNum, 7), "#,##0.00_);(#,##0.00)")
oWD.Bookmarks("TotalRequirement").Range.Text = WorksheetFunction.Text(Cells(RowNum, 4), "$#,##0.00_);($#,##0.00)")
If BankName <> "Morgan Stanley" Then oWD.Bookmarks("InitialMargin").Range.Text = WorksheetFunction.Text(Cells(RowNum, 3), "$#,##0.00_);($#,##0.00)")
If BankName <> "Citibank" Then oWD.Bookmarks("NetExcessDeficit").Range.Text = WorksheetFunction.Text(Cells(RowNum, 6), "$#,##0.00_);($#,##0.00)")
If BankName <> "Citibank" Then oWD.Bookmarks("ValueofHeldCollateral").Range.Text = WorksheetFunction.Text(Cells(RowNum, 5), "$#,##0.00_);($#,##0.00)")
'CITIBANK ONLY
If BankName = "Citibank" And IntMarginCallRec > 0 Then oWD.Bookmarks("IACallRequirement").Range.Text = WorksheetFunction.Text(IntMarginCallRec, "#,##0.00_);(#,##0.00)")
If BankName = "Citibank" And Cells(RowNum, 7) > 0 Then oWD.Bookmarks("MTMCallRequirement").Range.Text = WorksheetFunction.Text(Cells(RowNum, 7), "#,##0.00_);(#,##0.00)")
If BankName = "Citibank" Then oWD.Bookmarks("InitialMarginHeld").Range.Text = WorksheetFunction.Text(Cells(RowNum - 1, 3), "#,##0.00_);($#,##0.00)")
If BankName = "Citibank" Then oWD.Bookmarks("InitialMarginRequired").Range.Text = WorksheetFunction.Text(Cells(RowNum, 3), "#,##0.00_);($#,##0.00)")
If BankName = "Citibank" Then oWD.Bookmarks("NetExcessDeficit").Range.Text = WorksheetFunction.Text(Cells(RowNum, 5), "$#,##0.00_);$#,##0.00")
If BankName = "Citibank" Then oWD.Bookmarks("ValueofHeldCollateral").Range.Text = WorksheetFunction.Text(Cells(RowNum, 4), "$#,##0.00_);($#,##0.00)")

'*******************************************************************
'*******************************************************************
'*******************************************************************
'*******************************************************************
'**********THIS IS WHERE I NEED TO SAVE AS A .PDF - I CAN ONLY FIGURE OUT HOW TO SAVE AS A WORD DOC**************
'SAVES THE MARGIN LETTERS IN APPROPRIATE LOCATION
If LegalEntity = "GroupInc" Then oWD.SaveAs FileName:="\\01\Treasury Shared\ALM\Derivative Collateral\Counterparty Folders\Inc\" & BankName & "\Margin Calls\" & BankName & " Margin Call " & WorksheetFunction.Text(CallDate, "[$-409]yyyy-mm-dd") & ".docx"
If LegalEntity = "Bank" Then oWD.SaveAs FileName:="\\01\Treasury Shared\ALM\Derivative Collateral\Counterparty Folders\Bank\" & BankName & "\Margin Calls\" & BankName & " Margin Call " & WorksheetFunction.Text(CallDate, "[$-409]yyyy-mm-dd") & ".docx"

End If

'CLOSES MICROSOFT WORD
oWD.Close (0)
oWA.Quit
Set oWD = Nothing
Set oWA = Nothing

End If

Kenneth Hobs
01-29-2013, 01:32 PM
In MSWord, syntax might go something like:
Sub Macro1()
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
"c:\1.pdf", ExportFormat:= _
wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportFromTo, From:=3, To:=5, Item:= _
wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=True
End Sub

heysus jamal
01-29-2013, 01:43 PM
I'm using Automation to control Word from Excel - so the word document is not my active document. I found this elsewhere on the web, someone else had a similar problem to mine and solved it following the gentleman's code below


Are you using Automation to control Word from Excel? If so, I assume that you have a variable of type Word.Document (or Object if you use late binding) that refers to the document that you create. Let's say you have named this variable objDoc.
You can save the document as PDF as follows:
objDoc.SaveAs2 "C:\Docs\MyDoc.pdf", 17 17 is the value of the symbolic constant wdFormatPDF.
If you haven't created a variable for the document, but refer to the active document in the Word application object, say objWordApp:
objWordApp.ActiveDocument.SaveAs2 "C:\Docs\MyDoc.pdf", 17
I tried doing the ", 17" like the user suggested above to no avail. :banghead: This is driving me insane! It should not be this hard to do this!

Kenneth Hobs
01-29-2013, 01:58 PM
It may be a network UNC path problem. Try using SaveAs2 or my method to your local c:\ folder.

heysus jamal
01-29-2013, 02:08 PM
It may be a network UNC path problem. Try using SaveAs2 or my method to your local c:\ folder.


If LegalEntity = "GroupInc" Then oWD.SaveAs2 (FileName:="\\crplivfp01\Treasury Shared\ALM\Derivative Collateral\Counterparty Folders\CIT Group Inc\" & BankName & "\Margin Calls\" & BankName & " Margin Call " & WorksheetFunction.Text(CallDate, "[$-409]yyyy-mm-dd"),17)

When I tried using the 'SaveAs2' method above I get the following error message.



Compile error:

Expected: named parameter

Any idea what that means?

http://www.vbaexpress.com/forum/data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAQoAAAC4CAIAAACU3DVUAAAgAElEQVR4nO2dfVwT V77/T3Zv3d3e2999dX+73d1fX9t229XqVtvdslylbGu5rfUBUCjFSlv66++uolZ2b3fV3RYfqlchtT5 Q78rVKihIaIuggCQ8BQR5fkxAEJHHEJIQICQBVPBhJr8/zjycSWZCUALInM/r88prMjOZOXPmvOd7zsycE1BeXi6XyxMSEo4cOfLpp5/OXeiBjS1ah4eHf/7558ePH//mm28yMzNBZmZmbGzswYMH5y36/W9e9Dh5JunWXdt9+s4s8c2p8g0XPGWJmeJMvnuPfH/5G/dmht5f/sZdgjx5JmnBopfnLvTYunVrdHT02bNnQXx8/KFDh37xy1/Fnf3WdJPsGCSb+simftZXXXBTnxvdeH82sr4yETfwupds6CXr+ay2s4FUG0gV13Vc1+pREzWMdU SNjv1aqyfQNe02YrcLuF+7xPAmGB4L72FOKKPQHHb9vFyhbblFhix7vb++XnMxvSczXSdP18nTD fJ0ozzdKE8bkKeZ5GlmeZpFnmaVp1nl54fl50fk528IeMTh67DivFVx3qpIsyjSzIo0kyJtQJFm VKQZFekGRbpOka5TpPfI0zWZ6f0N9SHLXreMku2DpOkmGZvwzc+efBoSAg4ePDj/pX87ffZb/ZA9DM39ZPMA5WvCbu53l10hk8d9rCeHQwHGhCiyM6d0MuXYQKgNhApxnZ41Ol9NmVQbyHoDX0G3 swuF3nmZnlCmobk9zjUUms5qyyi59o3XjXV1mrQUzYUU7YWUngspurRkQ1qyMS25Py15ID3ZlJ5 sSU+20h6eiK3pydaMZGtGsiUj2ZSRPJCR3J+ebExPNqQn69KTe9JStGkpmrQUTVqKsa5u7RuvW0 apw9cNkbHxSTCGgC1btrzksWTwJgcJWO5boE3kdWG3DMww97O+NhFPFNQmBzu/WCKlk7hiJBoQ1/fyG13nCmV6I/Rm+cu3Q9oc0+/8eCeUdWieO54RzpV0gM1M6ygZ7PMHY1VVe3JSV3KSJjlJ+11Sz7kk3bmk3nNJxhSZMUU2kCIzpc jMKTJLqsyaKrOmJg4L2JqaOMT9ak2VWVJl5lSZKVU2kCozpsqMqbLelCRdSlJPSpI2OUmTnNSVn NSenGSsqgr2+QODR2MfabpJLlj0clBQEPDw8DiTmNxh5lABi36riWwdJNtot3Pd5k633p9N92l+ +AfI6wIQ2ofQcSMhe4klrvYRTYgbaV9BzMxE17xKmbzaRzb3uVC+uYnkPRB4jLyHf9+ZyXte0Os pTI91lAx6zUtfVtaaGNeeGNcui+uUxWlkcVpZnE4Wp5PF9crijLK4flmcSRZnksWaZbFW2sf+vi NobRj0sb/v4J1jlsWaZLEmWVy/LM6YFNebFKdLitMlxWmT4jSyuE5ZXLssrj0xrjUxTldWFvSaF4pH2yB58kySh4cHmLvQwzpGJbq FS0X7INluJjvMZIeZ7DSTnRayi3an2V3uuG8PUm6fPLuCrpPQ6hhg77tGylvKx921XVJ5D2cSs4 s5BXanpt3MZiaTY0OjZOArnrrLRS2xMddjY1piY9piY9rjYjrjYjRxMdrYGF1sjC42pjf2mDH2W H/sMVPsMVPsP6CD1obZaAWtDfvvrZ/azTHF/sMUe6w/9pgx9lhv7DFdbIwuLkYbF6OJi+mMi2mPi2mLjWmJjWmJjbkWG9NzuSjQyxPFo6mPtIyScxd6gLk LPUbv2mBes2BwkdBYSI2V7Katscxcd03EnUJ2Ed0JRlTHS6kQRYKXc+FSLlTcHQur4LVJIDcmlK VCZwTmKkQFpnN4jFzt8aImL6ch+sCV6AON0QeuRh9o/uqLlq++aPtK2nFU2nVUqjkq1R6Vao9K9UelhqPS3qORxqORxqORR//zr3Y8oNNH//OvvUcjDUelevrnmqPSzqPSjqPStq+kLV990fzVF1ejDzRGH7gSfaD+yIGuvJzVHi+ieDT2kbfu2 lg8YO7DzIU5iFKhtZLaIbLHzdben62sux/cFsr3QZ0TwND45mKM4r2uo9dmJ4X7Psoxc+APnofoGYEnqNtKaqxUNnZaKEiGx0i/373Qka2oO7BPfWBfw4F9jQf2NR7c23Rwb8vBva2H9rYf3Nt+aK/m0F7Nob09h/bqDu3VHdproP3Vnz5BqWDY+OpPnxjolXvon7cf2tt+cG/rwb0tB/c2HdzbeHDvlQP76g/sUx3YV3tgX3u2wu+3Lwjjcc/GCRow++hDhWVXR3+6yfcJlfU+rRW2Kwg5i2Bmsosy0WUmOvncwXiQ4/ZBon3QfiazMu+muiiTXWZSY3aWMFeKvpNsue+sZq59TNUDVs5HxkjfF+e3yzNq9u+q3b9LtW9X/b5dDZE7rkTuaI7c0RK1ozVqR6t0R6d0R6d0R7d0h1a6QyvdoUMcveXPQWvDrLSC1oZFb/kzXARX7qZ/3ird0Rq1oyVqR3PkjiuROxoid6j37arbt6tm366qfbvaMjNWvTjfGR5s3GDZMCQEAgAO5w2RumG qEOuHSKVUAkBwYiupLzsiAWBPGakfeiA7w6bsiATQaXBwnlQCAhQqdo4hMRD4pRjypBKhnzjjkM Gm9IgEHM7hFA6YFZR8zxm60cst13RxJDQWfXwAAAHyagtTiHmB0Z8OAACAVcl6hgdeEhAYiC4zo bEQmpIjEgB2lRAaC2EfBASstdAHRR9mbUowAMEJ17kYCOSSff4L5zNrFBKEkJEx0vsn/1J79FDaqqXpvksv+i6V+y7N9n1N6ffaJb9Xi/y8i/29y1d7V6/2rl3trVrt3bDa+wrX0qCgoLVhRlpBa8OkQUHM0obV3qrV3rWrvatXe5ev9i729y7y8y7wezXP77 XsVa9lrlqasWpp2qqlF1Yurf7qkPdP/kUQj7F7tjZunarbSmqthrOBAADgl2pg2NAP1++RAACCE9tI/bC7Xb9HAvxSDfphUt+m8Ed3ChNTdkSCnp5WhT8IPts68dhlpU8hdOkRCTicy7kEGs4GAt8UA12q 2MLEmlMKYXm1dxdjpJRXnwsG4LBiPBi6zOzPmQ1mR0kAACBSpbEQ3RaChwEnoYDnMFnDPBG4YLm ABG09lxAYQzRWsstCjtwmX3n8R9VHDpx/0+vCMq+0ZV4Zy7wUy5bkLl+iXL740nLPohWepSs8K1d4Vq/wrF3hqV7hWY9YGhgYtDash6ugtWHSwEC4gnqFZ+0Kz+oVnpUrPEtXeBYt97z0lqfyrcU5by2Rv7 kk/U2vC8u8Upd5pbzpVXn4gNfjP3KGB6fJAePsEIUHvELrh0j9MFl/PhgAAECwrI00DD+oXcFjTxlpjwcbeegVhkj9EKlODQYBCvX9hSmHEpDLuWoazgYCvxRDj5Xsua7 w48WDMqG1Et3Q40JiIbosRPW5YLBGXsXLhsPK3E2pd0neOVMi9wOHc6xEt5XQUnatduRwmK5njn LiFQQmKDEBZOQ2+cqPH62JPnB+mXfacu+M5d4Xl3srlr+Su+KV/BVLLq1YXLRycemqxZWrFtf4Lq71Xaz2XVxPW/r220Frwzpp2U1L33673nex2ndxre/iGt/FlasWl65aXLRy8aUVi5UrluSseEW+/JWM5d5pb3mff8s79U3vqiMHvH78qAt4WOzx8EtRfE4XQcOwQRYI9qQq/CEebfTEMGkoh7Ugipx8qQRIj+yRABCoqB82yNiaCcNV/V4JZ06+VMKstKcMXYGrKLVhiDTQ+a6USkCUWj9E6umaFZcTGOsArA2i/DDTdP2N2rjjBZKJHhCPupRgEKCoo2cyx5VwndBaCW0pvbUAeY2FyImSgEhVt4XohhUtqEiVBmWD 1s5iorMYSUykqstMdJnVuyRgZ+RhCQC+5/QQjG7okiOSAHmNRR8fAHaVEFoLobUSuVESEHV4N72V3aUkneYjn9MJoDgvpQ8TOV5VKpOew3lU9 Yk9KXokr/xSDEh+GhKRrEhs5bswMa2+IQSPnzxWF3P4whqfjDU+GWt8FAE+2YE+uYE+BYE+hYE+xYE+pYE+l W/7VL/tUxv0ujro9fqgpdBBa8NaaQWtDZMGB9vNqQ9aqg56vTbo9eq3fSrf9ikN8CkO8CkM8MkP8MkJ8M kK8JGv8Ulf7ZO22id1tU/NscNeP3nMVTzoVhpVJvJgEaQYOJzfplgNgmVtZC8zUX5EAieGKRdIJQCAvWX0dKCiYZjsHSYbzg cDcDh/2CALBP6pBiaM1FPzGdIgM/V7JRAVLopohCk/IgGHldzwoj4fDAIV6mFDYiBdNxtG59PTnHYLLCXBZ1s5xQWNHiwJrdy2ilWfEAhAlEp7Xe4H3kl ooYsvi4c+PoCigrWZ0DCVqzXyajPRdU3uC8DOYoKhYlWyHk4AcDjbPnTo4wOA7zl9t4WoPRcMId RaiNwoCQBgdymNCjicC/GAVAyRdanB1CHQ0YM5XlVqMG9bgroMwaxjMhzJT3YpnEmvwNSE2QsNciNr5Db5hyceV52MuRjiL w/xV4T4Z4f454b45Yf4Fb7vW/TBypLQleWhKys/WFn74craD1eqP1xZT1v6XgjzEFD6XgjvHPWH1A8rP1hZ/sHKkg9WFr2/8tJ7vsp1fjnr/LLW+cvX+V9c55++zr/2RIz3E4/fJx6wTp/YRuZLJf6phl4HPAqkEiBVM2xQSFBz6vdKKE6Yr3vK6EAEi749LcxXfjx4K2D2RZ+aNiQG0tUzdD 4sChQeTIQBgIsHT+VqiOxpVfgBsLuU1FKNWibyqLRWortF7gcO53Dx0LTIfcE7Z1o4bHDaHmvk1 WaiCqllIfPVuyRgZzGhMXPxaJH7gnfiIYotcj96OidKAlOitRIUrtfJWhjxqGOp/1wCdpchlSvqeKnwy3drBMZDITyQOrBdldgJHhZy5Da59BdP1CedydkcmrMhJGdDSP7GkIJNIUWb Qi5vXle6eV355nWVW9bVbnm3dsu79eHB9eHBjeHBTQJudPgKfwJ/XvnxuvJN60o3rSvatK5wY0j+xhBlWEj2+pCs9SFZm0JViWeW/vwJ1/AwUzdAWDxgxkUdsa9T0RP5UgmQqtFGBTIHKeL2X2H1KVjWNh4eQ6QBIuoQten6lYKpWTk0Quh7C XTlSsXUIgIUKlgrgHUqpmUv0DSn6iRMM730iAS8A+tUuWwliuguOSLhVq4YPLr4bmExVFRxGyH0 V/VOCRNS2AZJDVIrg4KRhKnOIXgQtWyFkOyx1n8uAbtLkaY5rGVZHfBoVfgD8HkZml3U7RAlJ585L UC9/Ve27cHeN7eQGgs5Mkauef5Z1YXzl3dtv7Rtc8G2zZe3b7q8fVPZ9k0Vf99Y/dnG2s82qj7bWB+xoT5iQ9OODU07NzTv3HBNwM0OX5t2bmjasQH+XPXpxtpPN1Z/urH8bxtLt20q2rapaNum/K2b87duLty5vTb1/Jrnn7XcIq8YneLBvXllSKAvmdRVBJZ4BzxgwwNhgANMvlQC0OsNJ/JS9R/1+WD2blj5EQk1jWS0MB50hZhdimKA3vBlq0+tCn8AbznQl1Km1nGd55YOvLFL3bm6DqMHLHPyGi vRbVHvknDrTjQPWVESEKnqsujPBAAYIuwfgAwSlcnBYI28cpDoaJavYm/vqndK4DSFB/d2lv5MAFh1Ts802bOjJPAOcnaUBNCRKidKAlMIoxwS8Q7n0Dd2GTzoOlhwwnU6ZrKVTENiIHWHx r6hEqBQ0Xd4WWbAYSXbLKzfIwGfl1F7yUHeuhgZIyND3z8t3X/1O1nVwX1l+z8r27u9au/22n3b6/Zvr4/cXh+5rTFyW5N0W7N0a8sXW1u++Ev7RNzyxV9avtjaLN3aJN3WuH9b/f5t9fu31+7bXvNf2yv3bC/ds71032cVX+5r/FZ2Omr/vg/eh3gwhAg893DAQ0fXQOxvItlV95mWWRuplEqAVI0ygC7lzKFXU9q1Aoc51yEd00yEV3qO6/dIAMoDJzJQNR+1jtOYDv48ir6gXlf4sZfg4ITrrjz30Hej91WhIlVdLXJf+hu83mdFSkCkqtNMd JrVOyXsmugDQYhHxSDRPki0oU3z/SqGkx2XuQ8Hr8l9wTunryE3f68hQAYE08mgWiw154KRmcHxLdzHO8jx5rJHxDZamMoVekPCL8WA VFA5pxjeW4dNVnh2mGDF4NFlJg3DZKeuf/WiBcd3faZSZHYX5HbnZnbnZuqglZm9+RnG/AxjfkZ/fsZAfoZp4h7Iz+inN9KrzNDlZepyMntyMjXQ+bm18szjOz/zX7SgVdvfMYi88G/3UonjGyXdFvapOdpKm8ynfm4w/+sqTh8CwKcWWqdP0zSc532EZpwnfcijce4TcTu3QZsEPEi0CfzQ7pk6s1MFCyS3eRMgr7awTw+d P0DUuvDkhHmdwslzQ+TWn/0zQfiijcZ02zB48x//8f4GjwWr5z21et5Ta55/JnD+rwIXPPv2C88FvfDcOwvnBi+at/bF59996fl1L81f99L896B/O/+939ITL81/76X5IS9xvsKV333p+bUvPh+8aN47C+cGvfDc2y88F7jg2YD5v1r9/DP+857yn/fUBo8F//3/3u8x3bxmvG3XJebWHYF3rjrNVAtEgxAygVvjTkuq+14VcdNLIl3jvSTi+IaIEwxa+XxdwLwrO8G mY5BQRErAfpXdeyh2jX7mJZQut72Ewnte7NiAL5v1DJFDo5SttC2Mb5FmF2x5MHeYeXqMcfBg3t jleSvRwmbEQ/d+4URf8h33tUJXX3132pOkxSTYb0Swn4bQK+vwrJmo/WZGSsB+td3rjBXJwWCNooI+s66/zuhK7rlCEZPPnUgewixqQTrMXEW6bTIdyPj7Nj9YN2BXjOBxx3aN7hzT6gAJysmUeRLeSx/3jfTxOoc4vojO231KsI8U3Q+Zp7Oha5147fusCnR1dtwv74vxjj2WXOny4dh/w/WX4akThGR+O3LtYLpGNaN5Avst03i4yIY7COHgwfS5aaG7jzGQMH0G3NufaVI7M43fjclJLyLej oEC3W55O1KzJd6xb7pAN3T78RycdCh37DVuxxK396xgF1nHzlXC/avs+gDeR7cqlIrrAywYTNBw7NM/ITYmnRAWj1t3bPDihELC6VKLhO+Z3wN2nL6v4/UsR0o80dQv0OXVyHGDkWigO4irGbOjKCDjLdCuhUaHKeFzrZ5ak/mhwxANhNrA7pTqpN6Ldk+nzdtNt59o6idc6YDuWPHj75rLV5NEzwtbleKCwSBxpZe84nQ4lamBh IOHXRC366/8sIyc4GyADPrq7sJQCSQ7VAIyMAJTBFWOxZ0eYaQWWkcPyaMjqmlX0a6E7iEqHK0lKrQ88yt7qF 8xG2E2y+yoVkftnR3xhIuTyoEiBqQGu3EejIJDPbgyyBPveUFPECfGCofW6SWEg4djjEaHZnkIR txx5ZgnPr6Ok4t9NbRdodcRlT2sYYkvR1ymJcq6ibJuopR2CWMNUawhijVEiYadyawGf1XG3Rpk Cd0jkwyWIj1RPbFwNM6IQVd6x89q3lGCnNWgHE7KtBPCwYM9Ku6xuWuMtr5JHqNt3NHZBMdl06N 2dvmv7iGqeogqpiBqiUotdb2nyitTiPlKf3E3VfovIy6C7iKKuohCxHAOXIquD7dQ3C3MTzdR3o 3Ao6XSCdMM01/dM27wQfJEaNS58cabczLSnBASgiPW3S8hDwIJDx6MjSPkwA0em7jmXcd97uf1CI/7XPQwaWRNQPc6eogwCFjvYB20lXWPE1uIHguhFTBc6uTn6F7gfh3TI5Ty3iGeIzWyprKlb9jVzO Q9EfAc9XHNfx7dZleKlnHEZTyMI+Tp7zJCwyOwsUXi099l2BEiiMfADTI0PMKGhSUahYZHDNzAe GBh8QnjgYUlKIwHFpagMB5YWILCeGBhCQrjgYUlKIwHFpagxsED/Z84jAeW2ATxQCnAeGBhUXKKx10b+oL3wE2MB5a4FBoeMXCT8wI/O1LJrbs29N1bjAeW2ATxQF9U5+DRiPHAErHs8HCIHkgXMIwHltgE8UAp4AwDh3biM2E8sESm0PA I001OV9ZRFI9mZtSZAYwHlugE8UAp4OCBjkAxiPHAEplCwyMGb3LGYeHg0QKH7jORLSZy8BbGA0 tcCg2PGLxFohSweIzdtbUiA36ZMR5YIlNoeIT5FolSwMEDHc0N44ElNkE8UArGOH9/YyYZW0YxHljiUmh4hGWURCkYu4fggQ6Sa8V4YIlMoeER1lHOUNEsHrfv2dABzzEeWGITxAOl4Da KB/pvDEMYDyyRKTQ8YmiU858kHDzQf2YaHsN4YIlLoeERw2PUn7xBs3jcuWeD/z8NPYLxwBKZQsMjRsaQ/8QcJu+weBC23hGS8Y3bGA8scSk0POLGbRKl4A6B4GEcIRljPLDEJogHSgGLx13Cho5ofRPjgSUy hYZH3LzNGdf9LoqH6SbJ+Nad6cGDIIjma9darrWYTKZJ3XBbtBf9n/Re0W2TumlbW7QXtdGssMnfOtYUKTQ84tYdEqWAxeMeYUP/JXp0mvAwGPQKRa4yr6SysookycnZaFu0FwBhWezX6Cxnqz+AMB4PsULDI0bvcP4r/R6KB/ov6NOCx8jISFp6ZmFhdnFx6sWLOa2trZOx1bZoL4QN9wrj8RAL4oFSwMFjaJRkPHZ3GvCoqqo8f 6Ew5+KfKnKeUipzMuXK0dGxB92oEzqQChe9RlYY8IrOouaHZbGr0KWeswJnpl3lit24w97tF2WF Aa+wMBjh0GnBFFIrYBgnVaHhEWN3SZQCBA/SNjxGMp56PPr6jBcuKC5cSG0uf1zXNic/1V+RU1NTU/Og222L9uIvQ1lhTJnjNB6A4ySyLjKXp8nBx0lWGHf/jouywjikcaZ5U8imCuMxeYJ4oBTcI2k8CNI2MkYyvj21eBAEUVRUJJcXZ50LstmAzQYaiv5XQU5 8pvzSwMDAA21aKHpw52eFwS9oieOd5hRJh1/RE8hV3z5+8CwS2On4KcSaTIWGR9y+S6IUEOTMeGO3ra3t4sWCrKxvOmp/APGwEUD5zWslpc1FRcUP1kYX4GMS8GA2wYuHkxqd3SKMx4yQszd2b92xof+Q2z+Fg4iOjY1evKg oKWnKT11lswHbKLCNAhsBruT/c3VJbE5uha5H90A7yAoDPHeu7KoubDNgPDzouTy/4luNLzWC1S37aacpxKRMqkLDI/pvcP4nmjPGLvpn0lOJh1qtzs2tuFx4vK3qBydiPLb95c3t2/79813L2lWPlab+rryy8dKly/fu3XugfaBVGs7V326WS9EjLMyLp0Ev2DR3aJzbLxLa6XgpxHhMqiAeKAWCePRNFR5mszkrS1mnU pVnvXrnBvjTnzZs2LB7/YZPP/xwW2n207rqx8qyPiurvNrUdHUKEuOCcJGctQoNj+gbFw91L6meKjxIkiwvL7/arK0oPaRpnHN75Pt/2/7+xo1/2bDh49AP/6M8+xmb+YdFiS/0GozK/OKRkRvuTo8LwnjMWkE8YPnnx0M9tXjodLqCSxWVVWXXin9pIyT3bjyy7S+B770ftvbd9/1Xr6nK/qWt/6eG8keLU9Yb+29WVVW5Oz0uCOMxa4XioXbEQz21eNy7dy87O9fYN1ySHTaim2O7+eMx06Of/HnZKt+1y97yff11nyr5z209//v2tR+WnH2y9cqlskrVZL+IhYXFyg4PNYrHzSnH4+rVq8UlqqqqjI7yn9ms/2qz/mJs4NHwja8sXvLm4iV/eO3VV2rkP7V1PDba+M+63O8XylYOmm+VlJQRBOHWVGGJVo543JwuPEZGRrKylcY+S2HaGpv1MVv//7GZnhwzPrbhw0ULfrPk957eby179Ur247brc27WPjJaA1SJcyqzDtXUtXR1dbkvVVhi1gzCo6io uOmqrqIkrqv0J7aBnxO6J226n9+89njQqp/+8EdPPPX0r1/1/p36/CN3a4C1BFgvA2suyDr6nLHfXHDp8u3bt92XMCzRaiJ4jLgRD5PJlJVd0NJyreT8Gzb9nLHWR280 fm+0EViqwDIvAACY84N/fWXJgrpvJDcLwWAOGJQDqxyojs8pTvl7TX3HteZrbkoYlpgVGh7RN+IKHgY34nHv3r2cnLyW6/q8lA2mqu/dqAPWamAuByOVYLgc+L8KAAA/+8WzQWtebUyW3MgDgxfBYAYwpYPBCyDn4BM1Zcq8/KKRkRF3pA1LzKLwMDjHw+BePDo7O+WKwpyc1IYLj92qA5YqYCkH5lIwXAZuVYHQVQCAf3rm157v Bb/Z9J3kRg4YTAemNDCQCkyp4PrX31f8z+rymtaKigp3pA1LzGLxMPDiYaCWqdyGx9jY2MVMRWlZQ2 5SQP/l71kqgbkMmEuBuRiYLwNrEWhIAJlfAOVRUH0K6FPAYAYYuAD6U0F/MjB+Cwa/A8UH5+SmHM5WlvT19U168rDELIiHiqZAbXDAQ0XbTXhUVFTm5tco0r+6emGOtRKYSygwBgvAoBI MK0HdafDVJ2DPhjlZX4IbcjCQAvqTQf93oPcb0CsDvYmg/cT3Mw79W3FZY2Fh0aQnD0vMYvCAtsdD5WY8hoaG0tKzsrNzlElvDBR+z1wKzJeBuRCYC8BgHrDk gRsF4G/vAQAeeeJJj/XvLWk7C8ypoP87YPwW9MooD3wDyg7OyTi9PUtZ1tnZObkpxBKz7PBQTTEe+fkF8uzSzJS/t6TPGal8xFo2x1ryiPXy9yxFEms+uFEAbhaB4H8HADz6e683/2/ouw2xc0YywcCFfxpIfaQ/ZU5/ypyBlEdMqXO6z34/84vn8pWFimzl2NgD97bFwrLZbBPCwzjZeBiNvRcuZGakxZekLCOvPzfWuGCsfv6Y6vmxunmjtb8 eq3lurPpZm+qZqrNP+b3x6+B3VsVFvWbK+dVo8fyRggXDBb8ZKfzNSOGCkcIFNwoX3C5+vuHML9 K/Xn9RXtjQcGUSE8fqcbMAAAnfSURBVIklZoWGRxjHxaPOQNa5AY+8PGV2TlHWua21smdqEufVJMy rOTOv5vSvaT9XffrZ6tPPqk4/W3riWWX002Unnqk69VzlqXmVJ+dVnpxXeWpeFe3qU/NqTz+b/z+L8+TpGZnZFot1EtOJJVpBPGD558ejzm14XMyUV1XXXlFXNaqrG9U1Teq6qw2q5ivqjtbmnq6O/l6DeaDfMthvGRywDg5YzQOWwQHL4MBgf2+vvqdX19PV2tLS1NB8RX21QdWkrmtU1TSp6+pV6oKC opnxJi/WQy8UjzpHPOrciYdSqTxzJv748a+PHz91/Pip4ydOnfg69utTsadiT8fGJsTGJcQlnE1ISExISEw4Kzt7VpZwVga/nk44G3c6IS4uPjbu9MlTcV+fjDvxdezxE6dOnDh14sTX3377rUajmcR0YolWdnjUTSUeNputwT2 a3ERiiVYu46F3Cx5YWDNZFB56J3joyTo9WYvxwBKfIB61eooCBzxoNmYXHllhAgOyTW0aprcL7r Qn4CEQgwdDiD0etbMTDzeVDNe3PO2lc9oTwGjmpMReKB61jnjUYjzcteVpLxPTngBGMycl9rLDo 1aUeLCDOdNLeAdd5x1iHZ2F1Nngcsf125htRlNp4CkbWWFwucNgb9yNjTt0vGsJsNuvw1Hz7pcZ Mf6BUzVupnEHqJ9auYpHzWzDw+6cwOFq6UFrxxl0nRlHHeGK3TL/4IXMuOtIGXCCBzr6u9Dwu64MHe9CAuz2a3/U/Pt1uNo/YKrGybTpCi4QjxrneNTMQjz4zi/PEKDUl7AsvnHUnQ8dzbs+Z6tCJ12wuNDbchz6mm96wgngHWre+X4nI1XOM21aq14MHjVCeNQweA yLEw8aAkcYxsfDYf37xoPdGrMVVwrihBLg/Kj59jspqXKeadOOxzCLgD0ezIIaHdk7m/HgqVzxDbpu97NxK1eOS12sXDmUKmYe/596Co2N7UICuEvtj9r5fictVc4zbTrx6B0ma3QsIXx46Mjq2YYHK9iQ5J5lpjmItDltvEOs2zdN qe/2rUy7xS40ze1LFdOmDgtz8TrtYgK4+3U4auf7nZxUOc206cejWscSwoNHNYUHMVvwGFfTeUqmT+ I8amcKDY/oHSZg+efDQ0exUa0jMB6zXeI8amei8aAJ0XHxYNiownjMfonzqJ0J4lGlYwlh8bhB4UFUiQ4PLC ybDcGDIeQGFw9qWZWOMGA8sESm0PAIwzCLQLWO4MejsgfjgSU6QTwqewTwYNjAeGCJUAweDCH2e MBlGA8sEQrFAxLCwYNZUIHxwBKfIB4VPSwhCB63bQwbFT2EYQjjgSUuhYZHGIao8k/hcZuLB1xWoSX0GA8skSk0PEI/RFRoWUI4eFTQeJRjPLDEJ4hHOY1HBS8e5VqMB5YYxeDBEGKPB1yG8cASoVA8ICEcPJgFZRgPLPE J4lGmZQmxx6MMuhvjgSU6UXh0UxQI4NFNlGI8sMQniEdpN0WIPR6QDYiHDuOBJTKFhkfoGDy6iT IUjxEaj9JuogTjgSU+QTxKutkAMsLBg2YD44ElQjF4MIRw8GDYwHhgiVAoHpAQPjw0RLEG44ElO kE8ijVEiYYPD4aNYg3Rg/HAEplCwyN6hqjyDwmxx6MY44ElVqF4FDviwSy4rCF6rBgPLHEpNDyix0pc1rCE8OBxWUNc7sJ4Y IlOFB5dLCH2eEA2ijAeWOITxKOoiyWEgwfDRlEXocV4YIlMoeERWitV/iEhXDxoNjAeWCIUigckhB+PQhoPKxaWaATxKBTCg2GjsBPjgSU6UXh0soSweAzftjFsXMJ4YIlP EI9LnSwhwygekA2MB5Y4xcGjkyjkxeMSxgNLlGLwuMSPB81GAcYDS3wK3RKhtRIFnSwhCB5jNoa Ngk5Ca8F4YIlLoVsitBaq/EMWhse4eMBlBR1EN8YDS2QK3RLRbSEKOlhC+PDowHhgiVEsHh18eDChIx/jgSU+QTzyO9gA4oBHB5GP8cASpRg8GEK4eNBsYDywRCgUD0gIBw9mgfLhxGM91vr169evF8qfaX zbb+Zo8+bNQvnzwZaIbguhRIIEDx7KhxmP6c78adbmzZud49EjbsXHx7uCh3IcPNofYjym+xRMm +C5HxePqTwjM03j42EmlO3CeEA2HnY8pjsh0yOMx7hyFQ+aEA4eSgQPzcOPBwBAVJ8Yj3E1Lh4a BA8lDx7thLKdyHv48YAlRlTCeIwrV/DIa2cJYfEYGrMp22cPHqISjh4uamJ4tBNDjnjkzQo8cPRwFMbDRTzyhPDImy14TJFSPgK0PKNUy FzmmyrKE4CPUtyaipkRPdCjFprjyiI3ynU88hzxyJtFeExF9Ej5CHAxoL+w534qSwHGY1xNCI88 ITxyH3483C9VlCc3KrAzqHPvsIa7hKOHi3IFj1zneOTOCjzcHj14yr4qyhOe8pSPgGdU1FQXgBm NhyrKk6qEcq4g1EQKtdTdGeYiHrmzHg+3i2GBMwuefKpFMiWRw2qdQdHDUQgDdMXTM0rFxYNeC6 2fukcPikfubMFj+qNHittPtp1mAB4C0YMNHcxlgxs9VOwP3HpNcR2PXEc8clE8zA83Hu7X+G0Pa 8pHUxNCZkz0cIKHXT7w4uH2xtqE8MgVxKPtocdjqu5cMWcTvY3FnnL31xdYzVw8uPf4BBe5/1aGS3i0iQCPKRJS30ZOrH2Fwd2EzPToYeXWrxwqVx995OmQh27RZODRNhvwwE/NHTUjn5pP6R1eV/FoE8KjbZbgISrNjOhxf5qpeLQ54tHGLut6yPHA0cNRGI9x8ehC8WgTwCPn4cdDVHqYo8eUyhU8c sSAx0zonzSVn1aMhwuaBDxyZgUeIhTGY1y5iEeOEB45Dz8e8SIWxsO54l3GI8cRj5yHH4/NopdzPKab3+nXZpfxyJl9eGCtF8ZjusmdKRLKn1mOBxbWgygU44GFJSSMBxaWoDAeWFiCwnhgYQ kqNBzjgYUlIIwHFpagMB5YWILCeGBhCQrjgYUlKIwHFpagJoBHq4k8djY9NDwCG1skPnY2vdVEu oRHtY5sNZFdZgIbWyRuNZHVOj48PDw8TsYnlXVzIgs2tphd1k2cjE/y8PAAf/zjHxcsernbMv1pwsaeIe62EAsWvbxq1SqwdevWuQs9YuOTGvtId+8VG3vmu7GPjI1PmrvQY926d eDw4cMff/zxz558OjY+qdtClGunP33Y2NPiMi3RbSFi45N+9uTTgYGBW7duBadOnZJKpR9//PHchR4LFr188kzS0JgNG1uEPnkmacGil+cu9AgMDPzkk092794Nvvvuu+PHj0ul0k2bNoWEhMxd 6IGNLVqvWLFi7dq1f/3rX3fv3v3ll1/+f8OpI3pZi3zCAAAAAElFTkSuQmCC

Kenneth Hobs
01-29-2013, 02:39 PM
Resolve the filename string first. I set it to s.
Dim s as String
s ="\\crplivfp01\Treasury Shared\ALM\Derivative Collateral\Counterparty Folders\CIT Group Inc\" & BankName & "\Margin Calls\" & BankName & " Margin Call " & WorksheetFunction.Text(CallDate, "[$-409]yyyy-mm-dd")
debug.print s
Check Immediate window for result after playing or use MsgBox to check s.

You don't really need to use a parameter name in your SaveAs method since you are just using the first two in order.

Try using Format() to format your date.

heysus jamal
01-29-2013, 03:32 PM
After more research it turns out I shouldn't be using 'SaveAs.' Instead I should be using 'ExportAsFixedFormat'....

I now have the below code to export as pdf, however I am now getting this error message...

If LegalEntity = "GroupInc" Then oWD.ExportAsFixedFormat OutputFileName:= _
"\\crplivfp01\Treasury Shared\ALM\Derivative Collateral\Counterparty Folders\Inc\" & BankName & "\Margin Calls\" & BankName & " Margin Call " & WorksheetFunction.Text(CallDate, "[$-409]yyyy-mm-dd").pdf, ExportFormat:= _
wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
Item:=wdExportDocumentContent, IncludeDocProps:=False, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False

I quoted the error message I now receive below... I feel like I am one step closer!!! : pray2:


Run-time error '424':

Object required

Kenneth Hobs
01-29-2013, 06:35 PM
If oWD is Nothing then Msgbox "oWD is Nothing."

heysus jamal
01-29-2013, 08:21 PM
If oWD is Nothing then Msgbox "oWD is Nothing."

Sorry Kenneth, I do not understand what you mean by this?

Kenneth Hobs
01-30-2013, 06:13 AM
Before using that object, insert that code to check if it was created or not. Otherwise, use F8 and step through your code to see which line the problem occurs.