Create POT doc. Editing word file

 #include <MsgBoxConstants.au3>
#include <Word.au3>
#include <Date.au3>
#include <FileConstants.au3>

Local $plainText = StringRegExpReplace(ClipGet(),"(?i)([^a-z0-9-_ .:()/])","")
$plainText = StringReplace($plainText,"  "," ")
if StringInStr($plainText,"Test Description")=0 then Exit MsgBox($MB_SYSTEMMODAL,"Error", "Invalid content copied. Please copy again")


Local $pOinter = StringSplit(StringSplit($plainText,"TC_","1")[2],"Test Description","1")
Local $testCaseID = "TC_" & $pOinter[1]

$pOinter = StringSplit(StringSplit($plainText,"Test Description","1")[2],"Expected Result","1")
Local $testDesc = $pOinter[1]

$pOinter = StringSplit(StringSplit($plainText,"Expected Result","1")[2],"Actual Result","1")
Local $expResult = $pOinter[1]

$pOinter = StringSplit(StringSplit($plainText,"Feature","1")[2],"Assignee","1")
Local $feature = $pOinter[1]

ConsoleWrite($testCaseID & @LF)
ConsoleWrite(StringLen($testDesc) & @LF)
ConsoleWrite($expResult & @LF)
ConsoleWrite($feature & @LF)
ConsoleWrite(_NowDate())
FileCopy(@ScriptDir & "\Sample.docx", @ScriptDir & "\TestCrew Wallet-Release 2-Sprint6+-SIT-" & $testCaseID & ".docx")


Local $oWord = _Word_Create()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocSaveAs Example", _
        "Error saving the Word document." & @CRLF & "@error = " & @error & ", @extended = " & @extended)

Local $oDoc = _Word_DocOpen($oWord, @ScriptDir & "\TestCrew Wallet-Release 2-Sprint6+-SIT-" & $testCaseID &".docx", Default, Default, Default)


_Word_DocFindReplace($oDoc, "<date>", _NowDate())
_Word_DocFindReplace($oDoc, "<FEATURE>",$feature)
_Word_DocFindReplace($oDoc, "<TESTID>",$testCaseID)

$i = StringLen($expResult)
$sTart = 1
$rePlace = "<exp>"
While $i>200
_Word_DocFindReplace($oDoc, $rePlace,StringMid($expResult,$sTart,200) & "<exp>")
$i = $i-200
$sTart = $sTart + 200
WEnd
_Word_DocFindReplace($oDoc, $rePlace,StringMid($expResult,$sTart,StringLen($expResult)))

$i = StringLen($testDesc)
$sTart = 1
$rePlace = "<desc>"
While $i>200
_Word_DocFindReplace($oDoc, $rePlace,StringMid($testDesc,$sTart,200) & "<desc>")
$i = $i-200
$sTart = $sTart + 200
WEnd
_Word_DocFindReplace($oDoc, $rePlace,StringMid($testDesc,$sTart,StringLen($testDesc)))

;_Word_DocSave($oDoc);s, @ScriptDir & "\NewFile.docx")
;If @error Then Exit MsgBox($MB_SYSTEMMODAL, @error , @extended)