:: Free VB e-book. Free Visual Basic Source Code. Visual Basic Tutorial torrent download. Visual Basic Guide ::
VB tutorial
Free Visual Basic Ebook
Free e-book - VB Automating Microsoft Office Word
Atomation Word


    Site Automation, formerly called "OLE Automation," is a technology that allows you to take advantage of an existing program's content and functionality, and to incorporate it into your own applications. Automation is based on the Component Object Model (COM). COM is a standard software architecture based on interfaces that is designed to separate code into self-contained objects, or components. Each component exposes a set of interfaces through which all communication to the component is handled ...
[ Next in msdn.microsoft.com ]

    Site Free VB ebook - Developer's guide to build VB programs that automate work with MS Word documents. The guide includes a detailed description of program development process in Visual Basic, using inbuilt Word editor functions to handle documents. You can use examples in the guide to create new documents, upload documents for editing, create and edit tables, change text format, automatically fill out templates, save documents on a disk, and use one-side and duplex printing functions.
    
    
FULL Download List >>  Source Code >>
    

Czech

Visual Basic Source Code


    Site About game. If you are going on vacation with children, take some copies of this table game with you "Oflameron". You should not pay money for it - it is free of charge. Just download the file with the game forms in a popular Word format from the site and print the necessary number of forms. You children will be engaged in a catching contest and you can have a good rest. The game "Oflameron" is not like other games you already know. 1, 2, 3 or 4 players can play on one blank (game form).
    
    If you would like to take part in the game you would have a good time as well. The game is interesting both for adults and for children. The aim of the game is to increase a personal account. The person who has got the highest score wins. It provides for one more feature of the game - it can be gambling. If you give a price to each point you can hold "financial" contest with you partner. But be attentive please. By the end of the game the difference in points can amount to several thousand. Thus you can lose or win a considerable amount of money. The
game can be a good solution for an advertising campaign. If you have a business of your own you can place your advertisement on the form. Be sure - all players will see it more than once!
    

Free templates
    
game form screenshort


    [ Game ]  [ Tutorial ]  [ iPod ]  [ Barbie ]  [ VB Game ]  [ Delphi ]  [ Wallpaper ]  [ Winsock proxy ]  [ VB TCP/IP ]

    Game Form.Builder A programme for automatic generation and duplex printing of printable paper game Oflameron - Game Form.Builder The program Game Form.Builder uses the functions of MS Office Word software to generate game forms in a Word document format and enables duplex printing of the finished game form using a printer. One side of the sheet will have a table with a game field printed. The reverse side will feature rules, examples and clues. The program has two operation modes: "full" (slow) and "partial" (fast). The full mode generates a game from scratch. It involves extensive computations, formatting and redesign. It may take as long as 5 minutes to produce a game form in a full mode. The partial mode only recalculates a part of the game field (approximately 15 per cent). This makes it possible to very quickly produce a new game version and print a desired number of copies. A generated game form (an MS Word document) may be edited manually any way you want it. For example, it can be supplemented with sponsor advertisements. A finished game form document can be saved, emailed or printed in any number of copies.
    

Visual Basic


    Game Form.Builder is a programme (freeware) that is designed for automatic generation and printing of printable
game form. All you have to do is download a ZIP file with the program (1.6 Mb), unzip it and start the installer (setup.exe) Just answer the installer's questions and select the options you need. The generated game form can be saved in the MS Word format, edited or printed in the required number of copies. The game form is to be printed out on an A4 sheet of paper on both sides, with one side used for the game grid and the reverse, for clues, rules, an example and recommendations. The program has been tested with Microsoft Office Word 2003 under OS Windows 2000 and Windows XP
    
    
    

Game

Visual Basic Source Code

    Standard game form generation - generation of a completely original game form based on a template (Word document in the XML format). The values of all 960 cells of the game grid are assigned by a random number generator. Since generation takes place using the MS Word software, it is relatively slow. It takes approximately 5 minutes to complete an original game table. The completed form remains open in the Word processor. It can be edited, for example, supplemented with a sponsor advert, saved on a disc, printed in any number of copies, etc.
    Fast game form generation - fast generation of a completely original
