日経新聞電子版お気に入り記事を耳読書で効率よくインプットする方法2022

<目次>

  1. はじめに

  2. 前回との相違点

  3. GoogleChromeダウンロード

  4. UWSCダウンロード

  5. Linkclumpダウンロード

  6. Clipboard History Proをアドオン

  7. 日経新聞電子版に申込

  8. フットペダル購入+homeボタン登録

  9. 日経新聞電子版アクセスランキングTop30を開く

  10. Linkclumpを使って1〜20位、21~30位をドラッグ

  11. その他記事も前項の方法で別タブに開く。

  12. UWSC発動

  13. (30分後)Clipboard History Proからプレーンテキスト吐き出し

  14. ダウンロードテキストをエクセルへ

  15. Excelマクロで不要文字削除

  16. 元のテキストファイルに貼り付け、保存

  17. メールソフトからkindleアドレスへ添付送信

  18. iPhoneでkindle起動、対象ファイル開く

  19. Assistive Touchで読み上げ開始

  20. 家事・移動時間で読書!



<本文>

  1. はじめに
    前回「日経新聞電子版必読25記事を耳読書で効率よくインプットする方法」と言うのを書いた。
    https://note.com/eigo3030/n/n375229115829
    今回はそのRPAバージョン。前回20-30分くらいかかっていた作業を実質5分程度で終えることができ、読んでいる記事も毎日25記事から毎日100記事程度に増えた。自分に関わる人や次代を担う人が、タイパ良く社会を知り、俺の屍を越えてゆくことを願う。

  2. 前回との相違点

    1. Windows環境:下記2.3のために

    2. UWSC(Windowsで動くマウストレースソフト)利用

    3. Excel利用:文字の置換による不要文字の削除

    4. USBフットペダルスイッチ:両手がふさがっている時ににhomeボタンを押すため。

    5. EvernoteWebClipper利用:主要部分抽出のため。

    6. kindleへの送信:読書

  3. GoogleChromeダウンロード
    https://www.google.com/intl/ja_jp/chrome/

  4. UWSCダウンロード
    Uうみうみが作った
    Windows
    SCスクリプトの意。Windows環境でマウスの動きをトレースしてくれるソフト。
    https://uwsc.softonic.jp/

  5. Linkclumpダウンロード
    Windows環境下ではCtrl+zを推しながらドラッグすることで、ドラッグ範囲のリンクを別のタブで開いてくれるアプリ。
    https://chrome.google.com/webstore/detail/linkclump/lfpjkncokllnfokkgpkobnkbkmelfefj?hl=ja

  6. Clipboard History Proをアドオン
    コピーした内容を記憶し、一気に吐き出してくれるアプリ。以前は25個しか吐き出しができないと思っていたが、最近100以上できることが発覚。
    https://chrome.google.com/webstore/detail/clipboard-history-pro-bes/ajiejmhbejpdgkkigpddefnjmgcbkenk?hl=ja

  7. 日経新聞電子版に申込
    ビジネスマンの基本。最近公務員こそ日経新聞を読むべしって思うようになった。個人的には朝日新聞も試したけど、日経の方が何倍もよかった。
    FinancialTimesやスタートアップの36Kr、経済教室、私の履歴書、中沢克二、石川温が秀逸。
    https://www.nikkei.com/

  8. フットペダル購入+homeボタン登録
    僕はこれを使ってる↓
    https://route-r.co.jp/?p=3102
    割り当てソフトもここでダウンロードできる。

  9. 日経新聞電子版アクセスランキングTop30を開く
    https://www.nikkei.com/access/index/?bd=hKijiSougou

  10. Linkclumpを使って1〜20位、21~30位をドラッグ
    =chrome別タブで記事を開く

  11. その他記事も前項の方法で別タブに開く。
    (自分の場合)

    1. 「奈良県」「私の履歴書」や注目企業を登録しているマイページ

    2. 記事検索「コラム」

    3. 記事検索「オピニオン」
      ※上記3つはフットペダルでhomeボタンを押すと楽。

    4. 経済教室

    5. やさしい経済学

  12. UWSC発動

    1. 事前コーディング

      1. UWSC起動+記録マーク

      2. (右上)EvernoteWebClipperボタン

      3. 適当に画面で左クリック

      4. Ctrl+A:すべて選択

      5. Ctrl+C:コピー=Clipboard History Proに記事保存

      6. Ctrl+W:画面を閉じる

      7. 2-6の繰り返し

    2. 具体的コード
      ※脚注【UWSC】

    3. 実行前チェック
      Clipboard History Proの保存が0であることを確認

    4. 実行
      Clipboard History Proに記事大量保存
      (前半作業終了、所要時間3分)

  13. (30分後)Clipboard History Proからプレーンテキスト吐き出し

    1. chrome立ち上げ

    2. (右上)Clipboard History Proボタン押下

    3. 保存記事一番下までスクロール

    4. 保存記事全選択

    5. exportボタン

    6. plain textボタン:ダウンロード

  14. ダウンロードテキストをエクセルへ

    1. ダウンロードしたテキストファイルを開く

    2. 全選択

    3. Ctrl+X

    4. Excelマクロに貼り付け

  15. Excelマクロで不要文字削除

    1. 事前コーディング

      1. 自分の場合はCtrl+Qで起動登録

      2. A列から不要文字削除、replaceを利用

      3. A1に「今日の日付+NEWS」を入力

      4. A列コピー

    2. 具体的コード
      ※脚注【ExcelMacro】

    3. 実行

  16. 元のテキストファイルに貼り付け、保存

  17. メールソフトからkindleアドレスへ添付送信

    1. kindleアドレスの確認方法
      https://www.amazon.co.jp/gp/help/customer/display.html?nodeId=G7V489F2ZZU9JJGE

    2. Send to Kindle Eメールアドレスの使用方法
      https://www.amazon.co.jp/gp/help/customer/display.html?nodeId=G7NECT4B4ZWHQ8WV
      (前半作業終了、所要時間2分)

  18. iPhonekindle起動、対象ファイル開く

  19. Assistive Touchで読み上げ開始

    1.  ホーム画面にある「設定」をタップ

    2. 設定にある「アクセシビリティ」をタップ

    3.  アクセシビリティにある「タッチ」をタップ

    4.  タッチにある「AssistiveTouch」をタップ

    5. 「シングルタップ」で「画面の読み上げ」を選択

    6. もう一度「アクセシビリティ」をタップ

    7. 「読み上げコンテンツ」で「読み上げ速度」を変更
      自分はウサギマックス。

  20. 家事・移動時間で読書!

  21. お仕事のご依頼はお気軽にどうぞ!

    1. 個人コンサル1,000円
      設定方法など。

    2. オンライン講座10,000円
      画面共有しながら設定を共有します。


