fork download

copy

Imports Microsoft.Office.Interop
Imports Microsoft.Office.Core.MsoTriState
 
Module Module1
    Sub Main()
        ' Open the presentation               
        Dim myApp = New PowerPoint.Application()
        Dim sName As String
 
        sName = InputBox$(" Δώσε το πλήρες path του αρχείου : ", "Παράθυρο Διαλόγου ")
 
        Dim somevar = New System.IO.FileInfo(sName)
 
        If somevar.Directory.Exists = False Then 
            MsgBox("Δεν βρέθηκε η διαδρομή" & somevar.DirectoryName & ".")
        Else
            If somevar.Exists = False Then
                MsgBox("Το αρχείο" & somevar.Name & "δεν βρέθηκε στην διαδρομή" & somevar.DirectoryName & ".")
            Else
                MsgBox("Άνοιγμα του : " & sName)
            End If
        End If
 
        myApp.Visible = msoTrue
        Dim MyPresentation = myApp.Presentations.Open(sName, msoTrue, msoTrue, True) 'MyPresentation -> Αντικείμενο παρουσίασης 
 
        ' 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
 
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/VdXJyA/prog.vb (1,20) : Error VBNC30456: 'Office' is not a member of 'Global.Microsoft'.
/home/VdXJyA/prog.vb (1,20) : Warning VBNC40056: The import 'Microsoft.Office.Interop' could not be found.
/home/VdXJyA/prog.vb (2,19) : Error VBNC30456: 'Office' is not a member of 'Global.Microsoft'.
/home/VdXJyA/prog.vb (2,19) : Warning VBNC40056: The import 'Microsoft.Office.Core.MsoTriState' could not be found.
2 errors, but compilation succeeded? Resolve
/home/VdXJyA/<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.6987940

Standard output is empty