Text Dynamic examples

GRS

I am a little simple when it comes to programming and I find examples help me no end. I have created a VS 2005 Visual Basic Net 2.0 demo that creates a basic word processor using Text Dynamic and have added a custom menu to duplicate most button actions using the wpaProcess commands like

Code

Private Sub CutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CutToolStripMenuItem.Click        Me.WpdllInt1.CurrMemo.wpaProcess("Copy", "")    End Sub

I have also added an Examples menu with some basic code that I found useful, mostly from the manual, API and all over. Code example to add a formatted header below. Only about 4 examples at present but I plan to add more as I go. If anyone has some Visual Basic code they wish to share I would be very happy to add it. Download at http://www.accessgp.com/Downloads.html

GRS

Code

Private Sub BlockToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BlockToolStripMenuItem.Click
        'Dim memo As IWPMemo = WpdllInt1.Memo
        Dim header As IWPDataBlock = Me.WpdllInt1.CurrMemo.BlockAdd(DataBlockKind.wpIsHeader, DataBlockRange.wpraOnAllPages, "", 0)


        header.Clear()
        header.WorkOnText = True
        'IWPTextCursor cursor = memo.TextCursor;
        'Me.WpdllInt1.Memo.CurrAttr.IncludeStyles(WPWRT.ITALIC)


        'create a text style called "myStyle", this is not used for the actual header, confusing isn't it
        Me.WpdllInt1.Memo.SelectStyle("myStyle") 'Selects a certain style. The style can be then manipulated through interface CurrStyle.
        Me.WpdllInt1.Memo.CurrStyleAttr.SetFontface("Times New Roman") 'This interface is used to change the character attributes defined by the current style. Also see CurrStyle
        Me.WpdllInt1.Memo.CurrStyleAttr.SetFontSize("12")
        Me.WpdllInt1.Memo.CurrStyleAttr.SetStyles(7)
        '        Declaration()
        'procedure SetStyles(Value: WrtStyle);
        '        Description()
        'This method sets all character styles ate once. Also see IncludeStyles and ExcludeStyles and ToogleStyle.
        '        Parameters()
        'Styles  1 : Bold text. (C# wrapper defines enum element WPSTY.BOLD)
        '2 : Italic text. (C# wrapper defines enum element WPSTY.ITALIC)
        '4 : Underlined text. (C# wrapper defines enum element WPSTY.UNDERLINE)
        '8 : Strikeout text. (C# wrapper defines enum element WPSTY.STRIKEOUT)
        '16 : Text in super-script (C# wrapper defines enum element WPSTY.SUPERSCRIPT)
        '32 : Text in sub-script (C# wrapper defines enum element WPSTY.SUBSCRIPT)
        '64 : Hidden text, (C# wrapper: WPYST.HIDDEN)
        '128 : Uppercase text. (C# wrapper: WPYST.UPPERCASE)
        '256 : reserved.
        '512 : Lowercase text. (C# wrapper: WPYST.LOWERCASE)
        '1024 : Text which should be excluded from spellcheck (WPSTY.NOPROOF)
        '2048 : Double strikeout (WPSTY.DBLSTRIKEOUT)
        '4096 : reserved.
        '8192:   Protected text(WPSTY.PROTECTED)


        Me.WpdllInt1.Memo.CurrPar.StyleName = "myStyle"
        'clear the writing attributes otherwise the style is not used
        Me.WpdllInt1.Memo.CurrAttr.Clear()




        Me.WpdllInt1.TextCursor.InputText(" Page ")
        Me.WpdllInt1.TextCursor.InputTabstop(False, Me.WpdllInt1.Memo.PageSize.PageWidth - Me.WpdllInt1.Memo.PageSize.LeftMargin - Me.WpdllInt1.Memo.PageSize.RightMargin, 1, 1)
        '        Declaration()
        'procedure InputTabstop(ClearAllTabs: WordBool; Value: Integer; Kind: Integer; FillMode: Integer);
        '        Description()
        'Creates a tabstop.


        '        Parameters()
        'ClearAllTabs  True to clear tab list for current paragraph. 
        'Value  Value of this tabstop (in twips=1/1440 inch) 
        'Kind  The tabstop kind:
        '0:      Left(TAB)
        '1:      Right(TAB)
        '2:      Center(TAB)
        '3 : Decimal tab


        'Fill  The fill mode used for this tabstop
        '0:      No(Filling)
        '1: Dots ......
        '2: Dots in middle of line
        '3: Hyphens ------
        '4:      Underline(______)
        '5: Thick Hyphen ---------
        '6: Equal Signs =======
        '7:      Arrow()


        Me.WpdllInt1.TextCursor.InputObject(TextObjTypes.wpobjTextObject, "PAGE", "", 0)
        Me.WpdllInt1.TextCursor.InputText(" of ")
        Me.WpdllInt1.TextCursor.InputObject(TextObjTypes.wpobjTextObject, "NUMPAGES", "", 0)
        '        Declaration()
        'function InputObject(ObjType: TxTextObjTypes; const Name: WideString; const Command: WideString; Mode: Integer): Integer;


        '        Description()
        'Creates different object kinds at cursor position.


        '        Parameters()
        'ObjType  0=text object, 1=merge field, 2=hyperlink, 3=bookmark, 7=text object, 8=page reference, 11=footnote, 12=image or text box and 13 for horizontal lines. 
        'Name  The name of the new object. 
        'Command  The command parameter of the new object. 
        'Mode  If bit 1 is set an object pair will be created. The cursor will be placed within.
        'Bit 2 activates the "editable" mode used for form fields. 


        '        Returns()
        '0 if not successful. Otherwise the interface CurrObj can be used to change object properties.






        'Declaration()
        'function InputFieldObject(const Name: WideString; const Command: WideString; const DefaultText: WideString): Integer;


        '        Description()
        'Creates a text object. This are single objects which are updated by the the event OnTextObjectGetText. The following fieldnames are predefined:
        '"PAGE" : The current page number
        '"NEXTPAGE": Page number of the next page, empty strig if last page
        '"PRIORPAGE": Previous pagenumber, empty string if first page
        '"NUMPAGES": Count of pages
        '"DATE": The curent date
        '"TIME": The current time
        '"SECTIONPAGES": Count of pages in this section


        'When you need to create HTML text you can use a field with the name HTMLCODE and any custom code as "command" to insert custom HTML tags into the HTML text.




        Me.WpdllInt1.Reformat()
    End Sub

