Rimescolare le risposte

[capitan McAllister]

Salve a tutti è il mio primo post su questo forum. Volevo chiedervi se fosse possibile rimescolare le risposte di un test universitario (pdf) dove attualmente tutte le risposte sono A. Vorrei tutta via mantenere l'ordine delle discipline . Vi pregherei se fosse possibile di apiearmi passo passo le procedure. Il testo da randomizzare,se serve saperlo, è il test Humanitas 2018 (https://www.hunimed.eu/it/corsi/medicin ... i-al-test)

[Anthony47]

Il primo passo e' mettere domande e risposte in un file Excel, in modo da avere le domande e le risposte esattamente identificabili; su quel file si puo' tranquillamente ottenere un risultato buono, mentre il pdf non e' elaborabile.

Ciao

[capitan McAllister]

Ho provato a convertire il pdf in un file excel usando smallpdf, come risultato ho un file excel dove ogni foglio contiene una o due quesiti http://www.filedropper.com/imat2018huma ... -converted

[Anthony47]

Con questa macro accodi il contenuto di tutti i fogli sotto Table1

Codice: Seleziona tutto

Sub creatot()
Dim Shp As Shape, TLC As Long, I As Long
'
For I = 2 To Worksheets.Count
'If i > 6 Then Stop
    Sheets(I).Select
    lastr = GetLastR(Sheets(1).Range("A:J"))
    ActiveSheet.UsedRange.Copy Sheets(1).Range("A" & lastr + 2)
    For Each Shp In ActiveSheet.Shapes
        TLC = 0
        On Error Resume Next
            TLC = Shp.TopLeftCell.Row
        On Error GoTo 0
        If TLC > 0 Then
            Sheets(1).Shapes(Sheets(1).Shapes.Count).Delete
            Shp.Copy
            Sheets(1).Paste
            Sheets(1).Shapes(Sheets(1).Shapes.Count).Top = Sheets(1).Cells(lastr + 1 + TLC, 1).Top
            Sheets(1).Shapes(Sheets(1).Shapes.Count).Left = 10
            Sheets(1).Cells(lastr + 1 + TLC, 1).RowHeight = Shp.TopLeftCell.Height
        End If
    Next Shp
Next I
Sheets(1).Select
MsgBox ("Completato accodamento")
End Sub


Function GetLastR(ByRef myRan As Range) As Long
Dim Last
'
With myRan
  Set Last = .Find(What:="*", After:=.Cells(1, 1), SearchDirection:=xlPrevious, SearchOrder:=xlByRows, LookIn:=xlFormulas)
End With
If Last Is Nothing Then GetLastR = 1 Else GetLastR = Last.Row
End Function

Metti il codice in un "modulo standard del vba"; per questo, partendo da Excel:
-premi Alt-F11 per aprire l'editor delle macro
-Menu /Inserisci /Modulo
-Copia il codice e incollalo nel frame dx del modulo appena creato


Poi torna su Excel e lancia la macro CREATOT:
-premi Alt-F8
-seleziona CREATOT dall'elenco di macro disponibili
-premi Esegui
A questo punto i vari fogli dovrebbero aprirsi in sequenza e il contenuto copiato accodandolo al contenuto del primo foglio.

Controlla il file che cosi' ottieni, e fai in modo che la posizione delle domande sia identificabile da programma
Direi che questo dovrebbe corrispondere ad avere
1) in colonna A la sola lettera (A-E) e la relativa risposta in colonna B
2) le righe delle risposte contigue (senza righe vuote o spurie in mezzo tra una risposta e la successiva)

Quando hai questo file pronto allora pubblicalo e su di esso procederemo con lo shuffle delle risposte.

Ciao

[capitan McAllister]

I quesiti ora sono tutti contenuti in un unico foglio però non riescp a far corrispondere alla colonna A la lettera A e cosi via...

RISULTATO http://www.filedropper.com/imat2018huma ... onverted_1

[Anthony47]

Eh he, mi hai passato il risultato della mia macro...
Ora molte cose vanno fatte a mano; o le fai tu o le faccio io. Io pero' sono a corto sia di tempo che di pazienza.

Quindi... ti aspetto!