🏫成就解鎖！第一次對小一生介紹尼泊爾就上手！
.
.
剛開學時，我兒子的班導在Line群組邀請家長們到班做早自習分享，內容和方式不拘，可以是說故事、做勞作、帶遊戲……。我兒子很想要我去，但我就不會講故事、沒有美術細胞、更是四肢不協調，我能做什麼啊！？
.
「媽媽，妳不是會去跟大家介紹尼泊爾嗎？妳也可以來我們班上介紹尼泊爾啊！」
「媽媽可以去介紹尼泊爾嗎？別的小朋友的媽媽都是去講故事耶，我怕他們不喜歡我講尼泊爾。」
「媽媽，妳會表現很好的，而且妳可以來好幾次，一次講尼泊爾，一次講印度，一次講喀什米爾，一次講馬來西亞，一次講泰國……媽媽，妳還有去過哪裡？」
.
我不知道我兒子哪兒來的信心，我還是先挑我比較有把握的尼泊爾來講好了！
.
坦白說，之所以答應兒子到班分享，我另有目的。
.
去年9月決定要返台後，我不只一次幻想過小孩因為「不一樣」而被另眼相看甚至被取笑的劇情。雖然情況不嚴重，但小孩確實有在安親班被取笑過，好在老師都很快地處理了、事件暫時告一段落。事後，我深刻地反省，我非常謝謝老師當時出面制止，然而，我覺得我不能要求別人，應該是教導孩子日後如何面對、如何讓自己的心理夠強大。此外，孩子們還小，只是覺得「他怎麼跟我們不一樣」，並不是真的有惡意，於是我想藉由這次早自習分享，讓孩子們了解「他以前不住台灣所以跟我們有一點不一樣」，甚至希望他們覺得「尼泊爾好酷！」
.
雖然有這樣的理想，但一直以來，我的分享會的對象都是大專院校以上，這是我第一次對小孩介紹尼泊爾，不太確定他們會對什麼有興趣、能聽懂什麼，花了一些時間構思內容與呈現方式。到了分享日的前一週開始製作簡報時，這才發現，這powerpoint簡報超難做的啊，因為才小一，應該要標上注音，雖然word裡可以標注音，但到了powerpoint就會格式跑掉。我只好土法煉鋼，每個注音符號拉一個文字框，所以光是「尼泊爾」3個字就要11個文字方塊、結合群組，再一一微調位置，比我平常做簡報要多花了好多時間。
.
分享日前幾天，我突然壓力山大，因為別的家長都是講故事、帶遊戲，還會送小朋友們筆記本、貼紙、玩具，我很怕他們對於我這種分享沒興趣，我兒子還鼓勵我「媽媽，妳會表現很棒的！」
.
終於到了分享日，我的預期跟現場實際情況完全不一樣：
.
▲我在開場白之後放了一張波卡拉的湖光山色照片，想讓大家說「好漂亮喔」，沒想到有小朋友說「你們住鄉下嗎？」
.
▲為了增加互動，我設計了一些提問，怕大家不願意參與、現場靜悄悄，買了一些筆記本要鼓勵（賄賂）小朋友回答，沒想到，大家超踴躍的，常常還來不及舉手就有人講出答案了。
.
▲介紹Dal Bhat，「我都吃3碗飯」、「我喜歡吃辣」、「我夏天都不想吃飯只想吃冰」……小朋友們熱情地跟我分享他們的飲食習慣與喜好。
.
▲我現場穿紗麗給大家看，希望他們說「好厲害」或「好好看」，但小朋友說的是「好像木乃伊」。
.
▲我帶了6件披巾，問問有誰想試穿紗麗，沒想到全班女生共十幾個全都舉手，甚至還有幾個男生也想體驗。
.
一個接一個的「意料之外」接踵而來，早自習時間就到了，我甚至還來不及分享尼泊爾的童玩（是的，我手工製作尼泊爾童玩，一人一個共29個），好吧，看來「超時」這一點就是我的個人特色，不管對大人、對小孩，始終如一！
.
「媽媽今天表現得好不好？班上同學開心嗎？」下午接兒子時，我迫不及待地問。
「媽媽，妳太厲害了！」
.
呼～我終於放心了，孩子滿意就好。是說，下次我要分享什麼呢？
.
.
圖說：為保護孩子們，就不放現場照片了！
word 文字方塊 位置 在 Re: [算表] word vba文字方塊位置問題? - 看板Office 的推薦與評價
※ 引述《ptguitar (佩蒂吉他)》之銘言：
: 軟體:excel,word
: 版本:2007以上
: 我想在excel內寫入word
後來加入文字框方式不好調整位置
改用文字加入外框方式
不過不知道是哪邊思考錯誤
一直出現沒有物件錯誤訊息
With WdObj
.Visible = False '執行時候不要看見word
.Documents.Add '增加一個新的word檔案'
.ActiveDocument.PageSetup.TopMargin = 71 '上邊界
.ActiveDocument.PageSetup.BottomMargin = 71 '下邊界
.ActiveDocument.PageSetup.LeftMargin = 71 '左邊界
.ActiveDocument.PageSetup.RightMargin = 71 '右邊界
.Selection.Font.Size = 36
.Selection.Font.Bold = True
.Selection.Font.Name = "標楷體"
.Selection.ParagraphFormat.Alignment = 2
With WdObj.ActiveDocument.Selection.Font.Borders
.LineStyle = Options.DefaultBorderLineStyle
.LineWidth = Options.DefaultBorderLineWidth
.Color = Options.DefaultBorderColor
End With
.Selection.TypeText Text:="密件"
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 60.250.67.77
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1492153266.A.944.html
我寫這樣 會跟我說參數無效.....
.Selection.TypeText Text:="密件"
.Selection.Movestart Unit:=wdCharacter, Count:=2
With WdObj.Selection.Borders(1)
.LineStyle = Options.DefaultBorderLineStyle
.LineWidth = Options.DefaultBorderLineWidth
.Color = Options.DefaultBorderColor
End With
※ 編輯: ptguitar (223.137.115.198), 04/14/2017 20:12:13
檔案
https://drive.google.com/open?id=0BwCgrQhGgaw7RExDajUyWTdEc0E
我改成count:=-2
.Selection.Movestart Unit:=wdCharacter, Count:=-2 這段
直接用word裡面貼上巨集可以成功
可以上面檔案從excel就不行
※ 編輯: ptguitar (223.137.115.198), 04/14/2017 20:26:10
... <看更多>