2017-08-01から1ヶ月間の記事一覧
簡単に文字だけを書き換える場合 Public Sub PageRewrite2Test() Call UpdatePage2(GetPageID("あなたのNotBook名", "書き換え用ページ"), "このページを書き換えました") End Sub下図のように書き換わったと思います。 HTMLの書式を使用してみる Public Sub…
まず、共通のサブルーチンを標準モジュールに貼り付けてください。 OneNoteには、「書き換え用ページ」を作成し、何かの本文を入力してください。 何かを入れないと、書き換える場所が判断できず、エラーとなります。 下図のようなページにしてください。 Pu…
下に抽出したxmlを掲載します。 [ノートシール] 自分は良く、タイトルにノートシールを貼ります。見た目ですね・・・。 こんな感じでノートシールは設定しています。 そして、xml内を確認すると、3行目に のタグがあります。このタグ内のtypeがノートシール…
これは、自分が独自で解析したものですので、正しくない場合があります。色々と探しているのですが、見つけ方が悪いのか、VBAでxml形式でページデータを取得した場合の、タグの意味が見つかりません。下記のコードを実行すると、tempフォルダに 年_月_日_時_…
まずは、標準モジュールの先頭に下記のコードを貼り付けてください。 Public Type AttachedFileInfoType pathCache As String preferredName As String End Typeユーザ定義型で、添付ファイル情報を取得します。 pathCacheは、実ファイルが保存されている場…
下記のコードを標準モジュールに貼り付けてください。 Public Function GetPageID(ByVal noteBookName As String, ByVal pageName As String) As String Dim oneNote As oneNote.Application2 Dim oneNotePagesXml As String Dim nodes As MSXML2.IXMLDOMNod…
下記のコードを、標準モジュールに貼り付けてください。 イミディエイトウィンドウで AllPageNameToImmediate(GetNoteBookID("あなたのノートブックの名前")) [Return] で、番号:ページ名 の書式で全てページ名が出力されます。 Public Sub AllPageNameToImm…
下記のコードを、標準モジュールに貼り付けてください。 イミディエイトウィンドウで ? GetNoteBookID("あなたのノートブックの名前") [Return] で、IDが取得できます。 Public Function GetNoteBookID(ByVal name As String) As String Dim oneNote As oneN…
変にxmlを使用しますので、こんな感じです。Excelはこの記事内容では必要ありません。
基本的にMicrosoft Accessを使用します。 仕事上、Accessでデータを構築した方が便利なのです。でも環境はOffice VBAですので、Excelでも動作可能である(?)と思います。
明日から夏休み! 最近、はまっているOneNote & VBAについて、記載したいと思います。 日本にはOneNote&VBAの情報が少ないと思います。唯一、自分の突破口となった@kinuasaさんのブログには感謝感謝です。