Canevas pour les thèses

Sub NouvelleThesePapier()
Application.ActiveWindow.Title.InsertText "029 ##$aFR$b" & vbLf
Application.ActiveWindow.Title.InsertText "200 1#$aLe@Titre$bTexte imprimé$eLe sous-titre$fPrénom Auteur$gsous la direction de" & vbLf
Application.ActiveWindow.Title.InsertText "210 ##$a[S.l.]$c[s.n.]$d20" & vbLf
Application.ActiveWindow.Title.InsertText "215 ##$a1 vol. (f.)$cgraph., ill. en coul.$d30 cm" & vbLf
Application.ActiveWindow.Title.InsertText "320 ##$aBibliographie f. XXX .Index" & vbLf
Application.ActiveWindow.Title.InsertText "328 #0$bThèse de doctorat$cDiscipline. Spécialité$eToulon$dXXXX" & vbLf
Application.ActiveWindow.Title.InsertText "330 ##$aRésumé en français" & vbLf
Application.ActiveWindow.Title.InsertText "330 ##$aAbstract in English" & vbLf
Application.ActiveWindow.Title.InsertText "456 ##$0XXX(PPN : Lien vers l'électronique)" & vbLf
Application.ActiveWindow.Title.InsertText "541 ##$a@English title$eSubtitle$zeng" & vbLf
Application.ActiveWindow.Title.InsertText "606 ##$aVedette matière$3027253139$2rameau" & vbLf
Application.ActiveWindow.Title.InsertText "676 ##$aIndice Dewey$v22" & vbLf
Application.ActiveWindow.Title.InsertText "700 #1$aNom de l'auteur$bPrénom de l'auteur$4070" & vbLf
Application.ActiveWindow.Title.InsertText "702 #1$aNom du directeur$bPrénom du directeur$4727" & vbLf
Application.ActiveWindow.Title.InsertText "712 02$a@Université de soutenance$4295"
End Sub