Firefoxのアドオン「URLs List」のリストをExcelマクロで「はてな記法」に変換、ブログに貼り付けた

 10日の iPSひまわりで何気なく(たぶん)出た質問。
常々「本書(Word2013基礎)の範囲を超えるご質問にはお答えできません」,「質問は掲示板にアップを!」とお願いしているが、守られないのについつい応えてしまう悪い癖、今回を機に改めて改めよう‥‥ と決意した(たぶん)
と言うのも、質問を受けて帰宅後、回答のブログ「Windows10のスクリーンショット Win+PrintScreen、OneDriveに保存 より気楽に使える‥‥かも」を三日掛かって書いたのに、「質問は何だったっけ?」「的外れになっているのでは?」...

 前述のブログを書くのに、グーグル先生にお世話になった。その時のブラウザーがタブで一杯になった‥‥

]
Firefoxの[タブ一覧表示]した画面

  • 直接関係ないサイトも開いているが、三日間で溜めたページは21。
  • 一日で書き終らないので、休止状態で翌日、翌々日に引き継ぐ‥‥
  • 日ごとにWebページが増えるので、メモリーも食うし、ゴミも溜まるだろうから動作もとろくなる...


Firefoxのアドイン URLs Listの一覧をはてなブログにつなぐ Excelマクロを作成

 URLs List は、f:id:ogohnohito:20190921094449j:plain:right:w320以前、Firefoxに追加したアドオンであるが使い切れていない。上図の[タブ一覧表示]のように加工したいのだが...
 閃いたのが、

  1. 右図で[Copy]し、
  2. Excelに貼り付ける。
  3. Excel マクロ(VBA)で、はてな/http記法でテキスト出力し、
  4. ブログに貼り付ける‥‥
