Modificare ordine risposte per studiare su domande

[mernin78]

Ciao a tutti, devo studiare da migliaia di domande dalle quali poi estrarranno quelle che ci verranno sottoposte. Purtroppo la risposta esatta è sempre la lettera A e non è possibile studiarci sopra.
Siccome ci vorrei studiare sopra con un po di criterio ma purtroppo la risposta esatta è sempre la A, mi aiutate a dargli una mescolata? esiste un modo?
ho provato a fare copia e incolla su excel ma mi mette tutto nella cella A così come è impaginato in pdf e poi dovrei fare tutto a mano e risulta impossibile per la mole di domande che ci sono.

ciao
Grazie
Marco

[ricky53]

Ciao,
prima di tutto benvenuto nel nostro forum.


Utilizza un convertitore (che puoi scaricare free dalla rete) da PDF ad excel e poi potrai lavorarci su come ti occorre.

[Anthony47]

Ciao merin79, benvenuto anche da parte mia.
Per mettere in excel il tuo file pdf potresti usare http://www.onlineocr.net (15 pag /ora gratuite;il risultato e' molto buono, ottimo se si considera il costo), come fece ahidai in questa discussione: viewtopic.php?f=26&t=94574

Ciao

[mernin78]

il file in pdf che è stato pubblicato è stato sicuramente fatto con word prechè in word si ritrasforma benissimo.
purtroppo le pag. sono 200 e le domande sono 3000 e dunque farlo a mano ci vuole un'eternità
per questo chiedevo aiuto, magari con qualche formula qualcuno riesce a farmelo in qualche minuto.

[mernin78]

sto provando come avete detto ma non so poi usare excel in modo da disporre su colonne diverse le domande dalle risposte in modo poi da spostare l'ordine delle stesse
non è che c'è qualcuno che mi da una mano, magari posto il file?

[Flash30005]

Ciao Mernin78, benvenuto anche da parte mia

prova a dare uno sguardo in questa discussione
modificando la macro la puoi adattare alle tue esigenze
http://www.pc-facile.com/forum/viewtopic.php?f=26&t=91746&p=524282#p524282

Ciao

[mernin78]

Sapessi cosa è una macro... Io ora ho un PDF
Mi dite i passaggi da seguire?

[ahidai]

Un ciao a tutti e buona Pasqua a tutti.
Scusate se mi intrometto nella discussione ma credo di aver capito il problema di mernin78.
Allora lui ha dei dati da: esempio “C1-C100; D1-D100; E1-E100; F1-F100” vorrebbe mescolare i dati di
C1 con D1 o E1 o F1;
D1 con C1 o E1 o F1;
E1 con C1 o D1 o F1;
F1 con C1 o D1 o E1 e così via C2 con D2 o E2 o F2 in modo casuale per tutte e 100 le righe.
In effetti una macro che inverte i vari dati .
Spero di essere stato chiaro.
Ciao.

[Anthony47]

Penso che il primo problema di mernin78 sia di portare in excel quello che ora ha in pdf; la sua preoccupazione e' che questa fase sia improba, trattandosi di migliaia di domande.
Mi pare che anche tu, AHIDAI, ti sei trovato in quella condizione, quindi gli puo' essere qualche tuo consiglio su come affrontare una fase preliminare che gli sembra insuperabile.

Una volta ottenuto il file excel andremo a mescolare le risposte, come e' stato fatto gia' in varie discussioni.

Serene feste a tutti

[wallace&gromit]

ciao a tutti,
io ritornerei all'affermazione di mernin secondo cui la trasformazione in word funziona bene.
In questo caso propongo un "seleziona tutto" in pdf, copia / incolla in un file di testo .txt e successiva apertura direttamente da excel, impostando lì i criteri per la suddivisione delle colonne.
In teoria dovrebbe essere un'operazione piuttosto rapida a prescindere dal numero di pagine.

[mernin78]

posso postare il file in questione con le domande in pdf?
https://rapidshare.com/files/3098195809/Domande.pdf

[ricky53]

Ciao,
Wallace: non può essere fatto come hai proposto perchè Acrobat (almeno con la versione 9 che ho io) non consente di fare copia/incolla e si ottiene un errore "Errore durante la copia negli appunti. Si è verificato un errore interno".

Ecco il file in formato EXCEL
Per ottenerlo basta:
aprire il file PDF
e poi
File,
Salva come testo
e togliere i caratteri di salto pagine e le righe vuote.

Adesso ci si deve lavorare su (con una macro scritta ad hoc) per ottenere un file in modo da poter estrarre 80 domande.

Prima di procedere occorre sapere quante domande devono essere estratte per ogni materia.

