123 and WordPro ..

from Excel's VBA

Run Lotus 123, create a file, save it and close it, and then do the same again with Lotus' WordPro.

Code
'' ***************************************************************************
'' Purpose  : Create a Lotus 123 file from Excel's VBA
'' Written  : 14-Jun-1999 by Andy Wiggins - Byg Software Ltd
''
Sub mRun123ProUsingVBA()
    Dim app As Object
    Set app = CreateObject("Lotus123.Workbook")
    
    With app
        .Parent.Visible = True

        With .ranges.Item("A:A3")
            .contents = "Demo from BygSoftware.com"
            .Font.Bold = True
        End With
    
        .SaveAs "c:\temp\BygSoftware.123"
        .Parent.Quit
    End With
    
End Sub
 
'' ***************************************************************************
'' Purpose  : create a Lotus WordPro file from Excel's VBA
'' Written  : 14-Jun-1999 by Andy Wiggins - Byg Software Ltd
''
Sub mRunWordProUsingVBA()
    Dim app As Object
    Set app = CreateObject("WordPro.Application")
    With app
        .Visible = True
        .NewDocument ("c:\temp\Foo.Lwp")
        .Text.inserttext ("This is a new line")
        .Save
        .Parent.Quit
    End With
End Sub
 
 
Published: 31-May-2005
Last edited: 01-Mar-2011 20:51