{"id":16065,"date":"2014-11-13T16:01:09","date_gmt":"2014-11-13T15:01:09","guid":{"rendered":"http:\/\/davidbosman.fr\/blog\/?p=16065"},"modified":"2014-11-15T20:52:24","modified_gmt":"2014-11-15T19:52:24","slug":"exporter-notes-et-surlignements-dun-fichier-word","status":"publish","type":"post","link":"https:\/\/www.davidbosman.fr\/blog\/2014\/11\/13\/exporter-notes-et-surlignements-dun-fichier-word\/","title":{"rendered":"Exporter notes et surlignements d&#8217;un fichier Word"},"content":{"rendered":"<p><a href=\"http:\/\/davidbosman.fr\/blog\/2014\/11\/13\/word-une-excellente-liseuse-ideale-pour-les-notes-de-lecture\/\">Comme promis<\/a>, le script d&#8217;exportation des commentaires d&#8217;un fichier Word. <br \/><!--more-->Bon, d&#8217;abord <s>un<\/s><em>deux<\/em> avertissements et un conseil :<\/p>\n\n<ul>\n<li>Ce script est liv\u00e9 sans aucune garantie : si \u00e7a fait exploser votre ordinateur ou toute votre rue, c&#8217;est pas mon probl\u00e8me.<\/li>\n<li>Ce script est offert (j&#8217;ai piqu\u00e9 un bout de code je sais plus o\u00f9, et l&#8217;ai pouss\u00e9 un peu plus loin dans la direction qui m&#8217;int\u00e9ressait). Mais si vous le trouvez utile, je rappelle que le bouton <strong>Flattr<\/strong>, en bas du billet, n&#8217;est pas que d\u00e9coratif.<\/li>\n<\/ul>\n\n<p>Et le conseil ? Ah, oui : je suis paresseux, si j&#8217;avais voulu pouvoir exporter aussi les passages surlign\u00e9s (au fluo jaune, dans Word), le script aurait \u00e9t\u00e9 beaucoup plus long \u00e0 \u00e9crire. J&#8217;ai donc trich\u00e9 \u2014 et si vous voulez l&#8217;utiliser \u00e0 fond, je vous conseille d&#8217;en faire autant :<\/p>\n\n<p>Au lieu de surligner les passages au fluo, je les surligne \u00e0 coups de&#8230; commentaires. J&#8217;explique : chaque commentaire est automatiquement associ\u00e9 \u00e0 une zone de texte dans le fichier, par Word. Vous pouvez donc s\u00e9lectionner un passage, comme vous le feriez pour le surligner et lui associer un commentaire&#8230; vide. Le passage est m\u00e9moris\u00e9 comme un commentaire, m\u00eame s&#8217;il semble vide. C&#8217;est tout con mais \u00e7a marche assez bien pour moi \u2014 <a href=\"http:\/\/davidbosman.fr\/blog\/2014\/11\/08\/word-un-raccourci-clavier-pour-creer-un-nouveau-commentaire\/comment-page-1\/#comment-54279\">encore mieux, si vous lui associez un raccourci clavier<\/a> \ud83d\ude09<\/p>\n\n<p>Le script s&#8217;ex\u00e9cute sur le fichier actif (celui qui est affich\u00e9 au premier plan dans Word), il exporte tous vos commentaires dans un nouveau fichier, qu&#8217;il enregistre dans le m\u00eame dossier que l&#8217;original, sous le m\u00eame suivi de &#8220;-notes&#8221; :<\/p>\n\n<p><img decoding=\"async\" src=\"http:\/\/davidbosman.fr\/blog\/wp-content\/uploads\/2014\/11\/notesdocx.png\" alt=\"Notesdocx\" \/><\/p>\n\n<p>Ce fichier contient donc uniquement les passages surlign\u00e9s\/comment\u00e9s, comme ceci :<\/p>\n\n<p><img decoding=\"async\" src=\"http:\/\/davidbosman.fr\/blog\/wp-content\/uploads\/2014\/11\/unenote.png\" alt=\"Unenote\" \/><br \/>\n(ici, un commentaire affich\u00e9 dans Pages : ce sera pareil sous Word et, j&#8217;imagine, sous Open\/LibreOffice)<\/p>\n\n<p>Chaque entr\u00e9e dispose de son propre titre (utile pour les r\u00e9f\u00e9rences \u00e9ventuelles) qui est bas\u00e9 sur la date et l&#8217;heure du commentaire et du num\u00e9ro que lui attribue automatiquement Word. Le tout est balis\u00e9 en Markdown.<\/p>\n\n<p>Il est facile d&#8217;y ajouter ou supprimer des infos, en suivant la doc de Microsoft sur <a href=\"http:\/\/msdn.microsoft.com\/fr-fr\/library\/office\/ff845295.aspx\">les propri\u00e9t\u00e9s de l&#8217;objet commentaire<\/a><\/p>\n\n<p>Aucune id\u00e9e s&#8217;il servira \u00e0 une autre personne que moi, mais <em>je<\/em> le trouve tr\u00e8s utile \u2014 ce qui le rend carr\u00e9ment g\u00e9nial, \u00e0 mon avis \ud83d\ude09<\/p>\n\n<h3>Le script<\/h3>\n\n<p>A placer dans le code VBA de votre mod\u00e8le normal.dot ou dans tout autre mod\u00e8le que vous voulez utiliser.<\/p>\n\n<p><code>\nSub ExportComments()<br \/>\n'<br \/>\n' Export each comment from the active document in a new file<br \/>\n' Add a Markdown header for each comment, based on it's date tag<br \/>\n' The scope (text selection where the comment was made) becomes a quote \">...\"<br \/>\n' The comment itself, if there is any, is displayed beneath.<br \/>\n' Then save it in the same directory as the original Word file,<br \/>\n' with the suffix \"-notes\"<br \/>\n'<br \/>\n'' Works with Word 2010\/13, on Windows<br \/>\n' For an OS X version, see :<br \/>\n' http:\/\/davidbosman.fr\/blog\/2014\/11\/15\/exporter-notes-et-surlignements-dun-fichier-word-sous-os-x\/<br \/>\n'<br \/>\n' David Bosman - http:\/\/davidbosman.fr<br \/>\n''<br \/>\n' That's all folks.<br \/>\n'<br \/>\n'<br \/>\nDim s As String<br \/>\nDim cmt As Word.Comment<br \/>\nDim doc As Word.Document<br \/>\nDim CommentsFile As String<br \/>\nCommentsFile = ActiveDocument.Path &amp; \"\/\" &amp; Left(ActiveDocument.name,<br \/> Len(ActiveDocument.name) - 5) &amp; \"-notes.docx\"<br \/>\ns = s &amp; \"# \" &amp; ActiveDocument.name &amp; vbCr &amp; vbCr<br \/>\nFor Each cmt In ActiveDocument.Comments<br \/>\ns = s &amp; vbCr &amp; vbCr &amp; \"## \" &amp; cmt.Index &amp; \"(\" &amp; cmt.Date &amp; \") :\" &amp; vbCr &amp; \">\" &amp; cmt.Scope.Text &amp; vbCr &amp; vbCr &amp; cmt.Range.Text &amp; vbCr<br \/>\nNext<br \/>\nSet doc = Documents.Add<br \/>\n' Specify a readable font for my bad sight<br \/>\nActiveDocument.Styles(\"Normal\").Font.name = \"Courier New\"<br \/>\ndoc.Range.Text = s<br \/>\ndoc.SaveAs2 CommentsFile<br \/>\ndoc.Close<br \/>\nEnd Sub\n<\/code><\/p>\n","protected":false},"excerpt":{"rendered":"<p>Comme promis, le script d&#8217;exportation des commentaires d&#8217;un fichier Word.<\/p>","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[102,21,38,109,83],"class_list":["post-16065","post","type-post","status-publish","format-standard","hentry","category-general","tag-ebooks","tag-ecriture","tag-markdown","tag-trucs-et-astuces","tag-word"],"_links":{"self":[{"href":"https:\/\/www.davidbosman.fr\/blog\/wp-json\/wp\/v2\/posts\/16065","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.davidbosman.fr\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.davidbosman.fr\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.davidbosman.fr\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.davidbosman.fr\/blog\/wp-json\/wp\/v2\/comments?post=16065"}],"version-history":[{"count":11,"href":"https:\/\/www.davidbosman.fr\/blog\/wp-json\/wp\/v2\/posts\/16065\/revisions"}],"predecessor-version":[{"id":16083,"href":"https:\/\/www.davidbosman.fr\/blog\/wp-json\/wp\/v2\/posts\/16065\/revisions\/16083"}],"wp:attachment":[{"href":"https:\/\/www.davidbosman.fr\/blog\/wp-json\/wp\/v2\/media?parent=16065"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.davidbosman.fr\/blog\/wp-json\/wp\/v2\/categories?post=16065"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.davidbosman.fr\/blog\/wp-json\/wp\/v2\/tags?post=16065"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}