Buona Pasqua.

[scossa]

Ciao,
Wallace: non può essere fatto come hai proposto perchè Acrobat (almeno con la versione 9 che ho io) non consente di fare copia/incolla e si ottiene un errore "Errore durante la copia negli appunti. Si è verificato un errore interno".

Ecco il file in formato EXCEL

Ciao Ricky,

rispondo anche qua.

Avendo già realizzato un lavoro simile, non ho impigato molto ad adattare il tuo file coi nuovi quiz al mio lavoro.
Questo il file:
http://www.wikiupload.com/T4S7KGU58AKVVX7

Se interessa questo il codice che ho utilizzato per "normalizzare" il file che avevi postato (ripulito degli errori e degli spazi in coda al testo) (come si mette il tag codice????):

Codice: Seleziona tutto

    '---------------------------------------------------------------------------------------
    ' Procedure : Elabora
    ' Author    : scossa
    ' Date      : 09/04/2012
    ' Purpose   :
    '---------------------------------------------------------------------------------------
    '
    Public Sub Elabora()

      Dim wb As Workbook
      Dim ws As Worksheet
      Dim rng As Range
      Dim rngSunto As Range
      Dim cellaFr As Range
      Dim cellaTo As Range
      Dim nNewRow As Long
      Dim sNumQuiz As String
      Dim sMateria As String
      Dim sDomanda As String
      Dim nQuiz As Integer
      Dim nRisp As Integer
      Dim nStart As Double

      On Error GoTo Elabora_Error

      Application.ScreenUpdating = False
      nStart = Timer
      Set wb = ThisWorkbook
      Set ws = wb.ActiveSheet
      Set rngSunto = wb.Worksheets("Sunto").Range("A3:A10")
      Set rng = ws.Range("A1").CurrentRegion
      nNewRow = 1
      Set cellaTo = ws.Cells(nNewRow, 3)
      For Each cellaFr In rng
       
        With cellaFr
          sNumQuiz = Left(.Text, 5)
          If Application.CountIf(rngSunto, .Value) > 0 Then
            nRisp = 0
            'nNewRow = nNewRow + 1
            sMateria = .Value
            cellaTo.Offset(1, 0).Value = sMateria
            'nNewRow = nNewRow + 1
          ElseIf Len(sNumQuiz) = 5 And IsNumeric(sNumQuiz) Then
            nRisp = 0
            nNewRow = nNewRow + 1
            Set cellaTo = ws.Cells(nNewRow, 3)
            nQuiz = CInt(sNumQuiz)
            cellaTo.Offset(0, 1).Value = nQuiz
            sDomanda = Mid(.Text, 7)
            cellaTo.Offset(0, 2).Value = sDomanda
          ElseIf InStr(1, "A);B);C);D)", Left(.Text, 2), vbTextCompare) > 0 Then
           
            Select Case Left(.Text, 2)
              Case "A)"
                cellaTo.Offset(0, 3) = Mid(.Text, 4)
                nRisp = 3
              Case "B)"
                cellaTo.Offset(0, 4) = Mid(.Text, 4)
                nRisp = 4
              Case "C)"
                cellaTo.Offset(0, 5) = Mid(.Text, 4)
                nRisp = 5
              Case "D)"
                cellaTo.Offset(0, 6) = Mid(.Text, 4)
                nRisp = 6
            End Select
              cellaTo.Offset(0, 7) = "A"
          Else
            If nRisp > 0 Then
              cellaTo.Offset(0, nRisp).Value = cellaTo.Offset(0, nRisp).Value & " " & .Text
            Else
              sDomanda = sDomanda & " " & .Text
              cellaTo.Offset(0, 2).Value = sDomanda
            End If
          End If
         
        End With
      Next cellaFr

      On Error GoTo 0
      'Exit Sub

    Elabora_Error:
      If Err.Number <> 0 Then
        MsgBox "Error " & Err.Number & " (" & Err.Description & _
        ") in procedure Elabora of Modulo Modulo1"
      Else
        MsgBox Timer - nStart
      End If
      Application.ScreenUpdating = True
      Set rng = Nothing
      Set rngSunto = Nothing
      Set ws = Nothing
      Set wb = Nothing
     

    End Sub


Questo il codice per mescolare le risposte:

