教育

夜9時、お腹をすかせてだんなの帰りを待っていると、チャイムが鳴った。
なんだこんな時間に非常識な。と、出ると、明らかにだんなである。
どうしたのか、と問いながら鍵を開けると、妙なテンションのだんなは「荷物が多すぎてかばんがめちゃくちゃ重くて」と。
ああ両手がいっぱいで鍵を開けれなかったのねと荷物を受け取ろうとしたが、その両手には空のペットボトルと会社の車の鍵のみ。
荷物多くねえ。てゆうか鍵どこよ。意味の分からない私がおそらくものすごく怪訝な顔をしたのであろう、だんなが付け加えた。

「かばんに鍵つけてるから！」（引き続き妙なテンション）

まだ話がつながらない私の目の前で、だんなは玄関ドアの鍵を閉めた。
ここでようやくおぼろげに話が見えてきたワタクシ。
現在のだんなの脳内を３行でまとめると、

　今日の仕事かばんは荷物でぱんぱん！　重すぎ！
　どうせ明日会社に持ってくし、かばんにつけてる鍵ごと、車においてけばＯＫ！！
　超名案俺偉！！！

ええとーーーーー
全国で年間４０万件ほど発生している車上荒らしについてどう思う？
それ全件ロックし忘れだと思う？？
でっ、目の前にその鍵で開く家の扉（裏口も）と、それに一緒についてる鍵で動く新車マイカーがあるの分かってる？？？
てゆっか家の鍵、かばんにザイルみたいな金具でつないでるだけだろうがよ・・・
「鍵取りに行かないの？」と、静かに言ったところ、何かに気づいたらしく、気まずそうに取りに行ったが。

晩御飯後回しにして小一時間問い詰めたかった・・・

仮置き

とりあえず会社で明日使う用にアップ。
エクセルで差込ファイルを作成してワードファイルを開くのに、エクセルひらきっぱだと差込失敗するのでその対応。
ああ、ワードファイル開いてればいったん閉じる操作もしないとだめか。そこまではとりあえず無視だ。
エクセルファイルのシートを同ディレクトリに特定ファイル名で保存して閉じる。
で、ワードの特定ファイルを開く。
ひらがなの部分を実際のファイル名にする。
そのうちちゃんと解説書くけど今日はここまで。
2003で動作確認、2007で動くのか不明。

Sub hozon()
Dim exfile As String
Dim exname As String
Dim wdfile As String
Dim wdname As String

exname = "エクセルファイル名拡張子付"
exfile = ActiveWorkbook.Path & exname

Sheet1.Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs filename:=exfile
ActiveWorkbook.Close

wdfile = "ワードファイル名拡張子付"
wdname = ActiveWorkbook.Path & wdfile

Dim wdobj As Object
Dim wdbook As Object

Set wdobj = CreateObject("Word.Application")
wdobj.Visible = True

Set wdbook = wdobj.documents.Open(wdname)

End Sub

でもってワード側のマクロ。

現在のレコード出力

With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
.LastRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
End With
.Execute Pause:=False
End With

レコード別ファイルで全出力

ActiveWindow.Panes(1).Activate
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=False
End With

ファイル名は
"支出伺"　＆　"日付"　＆　"任意の文字列".doc
とする。
日付取得のためにシートのどこかにこっそり起案日を差し込んどく。
これを変数に取り込んで、「エクセルファイルと同じフォルダに以下のファイル名で保存されます」のメッセージとともにユーザーフォームに表示。
任意の文字列をテキストボックスで入力できるようにし、あわせてファイル名の変数として取得。

＆ファイル名をつけて保存
ActiveDocument.SaveAs FileName:=　ファイル名の変数

＜追記＞
2007でフィルタリングつけて差込印刷したのでいろいろあって使えなかった・・・俺の苦労は・・・

まだまだ続く？

断水は我が家では一時収束したものの、おおもとの浄水施設は壊れたままで、他の地区はまだまだ断水継続中の中、またもやの大雨でガクガクブルブルしているワタクシである。また家の前の川が増水してきた。
つらい生活に向けてまたちょっと用意を進めておこうと思う。必要なことをして必要なものを買う。また、今後同じことがあったときのために必要なものをリストにしておこう。

