{"id":1549,"date":"2012-03-25T15:43:53","date_gmt":"2012-03-25T06:43:53","guid":{"rendered":"http:\/\/www.ka-net.org\/blog\/?p=1549"},"modified":"2014-09-18T15:19:32","modified_gmt":"2014-09-18T06:19:32","slug":"onenote%e3%81%ae%e6%8c%87%e5%ae%9a%e3%81%97%e3%81%9f%e3%82%bb%e3%82%af%e3%82%b7%e3%83%a7%e3%83%b3%e3%82%92%e3%83%9a%e3%83%bc%e3%82%b8%e3%81%94%e3%81%a8%e3%81%ab%e6%8c%87%e5%ae%9a%e3%81%97%e3%81%9f","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=1549","title":{"rendered":"OneNote\u306e\u6307\u5b9a\u3057\u305f\u30bb\u30af\u30b7\u30e7\u30f3\u3092\u30da\u30fc\u30b8\u3054\u3068\u306b\u6307\u5b9a\u3057\u305f\u5f62\u5f0f\u3067\u51fa\u529b\u3059\u308b\u30de\u30af\u30ed"},"content":{"rendered":"

\u4eca\u56de\u306fOneNote\u306e\u6307\u5b9a\u3057\u305f\u30bb\u30af\u30b7\u30e7\u30f3\u3092\u30da\u30fc\u30b8\u3054\u3068\u306b\u6307\u5b9a\u3057\u305f\u5f62\u5f0f\u3067\u51fa\u529b\u3059\u308b\u30de\u30af\u30ed\u3092\u7d39\u4ecb\u3057\u307e\u3059\u3002<\/p>\n

Option Explicit\r\n\r\nPublic Sub Sample()\r\n  PublishOneNoteSection "Web", "C:\\Test", "docx"\r\n  MsgBox "\u51e6\u7406\u304c\u7d42\u4e86\u3057\u307e\u3057\u305f\u3002", vbInformation + vbSystemModal\r\nEnd Sub\r\n\r\nPublic Sub PublishOneNoteSection(ByVal SectionName As String, ByVal FolderPath As String, Optional ByVal PublishFormat As String = "pdf")\r\n'\u6307\u5b9a\u3057\u305f\u30bb\u30af\u30b7\u30e7\u30f3\u3092\u30da\u30fc\u30b8\u3054\u3068\u306b\u6307\u5b9a\u3057\u305f\u5f62\u5f0f\u3067\u51fa\u529b\u3059\u308b\u3002\r\n'SectionName : \u30bb\u30af\u30b7\u30e7\u30f3\u540d\r\n'FolderPath : \u51fa\u529b\u5148\r\n'PublishFormat : \u51fa\u529b\u5f62\u5f0f\r\n\r\n  Dim AppON As Object\r\n  Dim Exec As Object\r\n  Dim PublishFormatNo As Long\r\n  Dim n As Object\r\n  Dim x As String\r\n  Dim i As Long\r\n  \r\n  PublishFormat = LCase$(PublishFormat)\r\n  Select Case PublishFormat\r\n    Case "mht"\r\n      PublishFormatNo = 2\r\n    Case "pdf"\r\n      PublishFormatNo = 3\r\n    Case "xps"\r\n      PublishFormatNo = 4\r\n    Case "one"\r\n      PublishFormatNo = 0\r\n    Case "onepkg"\r\n      PublishFormatNo = 1\r\n    Case "doc", "docx"\r\n      PublishFormatNo = 5\r\n    Case "emf"\r\n      PublishFormatNo = 6\r\n    Case "htm", "html"\r\n      PublishFormat = "htm"\r\n      PublishFormatNo = 7\r\n    Case Else\r\n      PublishFormat = "pdf"\r\n      PublishFormatNo = 3\r\n  End Select\r\n  If Right$(FolderPath, 1) <> Application.PathSeparator Then FolderPath = FolderPath & Application.PathSeparator\r\n  \r\n  On Error Resume Next\r\n  Set Exec = CreateObject("WScript.Shell").Exec("ONENOTE.EXE")\r\n  Set AppON = CreateObject("OneNote.Application")\r\n  AppON.GetHierarchy vbNullString, 4, x\r\n  With CreateObject("Msxml2.DOMDocument")\r\n    .async = False\r\n    If .LoadXML(x) Then\r\n      Set n = Nothing '\u521d\u671f\u5316\r\n      Set n = .SelectSingleNode("\/one:Notebooks\/one:Notebook\/one:Section[@name='" & SectionName & "']")\r\n      If Not n Is Nothing Then\r\n        For i = 0 To n.SelectNodes("one:Page").Length - 1\r\n          AppON.Publish n.SelectNodes("one:Page")(i).getAttribute("ID"), FolderPath & SectionName & "_page" & i + 1 & "." & PublishFormat, PublishFormatNo\r\n        Next\r\n        Set n = Nothing\r\n      End If\r\n    End If\r\n  End With\r\n  Set AppON = Nothing\r\n  Exec.Terminate\r\n  Set Exec = Nothing\r\n  If Err.Number <> 0 Then\r\n    MsgBox "\u30a8\u30e9\u30fc\u304c\u767a\u751f\u3057\u307e\u3057\u305f\u3002" & vbCrLf & vbCrLf & "\u30a8\u30e9\u30fc\u5185\u5bb9:" & Err.Description, vbCritical + vbSystemModal\r\n  End If\r\n  On Error GoTo 0\r\nEnd Sub<\/pre>\n
\"\"<\/a><\/p>\n
\u4e0a\u8a18\u30b3\u30fc\u30c9\u3067\u306fPublish\u30e1\u30bd\u30c3\u30c9<\/span>\u3067\u30da\u30fc\u30b8\u3054\u3068\u306b\u51fa\u529b\u3057\u3066\u3044\u307e\u3059\u304c\u3001\u30ce\u30fc\u30c8\u3084\u30bb\u30af\u30b7\u30e7\u30f3\u3054\u3068\u306b\u51fa\u529b\u3059\u308b\u3053\u3068\u3082\u53ef\u80fd\u3067\u3059(\u7b2c1\u5f15\u6570bstrHierarchyID<\/strong>\u3067\u6307\u5b9a)\u3002
\n\u307e\u305f\u3001\u30d5\u30a1\u30a4\u30eb\u3092\u51fa\u529b\u3059\u308b\u969b\u3001\u51fa\u529b\u5148\u306b\u540c\u540d\u306e\u30d5\u30a1\u30a4\u30eb\u304c\u5b58\u5728\u3059\u308b\u5834\u5408\u306f\u30aa\u30fc\u30c8\u30e1\u30fc\u30b7\u30e7\u30f3\u30a8\u30e9\u30fc\u304c\u767a\u751f\u3057\u307e\u3059\u306e\u3067\u3001\u305d\u306e\u70b9\u306f\u3054\u6ce8\u610f\u304f\u3060\u3055\u3044\u3002<\/p>\n
Publish\u30e1\u30bd\u30c3\u30c9\u306fOneNote\u3092\u8d77\u52d5\u3057\u3066\u3044\u306a\u3044\u3068\u30a8\u30e9\u30fc\u306b\u306a\u308b\u3001\u3053\u308c\u306b\u6c17\u3065\u304f\u307e\u3067\u7d50\u69cb\u30cf\u30de\u3063\u3066\u3057\u307e\u3044\u307e\u3057\u305f\u30fb\u30fb\u30fb\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"\u4eca\u56de\u306fOneNote\u306e\u6307\u5b9a\u3057\u305f\u30bb\u30af\u30b7\u30e7\u30f3\u3092\u30da\u30fc\u30b8\u3054\u3068\u306b\u6307\u5b9a\u3057\u305f\u5f62\u5f0f\u3067\u51fa\u529b\u3059\u308b\u30de\u30af\u30ed\u3092\u7d39\u4ecb\u3057\u307e\u3059\u3002 Option Explicit Public Sub Sample() PublishOneNoteSection &qu […]","protected":false},"author":1,"featured_media":7111,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[4,48,49,55],"tags":[11,142],"class_list":["post-1549","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-office","category-excel-office","category-word-office","category-onenote","tag-office-2","tag-onenote"],"aioseo_notices":[],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/eyecatch-Excel.png","jetpack_shortlink":"https:\/\/wp.me\/p4UZZr-oZ","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/1549","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1549"}],"version-history":[{"count":5,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/1549\/revisions"}],"predecessor-version":[{"id":4914,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/1549\/revisions\/4914"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/media\/7111"}],"wp:attachment":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1549"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1549"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1549"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}