URLsListから作成したテキスト

 はてな記法を無効にするため、行頭にスペース( )を入力してある。

 ***URLsList(2019-0914-1005)
 +[http://radiko.jp/#!/live/JOFK:title=]
 +[http://vdeep.net/snipping-tool#i:title=]
 +[https://www.google.com/search?client=firefox-b-d&sxsrf=ACYBGNRHLLMm4IxZ4elJsUT3EHwOq4xIQg%3A1568243595625&ei=i395Xa7qJdTmwQPyuK6wBg&q=Windows10+OneDrive+%E4%BD%BF%E7%94%A8%E4%B8%8A%E3%81%AE%E6%B3%A8%E6%84%8F&oq=Windows10+OneDrive+%E4%BD%BF%E7%94%A8%E4%B8%8A%E3%81%AE%E6%B3%A8%E6%84%8F&gs_l=psy-ab.3...23124.53445..55482...1.0..1.544.3659.6j22j5-1......0....1..gws-wiz.......0i131i4j0i4j0j35i39j0i131j0i4i30j0i8i4i30j33i10i42.BSXp-lE7f_g&ved=0ahUKEwju28DT8snkAhVUc3AKHXKcC2YQ4dUDCAs&uact=5:title=]
 +[https://azby.fmworld.net/usage/closeup/20180926/?supfrom=top_pickuptext:title=]
 +[https://www.atmarkit.co.jp/ait/articles/1304/24/news105.html:title=]
 +[https://kamechan5.net/:title=]
 +[https://xn--n8j8a8azbu8637bt2aj3tzzevo9i.com/page-738/:title=]
 +[https://ogohnohito.hatenablog.jp/entry/20171016/p1:title=]
 +[https://www.wordvbalab.com/page-1337/:title=]
 +[https://www.wordvbalab.com/code/1330/:title=]
 +[https://tonari-it.com/word-vba-macro-shortcut-key/:title=]
 +[https://tonari-it.com/word-vba-insert-before-after/:title=]
 +[https://pcmanabu.com/windows-10-one-drive/:title=]
 +[https://meaning.jp/posts/3053:title=]
 +[https://dictionary.goo.ne.jp/jn/253769/meaning/m0u/:title=]
 +[https://www.google.com/search?client=firefox-b-d&sxsrf=ACYBGNS-qw1OjPtq6xxDRQ5rDUcqDKZLfQ%3A1568346018571&ei=og97XbSwItOA-QbXvonwCg&q=https+%E8%B2%BB%E7%94%A8&oq=HTTPS&gs_l=psy-ab.1.1.35i39l2j0i67j0j0i4l2j0j0i4.68959087.68966031..68971184...1.0..0.134.745.0j6......0....1..gws-wiz.......0i131i4j0i131.dxIXfwz5OgE:title=]
 +[https://www.keyman.or.jp/kn/articles/1902/04/news013.html:title=]
 +[https://www.cpi.ad.jp/column/column08/:title=]
 +[https://www.vector.co.jp/soft/win95/util/se157875.html:title=]
 +[https://japan.norton.com/what-is-https-8564:title=]
 +[https://ogohnohito.hatenablog.jp/:title=]

上記テキストをブログにはりつけると‥‥
URLsList(2019-0914-1005)
  1. radiko(ラジコ) | ラジオがインターネット(アプリやパソコン)で無料で聴ける
  2. Windowsで好きな領域をキャプチャする「Snipping Tool」使い方 | vdeep
  3. Windows10 OneDrive 使用上の注意 - Google 検索
  4. OneDriveの活用でパソコンが使いやすくなる - FMVサポート : 富士通パソコン
  5. OneDrive入門−基本の仕組みから同期、共有まで (1/2):まだ知らない人のOneDrive - @IT
  6. kamechan5 Windows10 ペイントの使い方 Windows10 ペイントの使い方
  7. 標準装備のペイントを使いこなそう!基本の使い方をまとめました<Windows10> | 小さな会社の事務員です。
  8. Windows10のOneDrive、便利だからと初期設定のまま使うのはヤバイかも... - まりふのひと
  9. Wordマクロ一覧(用途別) | みんなのワードマクロ
  10. 【コード】選択されている文字列を、文書内で強調表示する | みんなのワードマクロ
  11. Word VBAで作成したマクロをショートカットキーに登録する方法
  12. Word VBAで選択範囲の前後に文字列で挿入するマクロを作る方法
  13. 【朗報】Windows 10のOne Driveは、ローカルアカウントで使用できる PCまなぶ
  14. 「成り行き」とは?意味や使い方を解説! | 意味解説
  15. cloud(クラウド)の意味 - goo国語辞書
  16. https 費用 - Google 検索
  17. 費用は? 無料版は? いま知らないとマズい企業Webサイト常時SSL対応の基礎 (1/3) - キーマンズネット
  18. SSLは無料と有料で何が違うの!?今さら聞けないSSLの仕組みと導入のメリット
  19. クリップボードの画像自動保存ソフトの詳細情報 : Vector ソフトを探す!
  20. httpとhttpsの違いとは? 知っておきたいウェブセキュリティの常識と今後
  21. まりふのひと
VBAソース

 昔の方法を今でも...

01.'作成:2019-09-14 Excel マクロに変更して完成した。
02.'作成:2019-09-13 Word マクロで作ったが‥‥
03.Public Sub URLaListのはてな記法出力()
04.Const HatenaURL As String = "はてなURLsList.txt"
05.Dim r As Long
06.Dim dsn As Long
07.Dim lastRow As Long
08.Dim inpURL As String, outURL As String, URLsList As String
09.
10.  If Range("A1") = "" Then Exit Sub
11.  dsn = FreeFile
12.  URLsList = ThisWorkbook.Path & "¥" & HatenaURL
13.  Open URLsList For Output As #dsn
14.  Print #dsn, "***URLsList(" & Format(Now(), "yyyy-mmdd-HHMM") & ")"
15.  lastRow = Cells(Rows.Count, 1).End(xlUp).Row
16.  For r = 1 To lastRow
17.    outURL = "+[" & Cells(r, 1) & ":title=]"
18.    Print #dsn, outURL
19.  Next
20.  Close #dsn
21.    '出力したファイルをメモ帳で開く。
22.  LNGAns = Shell("notepad.exe " & URLsList, vbNormalFocus)
23.  If LNGAns = 0 Then
24.    MsgBox "メモ帳の起動に失敗しました。"
25.    Exit Sub
26.  End If
27.    'Excelは保存して閉じる。
28.  Application.Quit
29.  ActiveWorkbook.Close SaveChanges:=True
30.  ThisWorkbook.Close SaveChanges:=False
31.  
32.End Sub