Alles anzeigen

GRS

The code below adds a table with 3 columns to the header, formats the text, sets justification of table cells. I use it to create a the basis of a letter in code. Exampe project at Download at http://www.accessgp.com/Downloads.html

Code

Dim header As IWPDataBlock = Me.WpdllInt1.CurrMemo.BlockAdd(DataBlockKind.wpIsHeader, DataBlockRange.wpraOnAllPages, "", 0)


        header.Clear()
        header.WorkOnText = True
        'IWPTextCursor cursor = memo.TextCursor;
        'Me.WpdllInt1.Memo.CurrAttr.IncludeStyles(WPWRT.ITALIC)


        ''create a text style called "myStyle", this is not used for the actual header, confusing isn't it
        'Me.WpdllInt1.Memo.SelectStyle("myStyle") 'Selects a certain style. The style can be then manipulated through interface CurrStyle.
        'Me.WpdllInt1.Memo.CurrStyleAttr.SetFontface("Times New Roman") 'This interface is used to change the character attributes defined by the current style. Also see CurrStyle
        'Me.WpdllInt1.Memo.CurrStyleAttr.SetFontSize("12")
        'Me.WpdllInt1.Memo.CurrStyleAttr.SetStyles(7)






        '        Declaration()
        'procedure SetStyles(Value: WrtStyle);
        '        Description()
        'This method sets all character styles ate once. Also see IncludeStyles and ExcludeStyles and ToogleStyle.
        '        Parameters()
        'Styles  1 : Bold text. (C# wrapper defines enum element WPSTY.BOLD)
        '2 : Italic text. (C# wrapper defines enum element WPSTY.ITALIC)
        '4 : Underlined text. (C# wrapper defines enum element WPSTY.UNDERLINE)
        '8 : Strikeout text. (C# wrapper defines enum element WPSTY.STRIKEOUT)
        '16 : Text in super-script (C# wrapper defines enum element WPSTY.SUPERSCRIPT)
        '32 : Text in sub-script (C# wrapper defines enum element WPSTY.SUBSCRIPT)
        '64 : Hidden text, (C# wrapper: WPYST.HIDDEN)
        '128 : Uppercase text. (C# wrapper: WPYST.UPPERCASE)
        '256 : reserved.
        '512 : Lowercase text. (C# wrapper: WPYST.LOWERCASE)
        '1024 : Text which should be excluded from spellcheck (WPSTY.NOPROOF)
        '2048 : Double strikeout (WPSTY.DBLSTRIKEOUT)
        '4096 : reserved.
        '8192:   Protected text(WPSTY.PROTECTED)


        'Me.WpdllInt1.Memo.CurrPar.StyleName = "myStyle"
        ''clear the writing attributes otherwise the style is not used
        'Me.WpdllInt1.Memo.CurrAttr.Clear()




        Dim AttrHelper As IWPAttrInterface = WpdllInt1.AttrHelper
        Dim CurrPar As IWPParInterface = Me.WpdllInt1.Memo.CurrPar


        ' set all margins, do not change page size, optional
        'Me.WpdllInt1.Memo.PageSize.SetPageWH(-1, -1, 360, 360, 360, 360)


        ' We want to use 2 different character styles
        AttrHelper.Clear()
        AttrHelper.SetFontface("Verdana")
        AttrHelper.SetFontSize(11)
        AttrHelper.IncludeStyles(1) '  bold
        Dim headerchars As Integer = AttrHelper.CharAttrIndex


        Me.WpdllInt1.TextCursor.AddTable("WPA", 3, 1, False, 0, False, False)


        '        Declaration()
        'procedure AddTable(const TableName: WideString; ColCount: Integer; RowCount: Integer; Border: WordBool; EventParam: Integer; CreateHeader: WordBool; CreateFooter: WordBool);
        '        Description()
        'This method creates a table and triggers the callback OnCreateNewCell for each created cell if EventParam was passed with a value != 0. So you can add the data and properties is a very efficient way.
        'Since the cursor will be placed inside the first cell, you can, in case it is not possible to use the event, fill text in each new cell by moving the cursor through the table using CPMoveNextCell and CPMoveNextRow. To create text after the table use InputParagraph(2,"") !
        '        Parameters()
        'ColCount  The count of columns which should be created 
        'RowCount  The count of rows which should be created (not including header/footer rows). You can abort the creation in event OnCreateNewCell by changing the value of the boolen variable AbortAtRowEnd. 
        'Border  Create a broder around cells. You can also set border attributes in event OnCreateNewCell. 
        'EventParam  Parameter passed through to OnCreateNewCell. This event is not called if this parameter is 0. 
        'CreateHeader  If true an extra header row with rownr=-1 will be created. The formatting routine is able to repeat header rows at the start of a page. 
        'CreateFooter  If true an extra footer row with rownr=-2 will be created. The formatting routine is able to repeat footer rows at the start of a page. (This special feature is not supported by MSWord) 


        Me.WpdllInt1.TextCursor.CPTableRowNr = 0
        Me.WpdllInt1.TextCursor.CPTableColNr = 0
        Me.WpdllInt1.CurrPar.SetText("Surname " & vbCrLf & "Firstnames " & vbCrLf & "DOB", headerchars)
        Me.WpdllInt1.CurrPar.Alignment = 0 '
        '0 : Left aligned
        '1 : Centered
        '2 : Right aligned
        '3 : Justified Text
        Me.WpdllInt1.CurrPar.ParShading = 30 ' just for fun


        Me.WpdllInt1.TextCursor.CPTableColNr = 2
        Me.WpdllInt1.CurrPar.SetText("Address" & vbCrLf & "Phone" & vbCrLf & "Fax", headerchars)
        Me.WpdllInt1.CurrPar.Alignment = 2 '


        Me.WpdllInt1.TextCursor.CPTableColNr = 1
        Me.WpdllInt1.CurrPar.Alignment = 1 '
        Me.WpdllInt1.CurrPar.CharAttr(headerchars)
        Me.WpdllInt1.TextCursor.InputString("Page ", headerchars) 'use .InputString instead of .InputText so CharAttr can be used to format text




        Me.WpdllInt1.Memo.CurrAttr.CharAttrIndex = headerchars ' all text after this will be hearderchars type


        Me.WpdllInt1.TextCursor.InputObject(TextObjTypes.wpobjTextObject, "PAGE", "", 0)
        Me.WpdllInt1.TextCursor.InputText(" of ")
        Me.WpdllInt1.TextCursor.InputObject(TextObjTypes.wpobjTextObject, "NUMPAGES", "", 0)




        '        Declaration()
        'function InputObject(ObjType: TxTextObjTypes; const Name: WideString; const Command: WideString; Mode: Integer): Integer;


        '        Description()
        'Creates different object kinds at cursor position.


        '        Parameters()
        'ObjType  0=text object, 1=merge field, 2=hyperlink, 3=bookmark, 7=text object, 8=page reference, 11=footnote, 12=image or text box and 13 for horizontal lines. 
        'Name  The name of the new object. 
        'Command  The command parameter of the new object. 
        'Mode  If bit 1 is set an object pair will be created. The cursor will be placed within.
        'Bit 2 activates the "editable" mode used for form fields. 


        '        Returns()
        '0 if not successful. Otherwise the interface CurrObj can be used to change object properties.






        'Declaration()
        'function InputFieldObject(const Name: WideString; const Command: WideString; const DefaultText: WideString): Integer;


        '        Description()
        'Creates a text object. This are single objects which are updated by the the event OnTextObjectGetText. The following fieldnames are predefined:
        '"PAGE" : The current page number
        '"NEXTPAGE": Page number of the next page, empty strig if last page
        '"PRIORPAGE": Previous pagenumber, empty string if first page
        '"NUMPAGES": Count of pages
        '"DATE": The curent date
        '"TIME": The current time
        '"SECTIONPAGES": Count of pages in this section


        'When you need to create HTML text you can use a field with the name HTMLCODE and any custom code as "command" to insert custom HTML tags into the HTML text.


        Me.WpdllInt1.TextCursor.GotoBody()
        Me.WpdllInt1.TextCursor.InputText("Body text ")


        Me.WpdllInt1.Reformat()

