「Evernote Webクリッパーで指定したWebページをEvernoteに取り込む(Office VBA)」でInternet Explorer用Evernoteアドオンを利用して、指定したWebページをEvernoteに取り込むマクロを紹介していますが、今回はMicrosoft OneNoteで同様のことをしてみようと思います。

事前にWebページ取り込み用のセクションを用意しておいて、OneNoteのオプション「OneNote に送る」から、Web コンテンツの取り込み先を「現在のセクションの新しいページ」にしておきます。

この状態で下記マクロを実行すると、指定したセクションに指定したWebページが取り込まれます。

Option Explicit

Public Sub Sample()
  With CreateObject("InternetExplorer.Application")
    .Visible = True
    .Navigate "//www.ka-net.org/office/of59.html"
    
    '表示待ち
    While .Busy Or .ReadyState <> 4&
      DoEvents
    Wend
    
    CreateObject("OneNote.IEAddin").SendToOneNote .document.Parentwindow
    .Quit
  End With
  MsgBox "処理が終了しました。"
End Sub