Is it possible to enter a blank line into a rich text formula? Here's my formula, what it does is it make the word before the ':' bold.
dim InputField as string
IF ISNULL({stpFunctionWorksheet;1.Decor}) or {stpFunctionWorksheet;1.Decor}="" THEN
else
InputField="DÉCOR: " & {stpFunctionWorksheet;1.Decor}
dim Increment as number
dim TempString as string
dim TempStringTwo as string
Increment = 1
if instr(InputField, ": "
> 0 then TempString = InputField(1 to instr(InputField, ": "
) else TempString = InputField
if instr(InputField, ": "
> 0 then TempStringTwo= InputField(length(TempString) + 1 to length(InputField)) else TempStringTwo = ""
formula = "{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{f0\fswiss\fcharset0 Arial;}}" + "\viewkind4\uc1\pard\b\f0\fs22 " + TempString + "\b0 " + TempStringTwo
END IF
Thanks in advance.
Bryan
dim InputField as string
IF ISNULL({stpFunctionWorksheet;1.Decor}) or {stpFunctionWorksheet;1.Decor}="" THEN
else
InputField="DÉCOR: " & {stpFunctionWorksheet;1.Decor}
dim Increment as number
dim TempString as string
dim TempStringTwo as string
Increment = 1
if instr(InputField, ": "
if instr(InputField, ": "
formula = "{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{f0\fswiss\fcharset0 Arial;}}" + "\viewkind4\uc1\pard\b\f0\fs22 " + TempString + "\b0 " + TempStringTwo
END IF
Thanks in advance.
Bryan