VBA for decimals and saving

[cjtaylor0103]

Hello,

No coding experience other than what I've done here to stitch together a few people's code. I'm almost where I need to be, but have 2 problems.

First, this line of code is grabbing data from an excel spreadsheet and moving it in to a word template. When the data being moved is a currency and the currency ends in a .00 or .#0, it cut's off the zero(s) in the output file. $95.00 turns to $95 and $95.50 turns to $95.5. How might I adjust this code to bring in two decimals even if one or both are zeros?

    .Application.Selection.Find.Text = "<<total!>>"
    .Application.Selection.Find.Execute
    .Application.Selection = Sheet1.Cells(r, 13).Value
    .Application.Selection.EndOf

Second, I'm hoping to save the created document as a PDFs instead of .docx. The target file for moving excel data is a Word Template (.dotx). Can I adjust the below code to output a PDF document when I run the macro?

    custN = Sheet1.Cells(r, 3).Value
    type1 = Sheet1.Cells(r, 5).Value
    path = ActiveWorkbook.path & "\OUTPUT\"
    .SaveAs2 Filename:=path & custN & "_" & type1, _
    FileFormat:=wdFormatXMLDocument, AddtoRecentFiles:=False

Many thanks for the assist!

 

[Joe4]

Welcome to the Board!

To answer your first question, when doing a Mail Merge between Excel and Word, it is usually best to handle the formatting of your numeric field in the Word Mail Merge template.
See: Fix the Formatting of an Excel Mail Merge Field in a Word Document