Codice: Seleziona tutto

    '---------------------------------------------------------------------------------------
    ' Procedure : Mescola
    ' Author    : Marco Manfredi
    ' Date      : 09/04/2012
    ' Purpose   :
    '---------------------------------------------------------------------------------------
    '
    Public Sub Mescola()

      Dim wb As Workbook
      Dim ws As Worksheet
      Dim rng As Range
      Dim rngFr As Range
      Dim rngTo As Range
      Dim nRows As Integer
      Dim nRisp As Integer
      Dim nStart As Double
      Dim aRisp() As Variant
      Dim j As Long
      On Error GoTo Mescola_Error
     
      Application.ScreenUpdating = False
      nStart = Timer
     
      Set wb = ThisWorkbook
      Set ws = wb.Worksheets("Domande")
      Set rngFr = ws.Range("C1").CurrentRegion
      Set rngTo = ws.Range("L1")
      aRisp = Array("A", "B", "C", "D")
      rngFr.Copy rngTo
      nRows = rngFr.Rows.Count
      Set rngFr = Intersect(ws.Range("C1").CurrentRegion, ws.Range("F:J"))
      Set rngTo = Intersect(ws.Range("L1").CurrentRegion, ws.Range("O:S"))
      For j = 2 To nRows
        nRisp = RndBtwn(1, 4)
        rngTo(j, nRisp) = rngFr(j, 1)
        rngTo(j, 5) = Application.Index(aRisp, nRisp)
        rngTo(j, 1) = rngFr(j, nRisp)
      Next j
      On Error GoTo 0
      'Exit Sub

    Mescola_Error:
      Application.ScreenUpdating = True
      If Err.Number <> 0 Then
        MsgBox "Error " & Err.Number & " (" & Err.Description & _
        ") in procedure Mescola of Modulo Modulo1"
      Else
        MsgBox Timer - nStart
      End If

      Set rngFr = Nothing
      Set rngTo = Nothing
      Set ws = Nothing
      Set wb = Nothing


    End Sub

    Function RndBtwn(Lower As Integer, Higher As Integer)
        RndBtwn = CInt(Rnd * (Higher - Lower) + Lower)
    End Function


Un saluto a tutti.

[mernin78]

Ringrazio tanto Ricky e Scossa per il tempo dedicatomi.
Purtroppo ho dei problemi nel file
mi esce Rif# nelle materie diverse da italiano e geografia
come si fa poi a far uscire le 80 domande divise nella %?
Marco

[scossa]

Ringrazio tanto Ricky e Scossa per il tempo dedicatomi.
Purtroppo ho dei problemi nel file
mi esce Rif# nelle materie diverse da italiano e geografia
come si fa poi a far uscire le 80 domande divise nella %?
Marco

Era un problema nei nomi dei fogli (materie) che avevno gli spazi.
Li ho eliminati ed ora è ok:

http://www.wikiupload.com/L40FHTVLYG9X3Q3

[mernin78]

Ma le domande le devo fare materia per materia o è programmato per mettermente una certa percentuale di ogni tipo??

ANcora, se voglio mescolarle, il codice dove devo metterlo??
Grazie ancora.

Marco

[scossa]

Ma le domande le devo fare materia per materia o è programmato per mettermente una certa percentuale di ogni tipo??

ANcora, se voglio mescolarle, il codice dove devo metterlo??
Grazie ancora.

Marco

Le risposte sono già mescolate (non è sempre la A), le domande si mesoclano ogni volta che selezioni la materia e che clicchi su "Ricomincia".

Se non vuoi la divisione per materia puoi fare un nuovo folgio (chiamalo "MISTE") in cui incollerai tutte le domande dei singoli fogli.
Verranno mescolate ogni volta che clicki su "RICOMINCIA".

[mernin78]

scusa se ti disturbo ancora
alla fine, se mi accorgo che ho commesso un errore che ne so, alla 5 domanda, come posso vedere quale era il testo di questa 5 domanda?

[scossa]

Ma le domande le devo fare materia per materia o è programmato per mettermente una certa percentuale di ogni tipo??

ANcora, se voglio mescolarle, il codice dove devo metterlo??
Grazie ancora.

Marco

Le risposte sono già mescolate (non è sempre la A), le domande si mesoclano ogni volta che selezioni la materia e che clicchi su "Ricomincia".

Se non vuoi la divisione per materia puoi fare un nuovo folgio (chiamalo "MISTE") in cui incollerai tutte le domande dei singoli fogli.
Verranno mescolate ogni volta che clicki su "RICOMINCIA".

Qui il file con aggiunt il foglio "miscellanea" con tutte le materie insieme:

http://www.wikiupload.com/L0ZGYYTXPBAH61T

[scossa]

scusa se ti disturbo ancora
alla fine, se mi accorgo che ho commesso un errore che ne so, alla 5 domanda, come posso vedere quale era il testo di questa 5 domanda?

Basta che scrivi il numero della domanda nella apposita cella (B4).