Alles anzeigen

support

Hi,

thanks for this code. It is very useful for me, too.

There is now an updated manual (oart of the new V1.30) and also an online version of it.
https://www.wpcubed.com/manuals/textdynamic/

This manual incorporates the introduction chapters and the reference and everything is cross linked. I hope this is also an improvement.

Kind Regards,

Julian Ziersch

GRS

I have added a form to select and store a variety or printers with associated bins and resolutions. Then a form to print a medical certificate with a header, body and footer with options to print or print preview and a comparison to another way to do it in VB.Net 2005 code. TextDynamic is easier and more versatile and I am using it as my print engine as well as a word processor in my application. Printer selection in code in TD not implemented yet but will be soon I hope :D Download at http://www.accessgp.com/Downloads.html and aslo Shockwave video of the example in action http://www.accessgp.com/Files/TDCertDemo5.swf .

Regards,

Geoff

GRS

New example added showing mail merge in code. Also I didn't realise that TextDynamic saves printer settings when saving a .rtf file which is handy e.g. margins and paper size seem to be saved with the text

Code

Private Sub MergeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MergeToolStripMenuItem.Click
        Me.WpdllInt1.Memo.Text = "The author of TextDyamic is <name>."
        MsgBox("Click OK to merge data")
        Me.WpdllInt1.TextCursor.FieldsFromTokens("<", ">", "")
        Me.WpdllInt1.MergeText()
    End Sub


    Private Sub WpdllInt1_OnFieldGetText(ByVal Sender As System.Object, ByVal Editor As System.Int32, ByVal FieldName As System.String, ByVal Contents As WPDynamic.IWPFieldContents) Handles WpdllInt1.OnFieldGetText
        If FieldName = "name" Then
            Contents.StringValue = "Julian Ziersch"
        End If
    End Sub

