Module help - editing all files in a folder

I found the following macro and have tried to run it on a folder. It's supposed to call another macro named insert_tags, which will search/replace/insert text in a file. The module below quits at the ActiveDocument.Close command and also will stop at each one thereafter. My aim is to effect each edit in every file in the folder. Once edited, the module should save/close each file. Thanks.

Code:

Sub Traverse()
Dim file
Dim path As String
' Path to your folder. MY folder is listed below. I bet yours is different.
' make SURE you include the terminating "\"
'YOU MUST EDIT THIS.
path = "F:\CASES\!DOE\work\HTML Export 2014-01-21_15-48-54\Webpages\Fragments\"
'Change this file extension to the file you are opening. .htm is listed below. You may have rtf or docx.
'YOU MUST EDIT THIS.
file = Dir(path & "*.json")
Do While file <> ""
Documents.Open FileName:=path & file
' This is the call to the macro you want to run on each file the folder
'YOU MUST EDIT THIS. lange01 is my macro name. You put yours here.
Call insert_tags
' Saves the file
ActiveDocument.Save
ActiveDocument.Close
' set file to next in Dir
file = Dir()
Loop
End Sub

Thanks. First, I'm not a power user of macros and VBA. The macros are stored in Normal.dot. The code is below, and I also attached a screenshot. I simply found the original code at http://www.biblesupport.com/topic/16...s-in-a-folder/ and made the required edits. The code below is the cleaned up version that RetiredGeek suggested. I am trying to run it on multiple json files.

Code:

'You can name this whatever you want. DoLangesNow happens to be the name of this macro.
'You will run this macro name...
Option Explicit
Sub Traverse()
Dim zFile As String
Dim zPath As String
zPath = "c:\aaa\" '*** Path to Your Documents ***
'Change this File extension to the File you are opening. .htm is listed below. You may have rtf or docx.
'YOU MUST EDIT THIS.
zFile = Dir(zPath & "*.json")
Do While zFile <> ""
Documents.Open FileName:=zPath & zFile
Call insert_tags 'Call processing routine (EDIT THIS!)
Application.DisplayAlerts = False 'Prevent Overwrite Warnings
ActiveDocument.Save 'Save the File
Application.DisplayAlerts = True 'Reset
ActiveDocument.Close 'Close the document
zFile = Dir() 'Set File to next file in the path
Loop
End Sub

Thanks, Paul, but I'm afraid it didn't work. I posted the edited code below, but all that I did was change the extension to *.doc and add Call insert_tags. I changed the target file names to file.json.doc. The macro completed, but none of the files were edited. Instead, a new document was created with the inserted tags across the top, as in the screenshot. The same thing happened if I changed he target file names to file.doc.

I'm afraid it didn't work. I posted the edited code below, but all that I did was change the extension to *.doc and add Call insert_tags. I changed the target file names to file.json.doc. The macro completed, but none of the files were edited. Instead, a new document was created with the inserted tags across the top, as in the screenshot. The same thing happened if I changed he target file names to file.doc.

Changing file extensions wasn't what I meant - my advice was meant to be understood as changing the '.doc' reference in the code the '.json'.

Nevertheless, having changed the file extensions to .doc I would have expected the code to work. That it didn't suggests the issue is with your 'insert_tags' routine, not with the code that calls it. If you can post that code, we may be able to make some progress.