カスタム検索
Office関連

Evernote Webクリッパーで指定したWebページをEvernoteに取り込む(Office VBA)

Evernote Webクリッパーで指定したWebページをEvernoteに取り込むマクロです。
※ 要Evernote for Windows

 

Option Explicit

Public Sub Sample()
  With CreateObject("InternetExplorer.Application")
    .Visible = False 'IE非表示
    .Navigate "http://www.ka-net.org/ribbon/ri53.html"
    
    '表示待ち
    While .Busy Or .ReadyState <> 4&
      DoEvents
    Wend
    
    CreateObject("EvernoteIE.Addin").AddNote .document.Parentwindow
    .Quit
  End With
  MsgBox "処理が終了しました。"
End Sub

 



 

Sponsored Links

 

Evernote for Windowsのクリップの設定から「"新規クリップ" ダイアログを非表示にする(N)」にチェックを入れておくと、Webページを取り込む際に確認ダイアログが表示されなくなります。また、当マクロは環境によっては非常に動作が重いため、実用性は低いかもしれません。

 

関連記事

Evernoteのノートを列挙する(VBS)