.contect.find not keeping the format

[owen4512]

Hi all,

I have created the below loop and find and replaces instances in word. I have created an excel spread sheet and some of the data that's being replaced is currently formatted as currency in excel. The find and replace feature works perfectly and replaces everything correctly. The only issue is the data that's formatted as currency in excel is not formatted the same in word.

Would it be possible to carry to format over into word?

Thanks in advance.

                                      For CustCol = 2 To 39 'Move Through Columns
                                            TagName = .Cells(41, CustCol).Value 'Tag Name
                                            TagValue = .Cells(CustRow, CustCol).Value 'Tag Value
                                             With WordDoc.Content.Find
                                                .Text = TagName
                                                .Replacement.Text = TagValue
                                                .Wrap = wdFindContinue
                                                .Execute Replace:=wdReplaceAll 'Find & Replace all instances
                                             End With
                                        Next CustCol

 

[Akuini]

Have you tried using text property instead of value?

    TagName = .Cells(41, CustCol).Text 'Tag Name
    TagValue = .Cells(CustRow, CustCol).Text 'Tag Value

 

[owen4512]

Have you tried using text property instead of value?

    TagName = .Cells(41, CustCol).Text 'Tag Name
    TagValue = .Cells(CustRow, CustCol).Text 'Tag Value

that's done the trick. thank you for the quick response

 

[Akuini]

You're welcome, glad to help, & thanks for the feedback.