2012-01-13
■生徒を育てるコツ１０か条
思いっきり元ネタほとんどそのままですが、昔メモしていたのが見つかったので、参考までに。
生徒⇒子ども、としてもいいかもです。
１．生徒に希望を与え、プラス発想をさせる。
２．納得できる方向づけを与える。
３．長所を引き出し、活用する。
４．ほめる。
５．できるだけ任せる。
６．話を聞く。
７．具体的な目標を示す。
８．（学校として責任のとれる範囲で）したいことをさせる。
９．生徒を差別しない。
１０．生徒に学び、感謝する。
（船井幸雄著『ツキを呼ぶコツ』（グラフ社）より改変）
| 書籍 | 書籍名（出版社） | 概要 |
|---|---|---|
 | マンガで読む 船井幸雄のツキを呼ぶコツ 船井 幸雄 著 (グラフ社) | 「ピンチはチャンス」「波動の法則」「百匹目の猿現象」など、成功や幸運を手に入れ、上手に生きるための船井理論を、若い人や女性も気軽に楽しめるようにマンガでやさしく... |
Permalink | 00:18 
2012-01-02
■LibreOfficeを使う10の理由
LibreOffice雑記帳なるブログを作成して、LibreOfficeに関することをあれやこれやとまとめておこうかと思いました。
まあ、今後経費節減のために、お役所等で採用する所が増えそうな気もしますので、少しは参考になる記事が書けるといいな。
で、最初が、LibreOfficeを使う10の理由: LibreOffice雑記帳
Permalink | 16:37
■[Twitter]2012/01/01のつぶやき
@fio_tz: 1年を振り返るのは、新しく一歩を踏み出すためであって、振り返ること自体を目的にしてはいけない
2012-01-01 07:42:51 via web
@fio_tz: 君は勉強の仕方を探している。本当は勉強の仕方ではなくて、実際に勉強することこそが重要だとわかっているんだろうけれど
2012-01-01 07:42:35 via web
Permalink | 00:15
2011-12-26
■[Twitter]2011/12/25のつぶやき
@fio_tz: 過ぎ去ったことはくよくよしない。教訓を残してよしとしよう
2011-12-25 08:55:38 via web
@fio_tz: モラルの低下はまず大人から始まっている。子どもは大人の言う通りでなく、大人のやる通りに動く
2011-12-25 08:55:16 via web
@fio_tz: 自分の専門分野のトレンドを人に聞かれた時に、ただちにわかりやすく説明することができるか。できなければ専門分野とは言わない
2011-12-25 08:54:48 via web
@fio_tz: 無茶と無理は違う。無茶は二人称で無理は一人称だ。周りからは無茶に見えても、本人は無理などせず余裕で実行していることもある
2011-12-25 08:54:30 via web
@fio_tz: 悩みは時とともに取るに足らないものになってしまう。君は1年前の悩みをどれだけ覚えているだろうか。同じように、1年後の君は今の悩みをどれだけ覚えているだろうか。
2011-12-25 08:53:45 via web
Permalink | 00:09
2011-12-25
■Word2007文書をWord2000文書に変換するスクリプト
我が家ではMS Office2000が現役なのですが、最近2007の文書（拡張子が.docxだったり.xlsxだったりする文書）が増えて面倒この上ない所です。
そこで取りあえず、D&Dで受け取った.docx文書を.doc文書に変換するスクリプトです。MS Office2007以上が必要ですが、Word/Excel/PowerPoint 用 Microsoft Office 互換機能パックをインストールすればMS Office2000があればいけます。
docx2doc.vbsなど、拡張子を.vbsにして保存してください（名前はなんでもOK)
MS Office2000もなければ、変換など考えずにLibreOfficeで編集するのがオススメです。
Set FS = CreateObject("Scripting.FileSystemObject") Set objArgs = WScript.Arguments j = 0 Set myWord = CreateObject("Word.Application") '動いている所を見たい時は次を有効にします 'myWord.Visible = True For i = 0 to objArgs.Count - 1 FileName = objArgs(i) FolderName = FS.GetParentFolderName(FileName) Select Case LCase(FS.GetExtensionName(FileName)) Case "docx" Set myDocument = myWord.Documents.Open (FileName) myDocument.SaveAs FolderName & "\" & FS.GetBaseName(FileName) & ".doc",0 myDocument.Close j = j + 1 End Select Next myWord.Quit Set FS = Nothing Set myDocument = nothing Set myWord = nothing msgbox j & "個のファイルを変換しました"
Permalink | 09:54