Alles anzeigen

GRS

Here is another small example using merging of text. I had to print a script form with patient name, address, medications etc on pre-printed paper. I created a .rtf file as a template with fields surrounded by <<and>> e.g. <<PatientName>>. The beauty of this approach is that it is very easy to format the printout, set margins, set text attributes and these are carried through into the merged text (as long as <<and>> are in the font and size you want. The code loads a .rtf file and merges text from my program and prints or previews it with optional preferred printer.

Code

Private Sub PrintScriptToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintScriptToolStripButton.Click
        Me.WpdllInt1.Clear() 'otherwise repeated running duplicates text in body
        Me.WpdllInt1.Memo.LoadFromFile("C:\Program Files\VBNM\VBNetMed\Templates\script.RTF", False, "AUTO")
        Me.WpdllInt1.TextCursor.FieldsFromTokens("<<", ">>", "")
        Me.WpdllInt1.MergeText()
        WpdllInt1.SpecialTextAttr(SpecialTextSel.wpInsertpoints).Hidden = True
        Me.WpdllInt1.Reformat()


        Me.WpdllInt1.SelectPrinter(My.Settings.BpName)
        Me.WpdllInt1.Memo.PrintParameter.AllPagePaperSource = My.Settings.LpBinItem
        'Me.WpdllInt1.Memo.Print()


        Me.WpdllInt1.CurrMemo.wpaProcess("DiaPreview", "")
    End Sub


    Private Sub WpdllInt1_OnFieldGetText(ByVal Sender As System.Object, ByVal Editor As System.Int32, ByVal FieldName As System.String, ByVal Contents As WPDynamic.IWPFieldContents) Handles WpdllInt1.OnFieldGetText
        If FieldName = "PatientName" Then
            Contents.StringValue = Me.FirstNamesTextBox.Text & " " & Me.FamilyNameTextBox.Text & " " & Me.DOBTextBox.Text
        End If


        If FieldName = "Address" Then
            Contents.StringValue = Me.AddressTextBox.Text
        End If


        If FieldName = "RX" Then
            Contents.StringValue = "X"
        End If


    End Sub

Alles anzeigen