【UWSC】
FOR n = 1 TO 200

BTN(LEFT,CLICK,902,59,1000)
BTN(LEFT,CLICK,161,438,3000)
KBD(VK_CTRL,DOWN,300)
KBD(VK_A,CLICK,10)
KBD(VK_C,CLICK,100)
KBD(VK_W,CLICK,100)
KBD(VK_CTRL,UP,100)

SLEEP(1)

NEXT
【ExcelMacro】
Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+q
'
    Range("A1").Select
        
    Columns("A").Replace What:="=", Replacement:=""
    Columns("A").Replace What:="/*/", Replacement:=""
    Columns("A").Replace What:=" ", Replacement:=""
    Columns("A").Replace What:="日本経済新聞社小中大", Replacement:=""
    Columns("A").Replace What:="印刷印刷", Replacement:=""
    Columns("A").Replace What:="記事利用について", Replacement:=""
    Columns("A").Replace What:="このページを閉じる", Replacement:=""
    Columns("A").Replace What:="本サービスに関する知的財産権その他一切の権利は、日本経済新聞社またはその情報提供者に帰属します。また、本サービスに掲載の記事・写真等の無断複製・転載を禁じます。", Replacement:=""
    Columns("A").Replace What:="NIKKEI*permission.", Replacement:=""
    Columns("A").Replace What:="2021*刊", Replacement:=""
    Columns("A").Replace What:="2021*電子版", Replacement:=""
    Columns("A").Replace What:="(c)*", Replacement:=""
    Columns("A").Replace What:="■*", Replacement:=""
    Columns("A").Replace What:="【*】", Replacement:=""
    Columns("A").Replace What:="クリックすると*", Replacement:=""
    Columns("A").Replace What:="#NAME?", Replacement:=""
    Columns("A").Replace What:="*一覧へ", Replacement:=""
    Columns("A").Replace What:="NikkeiViews", Replacement:=""
    Columns("A").Replace What:="*限定]", Replacement:=""
    Columns("A").Replace What:="〒*", Replacement:=""
    Columns("A").Replace What:="*@*", Replacement:=""
    Columns("A").Replace What:="*.co.jp", Replacement:=""
    Columns("A").Replace What:="*こちら↓↓↓", Replacement:=""
    Columns("A").Replace What:="新型コロナ特集ページへ", Replacement:=""
    Columns("A").Replace What:="2021年*更新)", Replacement:=""
    Columns("A").Replace What:="", Replacement:=""
    
    
    
    
    Columns("A").Replace What:="イラスト*Times", Replacement:=""
    Columns("A").Replace What:="(2021*com/)", Replacement:=""
    Columns("A").Replace What:="英フィナンシャル・タイムズ(FT)と*", Replacement:=""
    Columns("A").Replace What:="https*", Replacement:=""
    Columns("A").Replace What:="http*", Replacement:=""
    Columns("A").Replace What:="*NikkeiAsia*", Replacement:=""
    Columns("A").Replace What:="By*", Replacement:=""
    Columns("A").Replace What:="/*/", Replacement:=""
    

    Columns("A").Replace What:="西のぼる 画", Replacement:=""
    Columns("A").Replace What:="タケウマ 画", Replacement:=""
    Columns("A").Replace What:="初出から*日間お読みいただけます。", Replacement:=""

    

    Dim d As Long
    Dim i As Long
    Dim f As String


    
    
    
    Range("A1").Value = Date
    Dim a As String
    Dim b As String
    Dim c As String
    a = Range("A1")
    b = "news"
    c = a & b
    Range("A1") = c
    
    Columns(1).Copy

End Sub

この記事が参加している募集

よろしければサポートお願いします!