fork(1) download

Imports Microsoft.Office.Interop
 
Module Module1
    Sub Main()
        ' Open the presentation               
        Dim myApp = New PowerPoint.Application()
        Dim sName As String
 
        sName = InputBox$(" Δώσε το πλήρες path του αρχείου : ", "Παράθυρο Διαλόγου ")
        MsgBox("Άνοιγμα του : " & sName)
 
        myApp.Visible = msoTrueDim
        MyPresentation = myApp.Presentations.Open(sName, msoTrue, msoTrue, True)
 
        ' get the first slide
        Dim MyFirstSlide = MyPresentation.Slides(1)
        Dim sb = String.Empty
 
        ' iterate through all shapes in slide and get text               
        For i = 1 To MyFirstSlide.Shapes.Count
            sb = sb & MyFirstSlide.Shapes.Item(i).TextFrame.TextRange.Text & Environment.NewLine
        Next (i)
 
        ' show message box with the texts               
        MsgBox(sb.ToString)
        ' close presentation               
        MyPresentation.Close()
    End Sub
 
    Private Function MyPresentation() As Object
        Throw New NotImplementedException
    End Function
 
    Private Function msoTrue() As Microsoft.Office.Core.MsoTriState
        Throw New NotImplementedException
    End Function
 
    Private Function ppt_filename() As String
        Throw New NotImplementedException
    End Function
 
    Private Function msoTrueDim() As Microsoft.Office.Core.MsoTriState
        Throw New NotImplementedException
    End Function
 
End Module

Visual Basic.Net Compiler version 0.0.0.5914 (Mono 2.4.2 - r)
Copyright (C) 2004-2008 Rolf Bjarne Kvinge. All rights reserved.


/home/MwDkmH/prog.vb (1,20) : Error VBNC30456: 'Office' is not a member of 'Global.Microsoft'.
/home/MwDkmH/prog.vb (1,20) : Warning VBNC40056: The import 'Microsoft.Office.Interop' could not be found.
1 errors, but compilation succeeded? Resolve
/home/MwDkmH/<MyGenerator> (1,1) : Error VBNC99999: Unexpected error: There has been an internal error in the compiler: Consistency check failed
  at vbnc.Compiler.VerifyConsistency (Boolean result, System.String Location) [0x000a3] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Compiler.vb:132 
  at vbnc.Compiler.Compile_Resolve () [0x00070] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Compiler.vb:403 
  at vbnc.Compiler.Compile () [0x0028a] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Compiler.vb:561 
Compilation took 00:00:00.6906920

Standard output is empty