宛名印刷関連FAQは Excelを［Webページとして保存］したもので、タイトルもなく寂しい限りであったが、
宛名印刷関連 FAQ
「日付」をクリックすると、関連記事（「まりふのひと」のブログ）を見ることができます。
| 件名 | 日付 |
|---|---|
| 筆ぐるめ/宛て名印刷前に作るチェックリスト（住所録） | 2012/11/30 |
| 筆ぐるめ/住所録を結合する（二つの住所録を一つにする）には | 2012/11/23 |
| Excel95〜2003の住所録を「筆ぐるめ」に移すには | 2012/11/22 |
| 筆ぐるめ/宛名（住所録）の一覧表を印刷する | 2012/11/19 |
| 筆ぐるめの画面構成 | 2012/11/13 |
| 筆ぐるめ/初めての住所録のバックアップ | 2012/11/13 |
| 筆ぐるめ/住所の県名を一括非表示にする | 2012/11/07 |
| 筆ぐるめで郵便番号を調べるには | 2012/11/06 |
| 筆ぐるめで宛て名のフォントの大きさを変えるには | 2012/11/02 |
| 筆ぐるめ/宛て名の住所を2行に表示するには | 2012/11/01 |
| 筆ぐるめ/住所録を分割するには | 2012/10/31 |
| 筆ぐるめ/起動時に出る「画面解像度」の警告 | 2012/10/31 |
| 筆ぐるめ/喪中や欠礼の人を印刷しないように設定する | 2012/10/30 |
| 筆ぐるめ/CSV形式の住所録を読み込むには | 2012/10/23 |
| 筆ぐるめ/筆まめ/筆王 年金生活者に優しい「住所録」は筆まめ？ | 2011/12/20 |
| プレインストールの「筆王」を探し、起動アイコンを作った | 2011/12/18 |
| 筆ぐるめでタックシールを登録し試した | 2011/12/17 |
| 筆ぐるめ/差出人に連名を入力したのですが表示されません | 2011/12/06 |
| 筆まめ住所録にインポート可能な項目 | 2011/12/05 |
| 筆ぐるめの宛て名印刷で2行目の住所が漢数字になりません | 2011/12/02 |
| 筆ぐるめ起動時に「ナビ」を表示しないようにするには | 2011/11/17 |
| Excel住所録を筆ぐるめに移すためのCSVファイルの作り方 | 2011/11/17 |
| CSV(カンマ区切り）形式ファイルとは | 2011/11/17 |
| 筆ぐるめver.17で喪中の方を除いて宛て名を印刷するには | 2011/11/16 |
| Excel2010/エクセル住所録をCSV形式で保存する | 2011/11/16 |
| 筆ぐるめver.17でCSV形式の住所録を読み込む方法 | 2011/11/14 |
| 筆ぐるめにExcel住所録の「欠礼」のような機能は無いようだ | 2011/11/11 |
| 筆ぐるめの住所録をCSV形式で保存した時の項目名 | 2011/11/05 |
| Excel住所録の「筆ぐるめ」移行を検討している... | 2011/11/03 |
| 筆ぐるめに出てくる『Jアドレス形式』ってどんなファイル？ | 2011/11/01 |
VBAコード
コードとしては、まだまだ未熟...
Public Function makeはてなTextTable(argPath As String) As Boolean
On Error GoTo Error_makeはてなTextTable
Const OutFileName As String = "はてなTextTable.txt"
Dim mbTitle As String
Dim myFSO As Object, myTS As Object
Dim lngRow As Long, lastRow As Long
Dim strDate As String, strTitle As String, strAddress As String
mbTitle = MyObjName & "/makeはてなTextTable"
Set myFSO = CreateObject("Scripting.fileSystemObject")
Set myTS = myFSO.CreateTextFile(argPath & "\" & OutFileName, True)
myTS.writeline "|*件名|*日付|"
Range("A1").SpecialCells(xlLastCell).Select
lastRow = ActiveCell.Row
For lngRow = 2 To lastRow
Cells(lngRow, 1).Select
strDate = Cells(lngRow, 1)
strTitle = Cells(lngRow, 2)
strAddress = Cells(lngRow, 2).Hyperlinks(1).Address
myTS.writeline "|" & strTitle & "|[" & strAddress & ":title=" & strDate & "]|"
Next
myTS.Close
makeはてなTextTable = True
Exit_makeはてなTextTable:
Exit Function
Error_makeはてなTextTable:
MsgBox Err.Number & Err.Description, vbCritical, mbTitle
Resume Exit_makeはてなTextTable
End Function
