ࡱ> 8:7>%`  bjbjٕ .@ @ @ @ @ @ @ T > > T o6 w w w ]555555$8hw:P6@ w w w w w 6@ @ )6 w @ @  w  r;h@ @  ? C ?60o6V: ::@ xw w w w w w w 66 w w w o6w w w w T T T $x $T T T x T T T @ @ @ @ @ @  hMi hahagda21h:p|/ =!"#$% !@@@ NormalCJ_HaJmH sH tH NA@N Fuente de prrafo predeter.RiR  Tabla normal4 l4a ,k, Sin listazOz O|, AnswerWeightJ5@B*CJEHKHOJQJaJehfHphq r`O` l BlankWord55OJQJehfHmH q rsH ROR VBeFeedback 7^7B*CJOJQJmH phsH HObH VBeLeftPair ^CJOJQJmH sH XOBX lMultipleChoiceQ & Fx@& 5OJQJXOBX l WrongAnswer & FxB*CJOJQJaJphLOARL l RightAnswer  & FB* mH phsH bO"b VBe RightPair!$q-DM ^qa$CJOJQJmH sH <O1R< 3a ShortAnswerQmH sH <O1< 3a MissingWordQmH sH 6O1"6 3a MatchingQmH sH HO1H 3aTrueStatementB* mH phsH JO1J 3aFalseStatementB*mH phsH 8O1R8 3a NumericalQmH sH D'D ARef. de comentarioCJaJDD ATexto comentarioCJaJLjL AAsunto del comentario5\LL ATexto de globo CJOJQJ^JaJ00x 8@0(  B S  ?0rF %1\B k9]4XX6Hs5fh hh^h`hH.hP^`Po(hH..h^`o(hH...hx^`xo(hH.... h ^`o(hH ..... h X@ ^ `Xo(hH ...... h ^ `o(hH....... h8x^`8o(hH........ h`H^``o(hH......... hh^h`OJQJo(o^`OJQJ^Jo(hHopp^p`OJQJo(hH@ @ ^@ `OJQJo(hH^`OJQJ^Jo(hHo^`OJQJo(hH^`OJQJo(hH^`OJQJ^Jo(hHoPP^P`OJQJo(hHh hh^h`hH.hP^`Po(hH..h^`o(hH...hx^`xo(hH.... h ^`o(hH ..... h X@ ^ `Xo(hH ...... h ^ `o(hH....... h8x^`8o(hH........ h`H^``o(hH.........h hh^h`OJQJo(oh pp^p`OJQJo(oh @ @ ^@ `OJQJo(h ^`OJQJo(h ^`OJQJo(oh ^`OJQJo(h ^`OJQJo(h PP^P`OJQJo(oh   ^ `OJQJo(9]Hs%19]0r^<                B["F3a,y_O|,k9LKO[VBel}4|Ti/) a^.0A1vV44V44V44V 44V4V 44V44V44V44V 44V 44V 44V 44V 44 MoodleMoodle\|+\|+\|+\|+\|+0(  DeclaracinAdd True StatementGIFT.AddTrueStatement(( @ʀʀʀʀʀπҀҀрˀʀʀʀʀ@ʀʀʀKK !!..ʀʀ|||ʀʀ99||33ʀʀ˽||Ѿʀʀz**[[zqqʀʀ99{}ppȬ{ ʀʀ|$$|~ʀʀƟ{pp||>>ʀʀ..}{RR{ŭʀʀyz{‘²xyTT΀ʀ2222HHƸSS2222bb΀ʀʀʀʀ@ʀʀʀʀʀʀʀʀʀʀʀʀʀʀ@p((  DeclaracinAdd False StatementGIFT.AddFalseStatement( p((  De SeleccinAdd Matching QGIFT.AddMatchingQ( Preg NumricaAdd Numerical QGIFT.AddNumericalQ( De Respuesta CortaAdd Short Answer QGIFT.AddShortAnswerQ( Palabra faltanteAdd Missing Word QGIFT.AddMissingWordQ1( BlankMark Blank WordGIFT.MarkBlankWord(wwwwwwzzz z z z z z zz p(p( Selecc mltipleAdd Multiple Choice QGIFT.AddMultipleChoiceQ(     𪪪 𪪪p(w7?????(  Cambio V/FMark True AnswerGIFT.MarkTrueAnswer(( @ɀπʀʀʀʀʀɀπــπɀʀ@Ľddccļʀŀ888|||ʼջʀπ666ɼCCVVπʀ555ɼ ppЀʀ333ɼπʀ333ʼ--;;__ʀ11133++$$NNʀ111πʀµHH99001½½½ɀʀxtWW000ʀˀ;;!!ź000ʀ΀OO||z111ʀӀqqxî~AA000̀р%%&&444Ѐ@ɳ˺̀̀Dzǀ̀ʀʀʀӀ}@p(( PesosSet Answer WeightsGIFT.SetAnswerWeightsh( Pesos(Remove Answer Weights from The Selection(GIFT.RemoveAnswerWeightsFromTheSelection( p(?(  Retroalim.Add Question FeedbackGIFT.AddQuestionFeedback( PrepararprepararNewMacros.preparar`@( ExportarExport to GIFTGIFT.ExportToGIFTProject.GIFT.AddFalseStatementProject.GIFT.AddMatchingQProject.GIFT.AddMissingWordQProject.GIFT.AddMultipleChoiceQProject.GIFT.AddNumericalQ Project.GIFT.AddQuestionFeedbackProject.GIFT.AddShortAnswerQProject.GIFT.AddTrueStatementProject.GIFT.ExportToGIFTProject.GIFT.MarkBlankWordProject.GIFT.MarkTrueAnswer0Project.GIFT.RemoveAnswerWeightsFromTheSelectionProject.GIFT.SetAnswerWeightsProject.NewMacros.prepararPROJECT.GIFT.ADDMATCHINGQPROJECT.GIFT.EXPORTTOGIFTPROJECT.GIFT.ADDNUMERICALQPROJECT.GIFT.MARKBLANKWORDPROJECT.NEWMACROS.PREPARARPROJECT.GIFT.MARKTRUEANSWERPROJECT.GIFT.ADDMISSINGWORDQPROJECT.GIFT.ADDSHORTANSWERQPROJECT.GIFT.ADDTRUESTATEMENT PROJECT.GIFT.SETANSWERWEIGHTS PROJECT.GIFT.ADDFALSESTATEMENT PROJECT.GIFT.ADDMULTIPLECHOICEQ PROJECT.GIFT.ADDQUESTIONFEEDBACK0PROJECT.GIFT.REMOVEANSWERWEIGHTSFROMTHESELECTION@D0`@UnknownGz Times New Roman5Symbol3& z Arial7&  Verdana5& zaTahoma?5 z Courier New;Wingdings"hT1Ixr4d)n2qHP)?1v2Clemente CorreaWolf    Oh+'0 $ D P \ht|Clemente CorreaPlantilla_Moodle.dotWolf28Microsoft Office Word@f`@@.@r՜.+,0 hp  HYCIG'  Ttulo  !"#$%&()*+,-.01234569=<@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~Root Entry F#;1Table CWordDocument.SummaryInformation('DocumentSummaryInformation8/MacrosVBA dir@  !"#$%&()+-./0123456789:;<=>@ABCDEFHJ<0* pHdProjectQ(@= l Q* J< rstdole>stdolePh%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\system32\e2.tlb#OLE Automation`EOfficEOficEE2DF8D04C-5BFA-101B-BDE5EAAC 42EArchivos de programa\ comunes\Microsoft Shared\OFFICE11\MSO.0DLL#S 1@1.0 Ob LibraryPEwThisDocumentGTisD\cumU:n` 2 QHB1{B,!J"B+BBGIFTG@GIFT27XB!B @NewMaWG9wMa@vr>s 2 O %O I rU~~{  aStyletext  aRange startPointendPoint rightScore wrongScoreScore $# $Macro grabada el 16/03/2012 por WolfProject.NewMacros.testProject.NewMacros.espacios6rU $GIFT  ?h__SRP_0__SRP_1 y__SRP_2&T<9>1wBxME`@ 0L> LL*LL*LLLLLLH@XHD8hHH0xHJ`HNHFeedbackN AnswerWeight Q P`k$$g p `>@h @X @H + `!kX ::I x I! @h + `  ) %  `4,kX  id x ) %  `6k  "i   `.,k@  -id ` ) % 0 `,J  7id  I  )( %  `JHHC@l @\ @L @ < `J x` P)p%  `J) %I I   `J`I" )%HH(hH$xH(H.H MatchingQuLeftPair RightPairerTrueStatemente {}<HB`HFpHLXH8hHFalseStatement ShortAnswerQ NumericalQ MissingWordQt BlankWordementPreguntas_Moodle_u9Copyright 2004 SoberIT, Helsinki University of Technologyaltan{T}{F}=#~ -> ~%# `@7x @7h @X @7H @D @4 @0`7@8 @ 88~@x @* XXxQ**\R1*#d4$*\Rffff*0V45d49f05*\R1*#129*\R1*#d7*\R1*#be*\R1*#d6*\R1*#b5*\R1*#d4*\R0*#e*\R0*#f*\R0*#12*\R1*#43*\R1*#124*\R1*#123*\R1*#60*\R0*#14*\R0*#1*\R1*#c6*\R1*#c1*\R1*#a4*\R1*#1e*\R1*#c6*\R1*#c1*\R1*#17bg > &> ; \? \= `< b? X; ; `P= ,;  < d ? b> dx> f< ^(< ;  & 2@ x ^ V 08 h $p $   , 0 @P  Z   B ` h fx > N  >p  ,Hh * &8X &x $ &D  >8 2x > &  @ F` >  > H X h x       > "(  80 'h f2PB*      0 8 @ Fx  8H      )  *T 8 @ H J3AP X F` " V$F > " |$D @" HjEP BX"F$XE "  F " Hl]AH4B PX 6`"z$C 8"|$ D " >80A@8Xhp :x " %%"0 8H PX Z` X ^ Vx "30q 0q0 0q` 0q 0q \ `"  x8 ."   :  "`B  +"     ((0 HX `(h     F F 8H"  * D   >-X  p 0  p  2'` P + & :<0  p      p  '0   H!Ph x  :<     $  0   8 @.` x 5  (   .0 H 5h  .   4 ( 0 H *P.     *.  &( P.h  $   $Z ,  P` p!       :B        (  8 @  H `P ` @h !  0 "  !!! !0!8!@!P!X! `! :!B! !  !D ! 0" 8"  >@"-"  "" 0" $6" p #   ###.# #  #  $ '$  p($   $$$.$$ %  '%  ((% .H% x%  %  %,F% % )%&  $ &8|H& S&& .&  & && 2& 40'B h'p'+x' '' 8( 0%P(  2("(  ( ( 4+PC  ((  ) )  ()"H)"`)  x) ) ) <X@  * H * h* x* <@  ** +"+ (+ 8+ f3)  H+P+  X+  x++ +hI* , ,  &(, P,X, L`,B  , ,  ,,- "(- P- f`- --- L-" @. H. P. X.!h.. . :." .9..//"/ 0/ 8/ H@/" /2/ / //!/00 00"  @0 H0$P0 h0!p00 0 000 <0"* 0(1 >H1W`1 1 171  `1  2 Z02:YP2 2 A2 $2 222 2 3 3`3 3 (3 203 >h33 A33 3  &3W34 474W84 X4`4 +h4  4 4 2344 ,4 ,5 J(5 x5  555^<+ P5 $6  6 6  6  (6  06  86 [@6H6P6X6 `6" 6 B6P6 6 77 >7 X7h7p7 x7"  7 07   7 7 788X8 p8 x8 8 *88 8888 9"  9 >(9h9 99 09&9  9&:  (:@: H: X: F`:"  : :!::(9: ; D ; h; x; (G GIFT Converter Version 0.8, Updated 8.10.2004+ Author: Mikko Rusama (mikko.rusama@iki.fi)W A macro for converting a Word document with questions to the native GIFT questionnaireRDP format supported by Moodle (www.moodle.org). Questions are defined as different* Word styles; style definitions are below. Supported question types are: 1. Multiple Choice Question 2. Matching Question 3. Short Answer Question% 4. True-False Question (statements) 5. Numerical Question: 6. Missing Word Question (only 1 right answer supported)T Question feedback is also supported as well as weighted answers for Multiple Choice Questions.; Copyright 2004- SoberIT, Helsinki University of Technology Changes:_ 8.10.2004 Fixed decimal converter bug. Bug replaced commas with dots in the question choices.8********************************************************H Style definitions. The styles defined below are used in the conversion.8******************************************************** General purpose styles.]Feedback] AnswerWeight]Normal% Styles for multiple choice questions]MultipleChoiceQ] RightAnswer(] WrongAnswerP# Styles for matching pair questions] MatchingQ ]LeftPairx] RightPairH Styles for true-false questions]TrueStatement]FalseStatement Style for short answer question] ShortAnswerQp Style for numerical question] NumericalQ Style for missing word question] BlankWord8********************************************************+ General constants and variable definitions8******************************************************** saves the current question type]@ Prefix for the filename]Preguntas_Moodle_]9Copyright 2004 SoberIT, Helsinki University of Technologyh8******************************************************** GIFT question tags8********************************************************] {]}]{T}]{F}]=]#8]~] -> 0]~%`]#X8 Main method. Converts the Word document to GIFT format.1Make sure the document is saved before continuing R!T=Convirtiendo a formato GIFT para Moodle. Espere, por favor...'d ^$\.Z Z(` Cancel pressed -> Exit Z!b  StatusBar = "Not saved"|kkx2 Before conversion, document is checked for errors fA@h make the conversionA@j remove all styles Save the document in text ^$\ l9 8 Zyyyymmdd$.txt9C@bq8d0ko? Add Multiple Choice Question to the end of the active documentoH8 Add Matching Question to the end of the active document o9 Add Numerical Question to the end of the active document`oH< Add Short Answer Question to the end of the active documento Add Missing Word Questiono8 Add feedback   ~!!  ~!!  ~!! "dhko0 Add a true statement of the true-false questionoP1 Add a false statement of the true-false questiono Marks the right answer ~!! "  ~!( ~!! e " ~!(kHo@4 Add a new paragraph with a specified style and text Inserted text is selected  R!.   C@C@ C@ 9 dC@C@Hq` oX S Special Characters ~ = # { } control the operation of the Moodle's GIFT filter andR cannot be used as a normal text within questions. However, if you want to use oneX of these characters, for example to show a mathematical formula in a question, you needP to escape the control characters, i.e. putting a backslash (\) before a control character. R!! ~\~ C@ =\= C@ #\# C@ {\{ C@ }\} C@q o U Moodle requires a dot (.) as a decimal separator. Thus, all comma separators need to be converted.,.  !B@o( Remove all formatting from the documentH ~B@ ~B@o4 Count the number of paragraphs having the specified style in the defined range](   R%. !'store end point' !C@9d5(d9 99 7b !  xXdP  ') Increment Counter.k q 'i? Checks every paragraph in the document and defines Moodle tags@ accordingly. Empty paragraphs are deleted as well as paragraphs2 that are specified with an unknown/illegal style.@]A@ escape all special characters'7 indicates whether the question end point should be set7 Check each paragraph at a time and specify needed tags  R! Delete empty paragraphs !  !B@ delete all empty paragraphsQuestion style found   !!!  !!! $ !!! 0 !!! .e !!!'66 Save the question type I A new question has been found, the previous question need to be "closed" G !!A@j  Add start of question comments // Start of question:  6  !B@ !!'' < !A@ True statement found   !!! * !!! , !!! 2 !!! 4e !!!'6  !!A@ !!'k8 // Start of question:  6  !B@ 6 * @ !A@ 6 ,e B !A@ 6 2e !A@k' Wrong answer found !!! "e  Weighted answer found  !$ L !A@d no answer weights are specified H !A@k Right answer found !!! e  Weighted answer found  !$ L !A@ ' Answer of the numerical question found 6 0e F !A@ - Answer of the multiple choice question foundd D !A@kh# left pair of the matching question !!! &e D !A@ J !A@$ right pair of the matching question !!! (e Do nothing para.Range.Style = STYLE_NORMAL Question feedback !!! e N !A@d Delete all undefined styles !B@k Check if the end of document !! R!! % Make sure the last line is not empty !  !B@ e !!A@kk o3 Check if the specified style is found in the range !C@9d5(d9 99 C@qP:MsgBox "Style: " & aStyle & " Found: " & aRange.Find.Found !!'i* Removes answer weights from the selectionP ~!C@ 99d5(d99 C@q`oX Checks the questionnaire.3 Returns true if everyhing is fine, otherwise false] ''7 indicates whether the question end point should be set''67 Check each paragraph at a time and specify needed tags  R! Check if empty paragraph !  !B@ delete all empty paragraphs 6G !!!'6j  !!!  !!! $ !!! 0 !!! .e  !!'  $' Gyj. Exit if error is foundk !!'' !!!'6  !!! * !!! , !!! 2 !!! 4e  !!'  $' Gyj. Exit if error is found !!'k !!!'6  !!$' Gyj* Exit if error is found !!' NOT_KNOWN'6'  !!!  6 0e  Exit if error is found !$Gzjk Check if the end of document !! R!!  !!  R!!$'k Gyj& Exit if error is found  'fi, Checks whether the chosen question is valid. Returns true if the question is OK, otherwise ]   R%.aRange.SelectMsgBox "See Range for specifying question type." & questionType & vbCr & ' "Start: " & startPoint & " End: " & endPoint' no errors  6  6 0 6 ., Check that there are right anwers specified   $'  B@H'k MATCHING QUESTION 6 $e Count the number of pairs (  $' &  $' Too few pairs  B@HNDebe de haber exctamente una respuesta especfica como una palabra en blanco. XError!A@V 'A Error -> the number of left and right pairs is different or zero  e B@HTipo de pregunta indefinida: 6 Illegal question deleted. XError!A@V'kP 6 2e 4  $'  B@H'k 6 * 6 ,e UNDEFINED QUESTION TYPEdX B@HPonga el cursor en la pregunta de Opcin mltiple XError!A@VA@ B@k MsgBox questionType & "=" & isOk 'iE Check the numeric answer. Note, not checking all valid GIFT formats. ' By default OK& Search for the error margin separator: !B@ !! $ B@H!Is this a right numerical answer? Your answer:   Error?$V'  G'jkiF Inserts text before the specified range. A new paragraph is inserted.   9 dC@ C@qho`3 Inserts text having trailing VbCr before the range   R%.   >C@ 9 C@q o B Inserts text at the end of the paragraph before the trailing VbCr ! (  insert text before cr  dC@ 9 C@q o ) Inserts text at the end of the paragraph    C@C@ C@ 9 dC@C@Hq@ o8 5 Set the answer weights of multiple choice questions.0  aStyle, startPoint, endPoint)]p    ~!!  ~%!!'''   ~B@   ~!!  ~!! " ~!!  ~!! b Delete empty paragraphs ~%!  ~%!B@5 delete all empty paragraphs  Remove old answer weights ~!! e ~!C@ 99d5(d99 C@qk , Count the number of right and wrong answers ~!!   ' ~!! "e  ' k0 ~%!! R!! ~%!!'xd  ~B@  ~%!!'k   R%.  B@HNo right answer specified. XError!A@Vd % Calculate the right and wrong scoresd $' D MODIFY the default scoring principle for wrong answers if necessary '   A@kHd@J Find the previous paragraph having the style of multiple choice question. ~!C@9d 9999C@q(k o Marks the blank word  ~%! ~%! R%. ~%! 4 B@H ~B@d`7RTrim(ActiveDocument.Words(1)).Style = STYLE_BLANK_WORD 4 (ko Find all the*Set aRange = Selection.Paragraphs(1).RangeActiveDocument.Content !' !C@ 49 7 ~!!   R!! ~!!b5{=C@}C@# .Move Unit:=wdParagraph, Count:=1 C@qqox Insert answer weightsx7 Check each paragraph at a time and specify needed tags  ! Check if empty paragraph !  !B@ delete all empty paragraphs !! e  !A@  !! "e  !A@ k0 o@ Inserts text at the end of the chapter before the trailing VbCr  !' "%'$ $ B@   $ R%.&  &(=Moodle requires that the decimal separator is dot, not comma. &A@o?& substantial portions of the Software.rmisQ to whom the Software is furnished to do so, subject to the following conditions:X OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.G _ DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,Z without restriction, including without limitation the rights to use, copy, modify, merge,Y The above copyright notice and this permission notice shall be included in all copies orV software and associated documentation files (the "Software"), to deal in the Software NON[ BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE ANDto who] NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,are  The MIT License Copyright (c) 2005 Mikko Rusama^ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING, inU Permission is hereby granted, free of charge, to any person obtaining a copy of thisicen[ publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons do so ;1Error, los pares no estn definidos correctamente (There must be atleast 3 mathching pairs. XError!A@V1Error, los pares no estn definidos correctamente 3Los pares de la izquierda y derecha no son iguales. XError!A@VD2Por favor, corrija los errores antes de convertir. nErrorA@VDDInserte la retroalimentacin de su seleccin previa o responda aqu.  ~%!A@ de D3Por favor, guarde su documento antes de continuar! XConvertidor GIFT. :A@V'Feedback is choice or answer specific. @Por favor, ponga el cursor en la parte derecha de la respuesta.  XA@VE%Error, no hay una respuesta definida. XA@VE *kPregunta VERDADERA-FALSA: inserte una declaracin VERDADERA aqu (Ej: Guadalajara es la capital de Jalisco)A@rxEE ,mPregunta VERDADERA-FALSA: inserte una declaracin FALSA aqu (Ej: En Guadalajara son comunes los osos polaresA@rEF] MissingWordQP8F $nInserte la pregunta de relacin aqu. Ej: Relacione los siguientes Estados con sus correspondientes capitales.A@rE .7Inserte una pregunta corta aqu Ej: Qu significa Jal?A@ri@F 0[Inserte una pregunta numrica aqu. Ej: Cul es la poblacin de Guadalajara (en millones)?A@rF 2Inserte una pregunta con palabra(s) en blanco aqu. Recuerde seleccionar la(s) palabra(s) que quiere en blanco y dar clic en el botn BLANK!A@rF HInserte la pregunta de Opcin mltiple aqu. Ej: Son Montaas de MxicoA@rFAttribute VB_Name = "GIFT" ' The MIT Li censeHCopyright (c) 2005 Mikko R`usamaDJPermission is hereby granted, free of charge, to any pers0obtaining a cm)thisWsof tware/d associaR documentatrfiles (t"S1")gdeal 8in ,without re*sc#,cl udDlimi2 s_uscV, modifyen.publish, dic., s ,f/or sellyi^Q4Awhom ifurn:eddo soa:ject.f ollow8condiA=s:@,-~abovea|not@_AdA!ysha0beN[F5r>sticporye Ee. THE SOFTWARE IS PROVIDED "AS", WITHOUT @RANTY OF ANY KIND, EXPRESS OR I MPLIEINCLUDINGBNOITO DIEF MERCHABILITY, FITNFA PARTICULAR PURPPOSE@ DAN@ONINFREMENT. IN@ NO EV SHALLBAU0RB)COPYRIGHT HOLDEBE LI`ABLE B6C LAIM,DAMAG(R O-RB (WHEAN ACTIONGCONTR, TORT!#BWISE, ARIS FRO# 'A+ *'N @NE? .b3@ U@DEAL @5N;a Co@nverteCVx0.8, Upd|8.10.%4aAuur: (m.r@iki.fi) macro< fl ]a^a PWord | qu@zdn`nair¡ matypX]Moodle @(www.mb.org). QF AAdefin asff`ntbsty`; Bs Abev%(Sue typ@ y 1. Multip8ChoAxE 2aatcha" 3. Shs An0swer4. True-FaHlseF ( {t es/ 5. Nric} >6@ (only 1 ruas:feedback@F"+w {. sA" s,GP- berIT, Helsinki Uni!`JsityTechnology ! Change " &Y Fixdecim #R,bug. Bug replac`comm!ԠUts½>c:! !'*2 S'9't#)s0 2((us4uS O/**" Generpuxrpo &pBst STYLE_FEEDBACKqFt )ANSWERWE2U, We NORMALNorP;#m4#B 9MULTIPLECHOICEQ&8Q__ R WRONGWrong u=pair 3MATCH@Zc  LEFT_PAIR LeftPO HG" Tl ztCfC5, TRUESTATRs;!FSE|FA|LSBIb?sRMESHqrPcnN Q*NUICALߢPPwiMISzWORzDM#TTIB`LANK_Blanka 7w9'9>s2variab@f?j? s avlaxcurr6,Bn Dim&T`o As SI ngCDPr`vx7BQn`εFIc0DFIX!gu`s_C|_#w0D;a/a/a$a! tag?Q/TAG_Q7 _p7`P { _END};_N{T2:FP=f4O#zQ~N_ARROWa -> rbED(~%)gEAM mepd.`s7'slSub ExTo(Ѝ  Q'Make?Х+e1d be!ntinusIf A@HveD.S4dӚnз MsgBox "Por favor, guarde su documento antes Tcontin!", _ vbExclamation, "ConvertidGIFT. " & COP@YRIGHT@Set saveDialog = !s(wd FileS As)51.AddToMru:True#' Cancel pressed -> Exit If=.Show"0 Thenr' Stat usBar"N2oYd" . Sub End If *iend for o  para Moodle. Espere, p...D!+' Bee ڀs is check@D errorsDCQuesrnaire@<VE' GzTo*' make thI   RemoveF:g ' r all style&@c5n texavWith㒂$. :wdT NamCFILE_PREFIX! (Date"ymmdd")".txt @+CElsHcorrija losnI Br.@vbCr@iticalEgAyD"Q !U ' i Multiple Choice A `#A:S ofB/activef gaE#Q(v PXgraphOfBS!; STY)MULTIPLEC@HOICEQIns`e laaw guntaaOpcin mdaquaj: SoncaMxico/atching_Pd_MAT CHINGre,laRBon@;sigui Of Unit:=Zw'*,ݰdAMp , CoЧ:=1ef3.1JSpec`cbs ~pi# { }܀blR.o='sfilQcanno@t be uQ as a normal text within questions. However, if you want to use one ' of thecharacters, for example\sho2wmaRicDmula p ar,eneedZhescapChe control gi.e. putting`backslash (\) bzece9R<. Private Sub E3 C1Cd() W ActiveDocum0ent.FinV.Exe,cu* T:="~", Replace$\ _-Ft:= False:=wdAll6=6 6[#O4[{OrZ[}OrEnd2 | A !Moodre quiredo@t (.) Bdeciseptor. Thu alommar s ʀbȀted DSE(ByV@qaRange As d^.XL,%. $YY"RemovuAaczfrom dnvauSeleuon.@WholeS(y>'ClearG4CouAhe number1graphs havA sp*fiCsty@;`!defined r+ Funb b S!sIn B.(a, startPoint, end")!3Integer8DimSet d8= S := /:=F ) =D .3 's@'eA pca#@"= 0]EaFm ..- .= ""$b@6wardTru@І B(( <Do Whi5[(W;g`Fp)nIfI$>4@tenGeExit Do= E`O*%+ 1' Incre!#Ger{% !5IfG Loop#aA4/PtG0*#KCheu yy f0{r.9 &aOC/s TNtagsIaccord03ly. Em ptx Pre d0;KAPweP@P7!thap.7P unknown/illegMb8?P1PToGIFTB41OfQǤ7set8?CC_ ' t!\ 0 wx0tcwher"Ru:b uld cto'  ea ch tim0Y`3yf Mc` r 5 E*HP@lCS' D e!'P7 .MvbCr_7 3.$'% 1 1'0X1\f@Nx A;*.RF.NameLo= STYLE_MULTIPLECHOICEQ Or ؃w OEATCHING )?3NUMERICAL? _SHORTANSWER:QO W u'Ty= '' Sa0~1C*tPAF5h' A&wfvs @,enund,.previousW."cloxsedxe 5ThInsert@>Tag; y s dd{QcOuqBc,& "// z: " &vr& { ,M 3?z'^Fu Af# CR TAG_QUESTION_START,w q Lt+cm6e6e*_TRATEMENT6{P=/_FA|LS ? 2?_MISS:WORD7_BLANK_66sO6@% 0etEndPoint Then InsertQuestionTag para.Range@.Startls,Ofn =fX IfG Before vbCr & "//  of q1: "Type0 -I= STYLE_TRUESTAT EMENTAfterHCR TAG_CHOICE, FALS>:?MISSING WORDQ>FindBlanks (Gg)8ndyKsȣ= FaD G' Wrong answer foundGDSStyle.NameLocal@vWRONG_ANSWE@keightedTAmF!(C@WEIGHTI})!@TrueڐTeȈ.3_)on?hge)8Tj@qj3Next Jsnaira)a F As wher chosenCavalipq' Returns| tPke'OK, o@rwis`mӡ|O) As BooleaDim OkSSet asOge]').Spc%'MsgBox "S(ee f@specifyingt." &U&&8' a: R'" " s`dR $ 'no eS">{? ߠ3 qa;that#&a0righnBds CieCtP Q9A'$ M QION#4c%2;numberVpPB'P @iPAIRGPleft/,LEFT_3(Too ferw0Pirg `[<< 3A, losAVes nUcorrect0nte?oA%s"f2must be a&t0O3 #hchG$, "B(N!+_%p'  4->A9 1 axb3[differe@PPzer>o'l!tairCount Then aRange.@Select dMsgBox "Error, los pares no estn definid!0corr~amente" & vbCr _ u"LJde la izquier0da ySHhadson iguales.",RExclamation,!" aisOk = FalseEnd( IfE If qu`#TypeSTYLE_MISSINGWORDQ word= Sty)KIn(BLANK_, startPoin@t, end) HG )<> 1 Debe haber@ exct Puna psapecfic@a comoBp alabrn @blancoX Y IY\TRUESTATEMENT Or KipFALSC' UNDEFINED QION TYPE$C*CYXTipoXpXreg@@nĽa:A("Ill0egalƞleXted])Dt7D \C3',$"=)6CheckQ$`_# Funck '  the numeric answer. Note,@tt ca ing all valid GI@FT forusX. e N# A ( As h)!Boolea*True ' BAfau`lt OK' SearchAe marg in se`at or+Find.Execute Text:=":F":=hcFd Aasd)~Respons<("Is is `}ightw4L#5??Yu"Yourd;: AAYesNoDf.Q5.Ins ertBe be 8"{=tAft`"}^' .ᇯ ,1q F+ssn wsi+]k(ByVal2,kgk. Check eacha0@a timedy weded tag@" E InU:1'@{empty7pJ!jc@'2q7.DpP' dq>AI:GzC , :t&{a$ňN=b j%tk0I!סchhap2b5!trail1V((2&, /)٤'?DzNRmaeSt@g"!B0"%  ~%F /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA i 0 F5C:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLBWord a @0FC:\WINDOWS\system32\stdole2.tlbstdole q  PL-[DR?C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLLOffice Q y  ` ExportToGIFTAddMultipleChoiceQ AddMatchingQAddShortAnswerQAddMissingWordQAddQuestionFeedbackAddTrueStatementAddFalseStatementMarkTrueAnswerAddParagraphOfStyleEscapeControlCharactersConvertDecimalSeparator^ FRemoveFormattingCountStylesInRangeConvertToGIFT StyleFound #RemoveAnswerWeightsFromTheSelectionCheckQuestionnaireCheckQuestionCheckNumericAnswerInsertTextBeforeRangeInsertQuestionEndTagInsertAfterBeforeCRInsertAfterRangeSetAnswerWeightsMarkBlankWord FindBlanksAddAnswerWeightsInsertAnswerWeight7 Pregunta VERDADERA-FALSA: inserte una declaracin VERDADERA aqu (Ej: Guadalajara es la capital de Jalisco) F F!k FUnit Extend EndOf *InsertParagraphBefore CountMove StyleInsertBefore Select HInserte la pregunta de relacin aqu8 Pregunta VERDADERA-FALSA: inserte una declaracin FALSA aqu (Ej: En Guadalajara son comunes los osos polares &uacute; 9 Inserte la pregunta de relacin aqu. Ej: Relacione los siguientes Estados con sus correspondientes capitales. DInserte una pregunta numrica aqu1 Inserte una pregunta numrica aqu. Ej: 4. Cul es la poblacin de Guadalajara (en millones)? >Inserte una pregunta corta aqu nInserte una pregunta corta aqu Ej: Qu significa Jal?B Inserte una pregunta con palabra(s) en blanco aqu. Recuerde seleccionar la(s) palabra(s) en blanco y dar clic en el botn BLANK! &oacute; G Inserte una pregunta con palabra(s) en blanco aqu. Recuerde seleccionar la(s) palabra(s)que quiere en blanco y dar clic en el botn BLANK! VInserte la pregunta de Opcin mltiple aqu @D;l F"…KHC FDocument &iacute;<C:\Archivos de programa\Microsoft Office\OFFICE11\MSWORD.OLB a $  @& Inserte la pregunta de Opcin mltiple aqu. Ej: Son Montaas de Mxico& Mdulo1 NewMacros testu F F F  &aacute;  &eacute;   &ntilde;  &iquest;   &euro;  &Aacute;  &Eacute;  &Iacute;  &Oacute;  &Uacute;  &Ntilde;acentosespacios ^l^l^l^l ^l ^l^l^l ^l^l  fPor favor, guarde su documento antes de continuar! $Convertidor GIFT.  FAddToMruShow zConvirtiendo a formato GIFT para Moodle. Espere, por favor... Format yyyymmdd .txtName F dPor favor, corrija los errores antes de convertir. ErrorVBE6.DLL1S h1b 1   Range  DeleteNameLocal StartEnd NOT_KNOWN JError, no hay una respuesta definida. bError, los pares no estn definidos correctamente PThere must be atleast 3 mathching pairs. Error! fLos pares de la izquierda y derecha no son iguales. \~ \= \# { \{ \}) Debe de haber exctamente una respuesta especfica como una palabra en blanco. 8Tipo de pregunta indefinida: 2Illegal question deleted.FindClearFormattingtextReplacementForwardWrapExecute ,// Start of question: rU~| r991I!q i I Qy   I" %,i ,11I-q---Q.1.2)/Q/q/0 022222)3yI3a3 4A645q6 8Y99Y:y:::;a;A;9 ;a1QII !Q7&q77777'&'vx$4xkvx2''$!"*FD0:d#NTT $6TD$*Tx$tx0%Qxcd%C&AT'(d]35T($ ) * +)Tx$tx0%Qxd%,TT -:4.:d/NDDT$ 0$:1%26 TD$'T435Tc3''$:44NDD:d5NTT $6TD$,(xTD$d,$:L N<<:lN\\ 6\<@,$ \<d,$:LN<<:lN\\ 6\< @,$ \<0 `  d,$:LN<<:lN\\ 6\<nse@,$ \<0   0   d,$:LN<<:lN\\ 6\<@,$ \<d,$:LN<<:lN\\ 6\<`@,$ \<0   %tx$4xQtdxdq`%P%0%l` l` "P%(0%l`   @%l`Cl`l` q` \(dxtx3ptx$4xt4AQpl)xtq'''':@ ( hPA0Nq l O: 6%l CP: 6%l =0QCP50c %l CR %l Cc %l C,( %l 0STc]350PA0>@t50h( 0h q hUpz44@hPd`0@ U f$''($4($4AliL]3)($6 -,A 7:<8]35 ,=795+Lc<]3+!,= 7A>U+ V6  ,s@@<$ ,\Llh($ |l\<, xtH4AQtp ph6ph6tphtDpt p,h `NPPph5P ph`''''''0'PP'p''''''0ph6P0pP0cp!tH4At8hkpzt (pLtP0pP00 P   c(8 f(H ((h 6T-$4tQ[ r A7:(8]35=79560'=7=A:`6=7=A::(]/=7=A::]/xh=X7=HA(::8]/=7=A::]/6XH( H=7A;X5Xh <(88f(]3 =7A;h5 c(H'=7=A:`6=7=A::(]/=7=A::]/xh=X7=HA(::8]/=7=A::=]/6XH( H=7A;X5Xh <(88f(]3 =7A;h5'=7=A:`6(=7=>h <(868f(]3| =7A>h5 ?T f(HC=7=A::(@]/0'6&A7A B5|=7A>''$44Ali8]/h=7A>uVx0 inx_xAA?<1W?<_Z{=&xe #xXx  "ldeBx C<_vch OZ36/*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\Archivos de programa\Archivos comunes\Microsoft Shared\OFFICE11\MSO.DLL#Microsoft Office 11.0 Object Library  Q*wThisDocument035106afe6ThisDocumentJGIFT0V45d49f05GIFTB7NewMacros0X5106babf\NewMacros8%X8f{BAh|5 tI˵9H솰]CGHBkIStextWordkVBAWin16~Win32MacVBA6#Project-stdole`Officeu ThisDocument< _EvaluateGIFTSTYLE_FEEDBACKSTYLE_ANSWERWEIGHT(; STYLE_NORMALSTYLE_MULTIPLECHOICEQa?STYLE_RIGHT_ANSWERvwSTYLE_WRONG_ANSWERJSTYLE_MATCHINGQlgSTYLE_LEFT_PAIRSTYLE_RIGHT_PAIR@STYLE_TRUESTATEMENTbSTYLE_FALSESTATEMENTSTYLE_SHORTANSWERQYSTYLE_NUMERICALQwSTYLE_MISSINGWORDQSTYLE_BLANK_WORD 8 questionType[ FILE_PREFIX  COPYRIGHT!/TAG_QUESTION_STARTPTAG_QUESTION_END<TAG_TRUE_CHOICEx3TAG_FALSE_CHOICETAG_RIGHT_ANSWERTAG_RIGHT_NUMERICAL_ANSWER)TAG_WRONG_ANSWER TAG_MATCHINGQ_ARROW&oTAG_WEIGHTED_ANSWERq TAG_FEEDBACK1 ExportToGIFTActiveDocument\SaveddMsgBoxRvbExclamation saveDialogSDialogswdDialogFileSaveAsNAddToMrufShow StatusBarʜCheckQuestionnaire/ConvertToGIFT3RemoveFormattingl wdFormatText vbCritical+}AddMultipleChoiceQ-8AddParagraphOfStyleȆ AddMatchingQAddNumericalQAddShortAnswerQAddMissingWordQyAddQuestionFeedback> SelectionZRange StylepInsertAfterRange1 ParagraphsfvbCr$AddTrueStatement}AddFalseStatementdeMarkTrueAnswerJaStyle*myRange-ContentlEndOfyUnit wdParagraphHExtend?wdMovezInsertParagraphBefore)Move>yCount0v InsertBefore.EscapeControlCharacters FindnExecuteYFindText ReplaceWith`Replacef wdReplaceAllu#ConvertDecimalSeparatoraRange?M WholeStoryClearFormatting)CountStylesInRange[ startPointendPointycounterStartendPC ReplacementForwardWrapWy wdFindStop'fstartOfQuestionZpendOfQuestion setEndPoint@para~Deletex NameLocalInsertQuestionEndTagInsertAfterBeforeCRi FindBlanks-f StyleFoundDInsertTextBeforeRangeFound+#RemoveAnswerWeightsFromTheSelectionXisOkvCheckQuestionZCheckNumericAnswerN rightCount3rightPairCountleftPairCount wordCount IsNumeric$*ResponsevbYesNovbNo% InsertAfterq5SetAnswerWeights# rightScore; wrongScore* wrongCountpMoveDown̝ wdReplaceOnenQuestionRangeq RoundAddAnswerWeightsx MatchCaseMarkBlankWord.DWords8ParentwdWordmInsertAnswerWeightpTScore1 scoreStringbnewRange@THE'MITLicenseoqcZ Permission>herebyrabove)SOFTWARE^PROVIDEDDocumentj_B_var_myRangee1Itemz_B_var_aRange_B_var_rightCount_B_var_wrongCount}_B_var_QuestionRangeN _B_var_paraM_B_var_startPointZ_B_var_scoreStringě_B_var_newRange!_B_var_saveDialog~: _B_var_Datev_B_var_Format _B_var_ConstgAadaUnaSentenciaVerdaderaMdulo1 NewMacrosjtest4wdFindContinueBPMatchWholeWordXMatchWildcardsMatchSoundsLike0MatchAllWordFormsacentosyespacios _B_var_isOkZ_B_var_rightPairCount_B_var_leftPairCount_B_var_wordCount _B_var_endPTpreparar`   ] 6FaBnt/&H00000000 Module=GIFT Module=NewMacros Name="Project" HelpContextID="0" VersionCompatible32="393222000" CMG="888A213725372537253725" DPB="B3B11A714472447244" GC="DEDC77AE89F2B5F3B5F34A" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDocument=0, 0, 0, 0, C GIFT=44, 44, 876, 447, C NewMacros=54, 64, 1692, 751, ThisDocumentThisDocumentGIFTGIFTNewMacrosNewMacros  F Documento Microsoft Office Word MSWordDocWord.Document.89q%` bjbjٕ .::>>>>>>>>>> > >?????????1?3?3?3?3?3?3?$RAhCW?>?????W?>>??l?????>?>?1???1???>>>??? C>??1??0??C?C?C>? ????????W?W??????????>>>$>>>>>>>>>>>>>> ,1h/ =!"#$% CompObjIrL@L Normal$CJ OJPJQJ_HaJ mH sH tH NAN Fuente de prrafo predeter.RiR  Tabla normal4 l4a ,k, Sin listaH0Mi\n@D0`0@UnknownGz Times New Roman5Symbol3& z Arial7&  Verdana5& zaTahoma?5 z Courier New;Wingdings"0h0HP?Mi2