macOS Script to Batch Convert TXT to DOCX

set theFolder to choose folder with prompt "Select a folder with txt files in."


tell application "Finder"
	set theTxtFiles to (files of folder theFolder whose name extension is "txt") as alias list
	if not (exists folder "WordDocs" of folder theFolder) then
		set wordDocsDest to (make new folder at theFolder with properties {name:"WordDocs"}) as string
	else
		set wordDocsDest to (theFolder as text) & "WordDocs:"
	end if
	if not (exists folder "EPUBFiles" of folder theFolder) then
		set EPUBFilesDest to (make new folder at theFolder with properties {name:"EPUBFiles"}) as string
	else
		set EPUBFilesDest to (theFolder as text) & "EPUBFiles:"
	end if
end tell

repeat with i from 1 to number of items in theTxtFiles
	set this_item to item i of theTxtFiles
	set baseName to do shell script "basename " & quoted form of POSIX path of this_item & " .txt"
	tell application "Microsoft Word"
		activate
		open this_item --without confirm conversions
		set theDocument to active document
		run VB macro macro name "Macro1"
		save as theDocument file name (wordDocsDest & baseName & ".docx") file format format document
		close theDocument
	end tell
end repeat

tell application "Finder" to set theDocxFiles to (files of folder wordDocsDest whose name extension is "docx") as alias list

tell application "Microsoft Word" to quit

tell application "Pages" to activate

repeat with i from 1 to number of items in theDocxFiles
	set theItem to item i of theDocxFiles
	tell application "Pages"
		---activate
		set the_document to open theItem
		activate
		set the_document_name to name of the_document
		ignoring application responses
			export the_document to file (EPUBFilesDest & the_document_name & ".epub") as epub
		end ignoring
		tell application "System Events"
			tell process "Pages"
				repeat until exists sheet 1 of window 1
					delay 0.5
				end repeat
				click button "OK" of sheet 1 of window 1
			end tell
		end tell
		close the_document saving no
	end tell
end repeat

Sub Macro1()
'
' Macro1 Macro
'
Dim oDoc As Document
Set oDoc = ActiveDocument
    With oDoc.PageSetup
     .LeftMargin = InchesToPoints(0.65)
     .RightMargin = InchesToPoints(0.65)
    .TopMargin = InchesToPoints(0.65)
    .BottomMargin = InchesToPoints(0.65)
    End With
    Selection.WholeStory
    Selection.Font.Name = "Times New Roman"
    Selection.Font.Size = 11
    Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=1, Name:=""
    Selection.Style = ActiveDocument.Styles("Heading 1")
End Sub