Excel

Internet Explorer用OneNoteアドオンを利用して指定したWebページをOneNoteに取り込むマクロ

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

[Mayhem]RSSフィードが更新されたら最新記事をEvernoteに取り込む。前のページ

MayhemのOfficeModulesが更新されました。次のページ

関連記事

  1. Office関連

    Wordのテンプレートをインストールするスクリプト

    Wordマクロをテンプレートにして使用する場合、通常そのテンプレートフ…

  2. Office関連

    ビジネスITアカデミーの無料VBAセミナーに行ってきました。

    Excel MVPの伊藤さんやWord MVPの新田さんのブログ記事で…

  3. Office関連

    GetSpellingSuggestionsメソッドで文法上の誤りの修正候補は取得できない?

    前回と前々回の記事でスペルチェック、文章校正に関するWordマクロを扱…

  4. Office関連

    Faviconをダウンロードするマクロ

    WebサイトからFaviconを抜き出すAPIがあったので早速使ってみ…

コメント

  1. この記事へのコメントはありません。

  1. この記事へのトラックバックはありません。

Time limit is exhausted. Please reload CAPTCHA.

Translate

最近の記事

アーカイブ

PAGE TOP