摘要：'InsertsthepictureatthecurrentinsertionpointPublicFunctionInsertPicture()FunctionInsertPicture(RTBAsRichTextBox,picAsStdPicture)DimstrRTFallAsStringDimlStartAsLongWithRTB.SelText=Chr(&H9D)&.Se... 阅读全文

摘要：Properties - all sizes are in twipsxLeft - Position of the left edge of the tableisCentered - Set to True to center the tableRows - Sets or returns the number of rows in the tableColumns - Sets or ret... 阅读全文

摘要：Public Sub SetSubScript()Sub SetSubScript(RTB As RichTextBox)Dim iPos As LongDim strRTF As String With RTB If .SelCharOffset >= 0 Then 'subscript the current selection ... 阅读全文

摘要：Public Sub HighLight()Sub HighLight(RTB As RichTextBox, lColor As Long)'add new color to color table'add tags \highlight# and \highlight0'where # is new color numberDim iPos As LongDim strRTF As Strin... 阅读全文

摘要：visual basic code: Dim iPos As LongDim strInsert As StringDim strRTF As StringDim lStart As Long'assumes that strInsert contains the RTF code that you want to insert'and that the current cursor posit... 阅读全文