＞断水生活で助かったもの
◎ごはん炊き溜め：事前に炊いておいてラップに包んで冷凍しまくった。米を洗う＋米を炊く＋炊飯器を洗うのは水が大量に要る。
◎ウエットティッシュ：ふきんは濡らせない＆洗えない。ビバ使い捨て。
◎定番の紙皿・紙コップ・割り箸、そしてポリラップ：洗い物なんてできねぇ。ポリラップは紙皿のないときとかに皿にしいて使うと洗い物が出ない。ビバ使い捨て。
◎セブンイレブンのレジ横揚げ物w：紙の入れ物で簡易包装なんでゴミがほとんどでない。普通の惣菜は容器がかさばるゴミになるし、うちではしかも洗わないと出せないプラスチックゴミなのだ。。
◎液体はみがき：普通のはみがき粉じゃあすすぎにすごい水がいる。
◎電気温水器：夜間湯を沸かして溜めて保温しておくタイプなら、タンクに溜まっている水が非常時に使える（風呂は溜めれない・シャワーから湯はでない）。非常用取水口は屋外とはいえ、自宅に３００リットル以上貯水できているのは安心だ。

＞ちょい不便だったこと
◎ポリタンク：普通に入れるだけのにしたら（というかもうそれしかなかったのだが）取出しが大変。キャンプ用の蛇口付にすればよかった。
◎バケツ：風呂水をトイレに使っていたが、ペットボトル移動は時間がかかって大変だった。絶対バケツ必要。
◎ろうと：ポリタンクがざっくりでかい注ぎ口だから、そのままじゃペットボトルとかに詰められない。蛇口付ポリタンクならいらないが。

しかしもうこんな目には遭いたくないが。
雨、もうあがれー！　せっかくチケットが取れたオールスター戦も見れないじゃないか！！（←こんな中でも行く気満々）

第３日目

朝起きたとき真っ先にすること。
私、猫ちゃんにごはんをあげる。そしてその間にだんな便所。そのあと私が便所の番なのであるが、断水だと水の補充があるので時間がかかる。
待っているのもあほらしいので別のことをやりかけていると、便所から勢いよい水音がした。
あきらかにだんなのしょんべん音ではない。こんなに出たらだんなはひからびる。
つまり、つまりは、

給水が回復していたのだ！！イヤッホー！！！

小躍りしながら便所に駆け込んで出すものを出してトイレを流し、タンクに自動的に水がためられ始めるのを確認、さらに小躍り。
今まで知らなかったがコレは本当に便利で幸せなことだお。
水洗便所を考えた人は天才だお！

第２日目

睡眠不足でへろへろ＆水下痢継続中であるが、仕事にはいかねばならない。
というかこれ以上家にいると水の残量が危険なことになるので会社のほうがマシ。
昨日朝、渋滞を予想して家を早く出たところ早く会社につきすぎたため、今日は普通に家を出てみた。

家を出た瞬間、メイン道路に続く小路すら渋滞しているのが見えた。
しかも見ている限りわずかも動かない。この渋滞の先につながる太い道に出たいのであるが、その太い道が私の行きたい方向とは逆方面が限りなく渋滞しているため、この小路から脱出できるのはかなり先の話しになりそうだ。これは、抜け道を通ったほうが早いであろう。
私は渋滞を避けるため、いつもは絶対通らない抜け道に向かった。

なぜいつもは通らないかというと、道が狭く行き違いが困難なのに対向車がすごいスピードで突っ込んできて怖いからである。
でも遅刻はカンベンであるため、とりあえずゴー！

しかし突っ込んだ抜け道は、対向車でみっちりであった。
いや、メイン道路が無茶苦茶に混んでるんだから抜け道混んでるの当たり前だろ・・・。
毛ほども傷をつけたくない（もう凹んで直したけど！）新車を、最新の注意をはらって電柱と対向車の隙間を通す。
えんえん通す。
で、ようやく切れた渋滞を抜けると、本格的に行き違いできないゾーンの、はるか向こうからすごいスピードで突っ込んでくる数多くの対向車が。
判断を誤った寝ぼけた頭を激しく殴りつけたくなった。

