今朝は炊き込みごはん（１合）をやっと片づけました。みそ汁、紅ショウガでパクパク。
ごちそうさま～
WordVBA:川柳を並べる、できるだけ規則的に
17音の短詩「川柳」をできるだけきれいに並べるにはどうしたものかと、数日考えております。
- 賞と句と号を一行に収める。句内には空白を設けない
- 賞は、「天」「地」「人」の三才、⑤～①の佳作
- 入力時、賞と句と号の間隔は全角１文字
- 各行の先頭、末尾の位置は同じにする
- 表（テーブル）、空白追加入力でレイアウト調整しない
というような条件であります。
下の画像は、江戸時代に詠まれたものと思います。著作権は切れているのかと。また、字を加えたり削ったりしています。実際の作者が不明とか異なるとかイロイロですが、悪しからず。題も架空のものです。
全角の空白１文字のところに、赤、黄緑の丸印をしました。
「平抜」というのが佳作以下で、「賞」に関する文字はありません。「佳作」「三才」は、賞・空白・句・空白・号の順に並び、空白は全角１文字です。結果、段落を左寄せで作ると、末尾が揃いません。同均等にすると、句の先頭位置が揃わなかったりします。さて…。
どのような機能が使えるか、ちょっと悩んだです。
で、とりあえずの結果が以下のような感じです。
句と号の間（下図の青色部分）は、テキストとしては全角の空白１文字です。「字間」を調整しました。
行末を揃え、句と号の間には空白を追加入力せずになんとか実現できました。賞のある句の位置は、行頭から３文字目から始まっています。
今回の表示では何とか収まっているんですけど、実際には、行溢れがおこり２行にまたがったり、１行で収まっているものの行末が揃わなかったりという例がありました。
このあたりは、揃わなかった行に対する個別対応のＶＢＡが必要かもしれません…。
設定は、
- カーニング機能を停止
- 一行末尾から１文字ずつチェックし、最初の空白で作業位置（Range）を確定
- 一行設定字数と同使用字数の差から必要な字間を計算し、設定
というようなしかけです。
問題としては、きれいには末尾が揃っていない。ルビ文字数によって、計算結果と現実の配置のずれを吸収できず、表示崩れにつながりました。これは、それだけに対応する簡単なＶＢＡを書いて解消するのが目の前では簡単そうです…おそらく…。
夕食：酒を飲んだら、何を食べたか忘れてる
短期記憶の消失は、酒を飲むことによってより進行するみたいです。
なにせ、昼食のことを思い出そうとしてたら、それと引き換えにというべきか、夕食のことは脳みそから消えていた…ヴィェ～ン
ニンジン、青物野菜、鶏肉を使って、爺的ナムル（≒ほぼ「もどき」…）
大根の煮物は本日も少し残った…。スープは、中華出汁とタコ、油揚げに青物をパパッと。
麦酒と久しぶりにマッコリ、ごちそうさま～
昼食：何を食べたか忘れてる。短期記憶の消失…
爺度、絶賛進行中であります…。
昼に何を食べたか、写真を見るまで思い出せなかった…( ;∀;)。
ブロッコリーと鶏肉の煮物を追加、紅ショウガ、などで食べました。写真を見るとそうなっている。
WordVBAに関心がいってて、食事のことが脳みそから押し出されてる…。
散歩：花粉症にやられてる？
朝の散歩が終わって室内に入ると、鼻水がつづく。ヒノキ花粉にやられてるのか？ ４月上旬までは平年よりも花粉が多いというのにもかかわらず体調バッチリだったのに、ここ何日かで急に花粉症の症状…( ;∀;)。
たばこポイ捨て
吸殻処理、昨夕６本、今朝８本
公園
西公園、異常なし。吸殻、ペットボトルなど残ったまま…。
独居見守り
昨夕、室内灯、自動車、カーテン、玄関灯
今朝、カーテン、新聞、カーテン、玄関灯
西大寺ＦＧ道路（ＦＧ＝糞害）
昨夕、今朝とも新たなオトシモノは見えませんでした。
その他
水路、柵にかかった藻、上げてあった。ご苦労様
今朝は、段ボールなどの資源回収日。子ども巡回月に通年お手伝いいただくかたのところへ、Ｏ副会長とあいさつに行った。
朝食：みそ汁と炊き込みごはん、サバ切り身を焼いた
朝食は、炊き込みごはんと味噌汁。今朝のみそ汁はよく出汁が出た。少し高い出汁パックを使ってみた結果かな…。
昨日は買い物に行った。サバの切り身がおいしそうだったので買ってきた。今朝、焼いて食べた。まずまず。
大根と高野豆腐の煮物は、昨夕に作ったもの。味が滲みてさらに食べやすくなっていた。でも、大根結構高い。
夕食：酢の物、大根、こうや豆腐の煮物
調理をした方がストレス解消になる…。でも時間消費が惜しいときもある…。
今晩は、アサリのスープ、酢の物、大根と高野豆腐で煮物、そして炊き込みご飯を作った…。
ごちそうさま～
あ～バタバタ
