Hi

I have an Excel file which converts financial reports into the format required by my accounting software using formulae and VBA.

The final step is to save one tab as a .txt file and then remove extraneous quotation marks from the file.

My code runs without errors but does not replace the quotation marks.

'open in word
Dim objWord As Object
Dim objDoc As Object
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open(ThisWorkbook.Path & "\" & "Consolidated1.txt")

objWord.Visible = True

With objDoc.Content.Find
        .Text = """"
        .Replacement.Text = ""
        .Forward = True
    End With
    objWord.Selection.Find.Execute Replace:=wdReplaceAll
    objDoc.Save
    ActiveWindow.Close
MsgBox "Open Consolidated.txt and Find & Replace all speech marks with blanks. Then save txt file with appropriate file name"

ThisWorkbook.Close savechanges:=False
End Sub
Here is a small extract from the .txt file. The quotation marks that need to be removed are around the dollar amounts.

GJ000111 31/10/2017 Delmo - Record Chenter Journals P X 14054 N "$13,899.80 " N-T $0.00 Delmo N
GJ000111 31/10/2017 Delmo - Record Chenter Journals P X 14204 N "$10,636.69 " N-T $0.00 Delmo N


Any help is greatly appreciated!