game form (game table) based on a template (Word document in the XML format). For a form to be quickly put together, the values of 4 bottom levels only are generated. Nevertheless, this proves sufficient to produce a game table which for all intents and purposes will be original.


    
Source Code on Visual Basic 6.0    VB CODE DOWNLOAD >> [mirror1] >>  TUTORIAL DOWNLOAD >> [mirror1] >>
    


    Source CODE
    


    Dim wrd As New Word.Application ''Create Word as COM    [ web1 ] [ web2 ] [ web3 ] [ web4 ] [ vb ]
    Dim Pt As String, St As String ''Declare variables
    
    Private Sub Picture2_Click() ''Standard generation of game form    Free game
        St = App.Path ''Path to generator program
        St = St + "\oflameron-form2.xml" ''Path to XML template
        wrd.Visible = True ''Open Word
        Set doc = wrd.Documents.Add(St) ''Add Word doc
        Dim k, g
        For i = 0 To 15
          For j = 0 To 59
          Randomize ''Use random number generator
          k = Int((20 * Rnd) + 1)
          g = g + 1
          frmOflameron.Caption = "Complete " + CStr(g) + " cells from 960"    [ vb guide ] [ Free tutorials ]
          
          If k = 1 Then repltext = "1"
          If k = 1 Then FntColor = wdColorBlack ''Symbol color
          If k = 1 Then CellColor = wdColorWhite ''Cell background color     +1  
          
          If k = 2 Then repltext = "-1"
          If k = 2 Then FntColor = wdColorBlack ''Symbol color
          If k = 2 Then CellColor = wdColorWhite ''Cell background color     -1  
          
          If k = 3 Then repltext = "5"
          If k = 3 Then FntColor = wdColorBlack ''Symbol color
          If k = 3 Then CellColor = wdColorWhite ''Cell background color     +5  
          
          If k = 4 Then repltext = "-5"
          If k = 4 Then FntColor = wdColorBlack ''Symbol color
          If k = 4 Then CellColor = wdColorWhite ''Cell background color     -5  


          If k = 5 Then repltext = "+10"
          If k = 5 Then FntColor = wdColorBlack ''Symbol color
          If k = 5 Then CellColor = wdColorWhite ''Cell background color     +10  
          
          If k = 6 Then repltext = "-10"
          If k = 6 Then FntColor = wdColorBlack ''Symbol color
          If k = 6 Then CellColor = wdColorWhite ''Cell background color     -10  
          
          If k = 7 Then repltext = "+15"
          If k = 7 Then FntColor = wdColorBlack ''Symbol color
          If k = 7 Then CellColor = wdColorWhite ''Cell background color     +15  
          
          If k = 8 Then repltext = "-15"
          If k = 8 Then FntColor = wdColorBlack ''Symbol color
          If k = 8 Then CellColor = wdColorWhite ''Cell background color     -15  
          
          If k = 9 Then repltext = "25"
          If k = 9 Then FntColor = wdColorBlack ''Symbol color
          If k = 9 Then CellColor = wdColorWhite ''Cell background color     25  
          
          If k = 10 Then repltext = "T"
          If k = 10 Then FntColor = wdColorWhite ''Symbol color
          If k = 10 Then CellColor = wdColorSeaGreen ''Cell background color      T   
          
          If k = 11 Then repltext = "-25"
          If k = 11 Then FntColor = wdColorBlack ''Symbol color
          If k = 11 Then CellColor = wdColorWhite ''Cell background color     -25  
          
          If k = 12 Then repltext = "P"
          If k = 12 Then FntColor = wdColorBlack ''Symbol color
          If k = 12 Then CellColor = wdColorLightBlue ''Cell background color      P   
          
          If k = 13 Then repltext = "B"
          If k = 13 Then FntColor = wdColorBlack ''Symbol color
          If k = 13 Then CellColor = wdColorLightYellow ''Cell background color      B   
          
          If k = 14 Then repltext = "Z"
          If k = 14 Then FntColor = wdColorWhite ''Symbol color
          If k = 14 Then CellColor = wdColorBlack ''Cell background color      Z   
          
          If k = 15 Then repltext = "Z"
          If k = 15 Then FntColor = wdColorWhite ''Symbol color
          If k = 15 Then CellColor = wdColorBlack ''Cell background color      Z   
          
          If k = 16 Then repltext = "End"
          If k = 16 Then FntColor = wdColorWhite ''Symbol color
          If k = 16 Then CellColor = wdColorRed ''Cell background color    End 
          
          If k = 17 Then repltext = "-10"
          If k = 17 Then FntColor = wdColorBlack ''Symbol color
          If k = 17 Then CellColor = wdColorWhite ''Cell background color     -10  
          
          If k = 18 Then repltext = "-5"
          If k = 18 Then FntColor = wdColorBlack ''Symbol color
          If k = 18 Then CellColor = wdColorWhite ''Cell background color     -5  
    


          If k = 19 Then repltext = "-1"
          If k = 19 Then FntColor = wdColorBlack ''Symbol color
          If k = 19 Then CellColor = wdColorWhite ''Cell background color     -1  
          
          If k = 20 Then repltext = "+1"
          If k = 20 Then FntColor = wdColorBlack ''Symbol color
          If k = 20 Then CellColor = wdColorWhite ''Cell background color     +1  
          
          If k = 21 Then repltext = "+5"
          If k = 21 Then FntColor = wdColorBlack ''Symbol color
          If k = 21 Then CellColor = wdColorWhite ''Cell background color     +5  
          '=============================
          wrd.ActiveWindow.Selection.Find.Text = "sh" ''Find text "sh" on game form
          wrd.ActiveWindow.Selection.Find.Replacement.Text = repltext ''Replace text "sh" with "T"
          wrd.ActiveWindow.Selection.Find.Wrap = wdFindContinue ''Continue search
          wrd.ActiveWindow.Selection.Find.Execute Replace:=wdReplaceOne ''Replace
          
          wrd.ActiveWindow.Selection.SelectCell ''Highlight the entire cell with the text replaced with "T"
          wrd.ActiveWindow.Selection.Font.Color = FntColor ''"T" symbol color
          wrd.ActiveWindow.Selection.Cells.Shading.BackgroundPatternColor = CellColor ''Replace the colour of the highlighted cell
          
          Next j
        Next i
          
          wrd.ActiveDocument.PrintOut Copies:=1, Pages:="1,2", ManualDuplexPrint:=False ''Duplex printing of pages 1 and 2
          
        End Sub
          
          
        Private Sub Picture3_Click() ''Quick mode    Free game
        ''Fast generation of game form
        Pt = App.Path ''Path to generator program
        Pt = Pt + "\oflameron-form2quick.xml" ''Path to XML template
        wrd.Visible = True ''Open Word
        Set doc = wrd.Documents.Add(Pt) ''Add Word doc
        Dim k, g
        g = 896
        For i = 0 To 15
           For j = 0 To 3   ''Levels 0-3 only !!!!
          Randomize ''Use random number generator
          k = Int((20 * Rnd) + 1)
          g = g + 1
          frmOflameron.Caption = "Complete " + CStr(g) + " cells from 960"
          
          If k = 1 Then repltext = "1"
          If k = 1 Then FntColor = wdColorBlack ''Symbol color
          If k = 1 Then CellColor = wdColorWhite ''Cell background color     +1  
          
          If k = 2 Then repltext = "-1"
          If k = 2 Then FntColor = wdColorBlack ''Symbol color
          If k = 2 Then CellColor = wdColorWhite ''Cell background color     -1  
          
          If k = 3 Then repltext = "5"
          If k = 3 Then FntColor = wdColorBlack ''Symbol color
          If k = 3 Then CellColor = wdColorWhite ''Cell background color     +5  
          
          If k = 4 Then repltext = "-5"
          If k = 4 Then FntColor = wdColorBlack ''Symbol color
          If k = 4 Then CellColor = wdColorWhite ''Cell background color     -5  


          If k = 5 Then repltext = "+10"
          If k = 5 Then FntColor = wdColorBlack ''Symbol color
          If k = 5 Then CellColor = wdColorWhite ''Cell background color     +10  
          
          If k = 6 Then repltext = "-10"
          If k = 6 Then FntColor = wdColorBlack ''Symbol color
          If k = 6 Then CellColor = wdColorWhite ''Cell background color     -10  
          
          If k = 7 Then repltext = "+15"
          If k = 7 Then FntColor = wdColorBlack ''Symbol color
          If k = 7 Then CellColor = wdColorWhite ''Cell background color     +15  
          
          If k = 8 Then repltext = "-15"
          If k = 8 Then FntColor = wdColorBlack ''Symbol color
          If k = 8 Then CellColor = wdColorWhite ''Cell background color     -15  
          
          If k = 9 Then repltext = "25"
          If k = 9 Then FntColor = wdColorBlack ''Symbol color
          If k = 9 Then CellColor = wdColorWhite ''Cell background color     25  
          
          If k = 10 Then repltext = "T"
          If k = 10 Then FntColor = wdColorWhite ''Symbol color
          If k = 10 Then CellColor = wdColorSeaGreen ''Cell background color      T   
          
          If k = 11 Then repltext = "-25"
          If k = 11 Then FntColor = wdColorBlack ''Symbol color
          If k = 11 Then CellColor = wdColorWhite ''Cell background color     -25  
          
          If k = 12 Then repltext = "P"
          If k = 12 Then FntColor = wdColorBlack ''Symbol color
          If k = 12 Then CellColor = wdColorLightBlue ''Cell background color      P   
          
          If k = 13 Then repltext = "B"
          If k = 13 Then FntColor = wdColorBlack ''Symbol color
          If k = 13 Then CellColor = wdColorLightYellow ''Cell background color      B   
          
          If k = 14 Then repltext = "Z"
          If k = 14 Then FntColor = wdColorWhite ''Symbol color
          If k = 14 Then CellColor = wdColorBlack ''Cell background color      Z   
          
          If k = 15 Then repltext = "Z"
          If k = 15 Then FntColor = wdColorWhite ''Symbol color
          If k = 15 Then CellColor = wdColorBlack ''Cell background color      Z   
          
          If k = 16 Then repltext = "End"
          If k = 16 Then FntColor = wdColorWhite ''Symbol color
          If k = 16 Then CellColor = wdColorRed ''Cell background color    End 
          
          If k = 17 Then repltext = "-10"
          If k = 17 Then FntColor = wdColorBlack ''Symbol color
          If k = 17 Then CellColor = wdColorWhite ''Cell background color     -10  
          
          If k = 18 Then repltext = "-5"
          If k = 18 Then FntColor = wdColorBlack ''Symbol color
          If k = 18 Then CellColor = wdColorWhite ''Cell background color     -5  
    


          If k = 19 Then repltext = "-1"
          If k = 19 Then FntColor = wdColorBlack ''Symbol color
          If k = 19 Then CellColor = wdColorWhite ''Cell background color     -1  
          
          If k = 20 Then repltext = "+1"
          If k = 20 Then FntColor = wdColorBlack ''Symbol color
          If k = 20 Then CellColor = wdColorWhite ''Cell background color     +1  
          
          If k = 21 Then repltext = "+5"
          If k = 21 Then FntColor = wdColorBlack ''Symbol color
          If k = 21 Then CellColor = wdColorWhite ''Cell background color     +5  
          '=============================
          wrd.ActiveWindow.Selection.Find.Text = "sh" ''Find text "sh" on game form
          wrd.ActiveWindow.Selection.Find.Replacement.Text = repltext ''Replace text "sh" with "T"
          wrd.ActiveWindow.Selection.Find.Wrap = wdFindContinue ''Continue search
          wrd.ActiveWindow.Selection.Find.Execute Replace:=wdReplaceOne ''Replace
          
          wrd.ActiveWindow.Selection.SelectCell ''Highlight the entire cell with the text replaced with "T"
          wrd.ActiveWindow.Selection.Font.Color = FntColor ''"T" symbol color
          wrd.ActiveWindow.Selection.Cells.Shading.BackgroundPatternColor = CellColor ''Replace the colour of the highlighted cell
          
          Next j
        Next i
          
          wrd.ActiveDocument.PrintOut Copies:=1, Pages:="1,2", ManualDuplexPrint:=False ''Duplex printing of pages 1 and 2
          
        End Sub
        
        Private Sub Picture4_Click()
        ShellExecute hwnd, "open", "http://word.oflameron.ru", vbNullString, vbNullString, conSwNo
        End Sub
        
        Private Sub Picture5_Click()
        ShellExecute hwnd, "open", "http://www.oflameron.com", vbNullString, vbNullString, conSwNo
        End Sub
        
        Private Sub Picture6_Click()
        ShellExecute hwnd, "open", "http://delphi.oflameron.com", vbNullString, vbNullString, conSwNo
        End Sub
        
        Private Sub Picture7_Click()
        End
        End Sub

Free VB Project
    


        The program uses MS Word features: VB |Project| -> |References| -> and select "Microsoft Word 11.0 Object Library" if you use Microsoft Word 2003 (or "Microsoft Word 9.0 Object Library" and etc)
        
        VB project references    VB project


        Load VB 6.0 Project:
        
        VB project
        
          The path to XML template as:
        
          St = App.Path
          St = St + "\oflameron-form2.xml"
        
          for EXE Builder application (!)
        
        
          For use Builder from VB 6.0 the correct path is:
        
        VB project path
        
          Or:
        
        VB project path
        

Free VB ebook


          
Training course
        
        (c) by Valery V Shmeleff Moscow / Russia
www.oflameron.ru and www.oflameron.com
        
        
Submit site  Foreign Language  Free game  Free game  Barbie  Coffee Free Visual Basic ebook
        
        Coffee recipe
        
    
NEXT Source Code >>
        
        

    :: Free VB e-book. Free Visual Basic ebook. Visual Basic Tutorial. Visual Basic Guide ::