WD Management of RTF
// ----------------------------------------------------------------
// ----------------------- RUN CODE ---------------------------
// ----------------------------------------------------------------
// Choose or save the file
sFileName is string = fSelect(CompleteDir(fExeDir()),"overview.rtf","Selecting RTF files","RTF file (*.RTF)" + TAB + "*.rtf" , "*.rtf" ,fselCreate)
// Save the file
fSaveText(sFileName,Edit_RTF_ORIGINAL)
IF ErrorOccurred THEN
Error(StringBuild("The %1 file was not saved.",sFileName),ErrorInfo())
RETURN
END
//-------------------------------------------------------
// ----------------------------------------------------------------
// ----------------------- RUN CODE ---------------------------
// ----------------------------------------------------------------
// Select a .RTF file
sFileName is string = fSelect(CompleteDir(fExeDir()),"overview.rtf","Selecting RTF files","RTF file (*.RTF)" + TAB + "*.rtf" ,"*.rtf",fselOpen)
IF sFileName~="" THEN
// No selected file
RETURN
END
// Load the RTF file
RTFLoad(RTFText,sFileName)
IF ErrorOccurred THEN
Error(StringBuild("The %1 file was not loaded.",sFileName),ErrorInfo())
RETURN
END
//---------------------------------------------------
// ----------------------------------------------------------------
// ----------------------- RUN CODE ---------------------------
// ----------------------------------------------------------------
n is int
sSoughtWord is string = "Overview"
sReplaceWord is string = "OVERVIEW"
// Case-insensitive search starting from the end of selection
n = RTFSearch(RTFText, sSoughtWord,rtfFullWord+rtfCaseSensitive,1)
// If the word was found
IF n <> 0 THEN
// Replaces the word found
RTFReplace(RTFText, sReplaceWord, n, n + Length(sSoughtWord))
END
//------------------------------------------------
// ----------------------------------------------------------------
// ----------------------- RUN CODE ---------------------------
// ----------------------------------------------------------------
n is int
sSoughtWord is string = "powerful"
// Search not sensitive to the case from the beginning of the text
n = RTFSearch(RTFText, sSoughtWord,rtfFullWord,1)
// If the word was found
IF n <> 0 THEN
// The sought word is selected
RTFText..Cursor = n
RTFText..CursorEnd = n + Length(sSoughtWord)
END
//---------------------------------------------
// ----------------------------------------------------------------
// ----------------------- RUN CODE ---------------------------
// ----------------------------------------------------------------
// Modifies the color of the selection
RTFSelection (RTFText, rtfColor, iLightRed)
//-------------------------------------------------------------------------------
// ----------------------------------------------------------------
// ----------------------- RUN CODE ---------------------------
// ----------------------------------------------------------------
// Switches the selection to Arial
RTFSelection(RTFText, rtfFontName, "Arial")
//-------------------------------------------------------------------------
// ----------------------------------------------------------------
// ----------------------- RUN CODE ---------------------------
// ----------------------------------------------------------------
// Switches the font selection to size 24
RTFSelection(RTFText, rtfFontSize, 24)
//---------------------------------------------------------------------
// ----------------------------------------------------------------
// ----------------------- RUN CODE ---------------------------
// ----------------------------------------------------------------
// Writes the selected word in bold
RTFSelection(RTFText, rtfBold, True)