The bellow code can be used to extract the content of any Word document, will clean it from ASCII characters and line breaks and will output the value in Kryon, as well ass will write the output in text file.

Simply insert the code inside the Advanced command "Run Script" in Kryon.

'Funtion to remove the ASCII charachters

Private Function GetStrippedText(DocContent)

Dim regEx

Set regEx = CreateObject("vbscript.regexp")

regEx.Pattern = ""^u0000-u007F]"

GetStrippedText = regEx.Replace(DocContent, "")

End Function

'Opening the word file in not visible mode and getting the content

Dim Word

Dim WordDoc

Set Word = CreateObject("Word.Application")

Word.Visible = false

'Open the Document

Set WordDoc = Word.Documents.open("WordDocumentPath",,True)

WScript.Sleep 500

DocContent = WordDoc.Content

'Close Word

Word.Quit

'Release the object variables

Set WordDoc = Nothing

Set Word = Nothing

'Calling the function to clean the text from ASCII charachters

DocContent1 = DocContent

DocContent = GetStrippedText(DocContent)

while DocContent1<>DocContent

DocContent1 = DocContent

DocContent = GetStrippedText(DocContent)

wend

'cleaing the text from unwanted dots and breaklines

DocClean = Replace(DocContent,"","|")

DocClean = Replace(DocClean, vbCr, "")

DocClean = Replace(DocClean, vbLf, "")

'outputing the text as variable in kryon 

WScript.StdOut.Write(DocClean)

'Writing the text into textfile

Set objFileToWrite = CreateObject("Scripting.FileSystemObject").OpenTextFile("TextFilePath",2,true)

objFileToWrite.WriteLine(DocClean)

objFileToWrite.Close

Set objFileToWrite = Nothing