最近の制御パネルのモチーフは「ジャービス」です
簡単に文字だけを書き換える場合 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さんのブログには感謝感謝です。
自分はPalm Pilot、Windows Mobile、Andoroid、Windows Phoneと使ってきました。 PalmからAndroidまでGraffittiのユーザです。Windows Mobileの時は、純正Graffittiがありませんでしたので、代用でした。 Graffittiにも勝る、Windows Phoneの魅力とは、 「Pe…
何となく、Staticで「静的」と書いていましたが、もしかしたら日本国内では固定IPの方が一般的かもしれません。この記事は「固定IP」「MADSOMA」「Lumia」の釣りです。Windows Phoneの方!お集まりください。では、おこがましいので、ご参照ください、
Lumia 640の設定 Live Interop/Capability Unlock Permanent Interop/Capability Unlock でPCとの接続が出来るようになりましたが、まだ「Live Full FS Access」(MTPでC:を見る)はエラーになります・・・。
7/30に何かがUpdateされました。OSバージョンは8.10.15127.138です。その後、StoreからのInstallが失敗するように・・・。CustomWPSystem等のDeveloperアプリも起動せず・・・。 とりあえず、Windows Phone Developer Registrationを使用して、開発環境にす…
「設定」-「WiFi」を開くと、[静的IP」ボタンが下に追加されていると思います 「静的IP]を押すと、IPアドレスが設定できます 自分のLumia640では、再起動しないとIPアドレスが変更されませんでした 特に使用に問題はありません(Android改 ST15iに比べたら、再…
vcREG_1_2_BOOTSTRAP.xapがインストールされると、設定の一番下に「D:\WPSystem\Apps\{2377fe1b.」が表示されていると思います D:\WPSystem\Apps\{2377fe1b.を押して、vcREGを起動します vcREGで HKEY_LOCAL_MACHINE と DWORDにチェックを入れます Pathに Sy…
次にCustomWPSystemからエキストラ情報をインストールします Select the target appからExtra e infoを選択します Download from Storeを押します 一度、ブラウザが開きますがストアへ移動します インストールが終了したら、戻るを2回ほど押して、CustomWPSy…
まず、CustomWPSystemを起動します 次にSD Crad permissionでSDカードを選択します 次にUnhide WPSystemを押します これでSDカード内のファイルを操作する準備が整いました
次に、「設定」「ストレージセンサー」で新しいアプリを「電話」へインストールするように変更します。続いて、WPV XAP Deployer.exeでCustomWPSystem_0600.xapをインストールします。
次に、microSDのルート(D:\)にvcREG_1_2_BOOTSTRAP.xapをコピーします。少し前はStoreでRoot Toolという便利なアプリがありましたが、現在はインストールできません。
次にエキストラ情報をアンストールします。 やり方は2通りあります。 Lumia本体でアンインストール 「設定」「日付+時刻」から日付を100年進ませる エキストラ情報を実行すると、[削除]ボタンが出る 削除後、日付を戻す WPV XAP Deployer.exeでアンインスト…
PhoneReg.exe を使用して、Lumiaを開発環境にします。
これは悩みました・・・。 Lumia 620では が使えていましたが、Lumia 640ではうまくいかない事が判明しました。 が必要です。このソフトを使って、まずエキストラ情報をUninstallします。この後の手順は、後日です。
ROMを入れ替えるLumia620は、今となってはOriginal ROMがどの国かは不明になってしまいましたが、会社の同僚が台湾ROMのLumiaを持っていて、静的IPが使用できました。 台湾ROM会社の同僚から教わりました。 アルゼンチンROMXDA-Developersで教わりました。
2015/1/8にLumia620のVolume Upの内部スイッチが基板から取れてしまい、新しいLumia!!!という事で、640を購入しました。
2014/7/24に入荷しました。
DMX-2000の現在電力 現在デマンド 予想デマンドを簡易表示するVBSです Internet Explorerが動く環境が必要です 近計システムさんに詳しい内容を問い合わせましたが、回答なし・・・ でも、良いデマンドモニタです Option Explicit Dim splitVal,strUrl,objIE…
Outlook pstファイルは、個人用フォルダです。自分は仕事のプロジェクト毎に分割し、プロジェクトのフォルダ内に保存しています。 Outlookを使っている方で、メールや予定表など、バックアップはしているものの、何ギガというpstになっている方が多い気がし…