用Excel中的货币replaceWord中的文本

第一次发布，请轻松…我写了一些代码来replaceWord模板中的占位符文本，从Excel文件中的文本。 （例如，用Buddy's Dog Groomingreplace所有的Business_Name）代码运行，并按计划replace所有内容，但是当用$ 100,000的Excel中的货币replaceWord文本Total_FMV时，代码吐出100000.关于如何我可以在Word中的文字阅读$ 100,000没有小数？

Private Sub OnSite_Builder_Click() Template = "C:\Users\Me\Desktop\TEMPLATE.docx" Set wrdApp = CreateObject("Word.Application") Set wrdDoc = wrdApp.Documents.Open(Template, ReadOnly:=True) wrdApp.Visible = True wrdApp.Selection.Find.ClearFormatting wrdApp.Selection.Find.Replacement.ClearFormatting 'Total FMV With wrdApp.Selection.Find .Text = "Total_FMV" .Replacement.Text = Range("C28") .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With wrdApp.Selection.Find.Execute Replace:=wdReplaceAll End Sub 

Answer 1

尝试

  .Replacement.Text =Format(Range("C28"),"$#,##0") 

Answer 2

你可以用你的.Replacement.Text = Range（“C28”）代替：

 .Replacement.Text = Range("C28").NumberFormat = "$#,###"