第１日目（４）

なにゆえ今、ということが起こるのが、トラブル発生時の常である。
それはまさに現在のわたくし@トイレ。現在時刻夜中四時半。ステータスは水下痢中。

一回目目覚めたとき、眠気に負けて水の補充をぶっちした。
すると二度目困った。
三度目がくるにあたり、きっちり補充したのであるが、すっかり目覚めてそれから寝付けずそのまま現在四回目。

蛇口をひねれば水が出る生活のすばらしさをココロから思い知ったお。
今日仕事無理ぽ。

第１日目（３）

水がなくなって、風呂よりも切実なものがある。

ずばり便所である。

風呂は死ぬフラグ立とうが心が死ぬくらいで我慢できぬことはたぶんない。
しかし出すもの出さんとリアルに体に悪い。
そして水洗便所ほど水を食うものもあまりないと、昔、水道管の破損でえらいめにあったことのある姉ちゃんから聞いていた。

実際やってみると、本当に面倒だ。
１回に使う量は我が家の便所でペットボトル（大）３本以上。それをコトが終わるたびに補充する必要がある。
その方法は、だんなの提案により、使用後に空になった便所の水タンクにペットボトルから水を足す、というものとした。

タンクの蓋を開け、ペットボトルを逆さにしどぼどぼと水を注ぎ込むと、なんか足に飛沫が散っている感触がある。
タンクなのになんでじゃい。意味がわからんけどまあええか。
と、昼間の肉体労働と断水でいろんなことがどうでもよくなっている脳で流していると、床がきらめくのが見えた。

・・・もうここまでご覧の皆様は予想済みかと思うが、床が水浸しであった。
思わず叫びを上げつつタンクを見ると、昔のトイレと違ってタンクのすべてが水をためるための容器なのではなく、タンクの中に収められている容器こそが、便器に供給される水を入れるべき部分なのであった。
そのほかの部分は、普通に空洞で下部には巨大な穴。
穴から床が丸見え☆
しかも私の叫びを聞いて「どうしたのー」ってだんな来たお☆

本日の貴重な水１リットルのおかげで便所の床が大変きれいになったお。
喜ばしいことだお。

第１日目（２）

夕方現在、体育会系男子高校生並みに臭いわたくしである。
しかし我が家の給湯器はお湯を夜中にわかして貯めておく式。前給湯器が壊れてお湯を沸かせなくなったときも、シャワーだけは使えたという実績がある。
と、いうわけで、くっさい体を流そうとお風呂に突撃してみた。

でませぇぇぇぇん。

風呂に入る前、友達から「熱いのうめる水なけりゃダメなんじゃあ」と冷静な突込みを受けていたのであるが、そのとおりであった。
では仕方ない。すでに水の溜まっているバスタブに差し湯として追加すればいいのではないか？？　という思いつきのままに、「高温差し湯」のボタンを押してみた瞬間、リモコンの液晶に、

「おま、断水じゃねーかＹＯ！　わかっとんじゃコラ！　湯ぅなんか出せるかボケ！　諦めやがれ！！」（意訳）

というメッセージが表示された。
とりあえず水浴びたお。
臭いお。

第１日目

会社の敷地内の清掃が予定されていた本日。
お天気はちょっと紫外線強めの曇り空であったため、普通に決行される。

しかし雨上がりのためか湿度おそらく１００％近くである。清掃の内容は植木の剪定・草取り。開始後５分で顔から汗が垂れてくるわたくし。そのまま朝から２時間作業。

今日一日自分がクサかった。
で、帰宅したら断水だった。
いきなり死亡フラグ立ったお。

キタコレ

断水キタ━━━━━━＼(゜∀゜)／━━━━━━ !!!!

とりあえず昨日のうちにためた水はあるし、温水器に湯は満タンだから今日明日は乗り切れそうだが、復旧には１週間、最長２週間はかかるというウワサ。

これからど真夏ってときに風呂洗濯アウトってどう？
もうネタにするしか生きるすべが見当たらんお・・・
というわけで今日からリアル断水生活実況イクぜ！（もう自棄）