不囉唆，秒殺課文填充題製作，只要是文字，通都可以，管你是中文、英文、德文、日文還是火星文

直接複製原始碼到VB裡執行， 如果不會操作，請看小弟影片介紹， 如果可以也請按讚訂閱分享， 讓我擁有更多鼓勵可以製作分享更多優良的備課方法及影片。 Copy the source code directly into VB and run it. If you don't know how to operate, please watch my video introduction. If possible, please like, subscribe, and share, so that I can have more encouragement to create and share more excellent lesson preparation methods and videos. Sub 填充取代() Dim 查找 As String, 替換 As String, i As Long, n As Long, 詞彙數量 As Long 查找 = InputBox("請輸入要查找的關鍵字，用「、」隔開", "取代") 替換 = InputBox("請輸入要替換的關鍵字，用「、」隔開", "取代") Dim FindList() As String, ReplaceList() As String FindList = Split(查找, "、") ReplaceList = Split(替換, "、") n = UBound(FindList) 詞彙數量 = n + 1 ' 計算詞彙數量 ' 在第二個對話框中需要取代的欄位裡加上符合詞彙數量的下劃線 替換 = String(詞彙數量, "_") For i = 0 To n Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = FindList(i) .Replacement.Text = 替換 .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWildcards = False End With Selection.Find.Execute Replace:=wdReplaceAll Next i End Sub

超好用ipad上的APP介紹之一:時鐘的APP

如果你跟我一樣是個重度iPad使用者， 不論是在課室教學還是日常生活， 我的iPad裡躺了超多我個人覺得超好用的app， 之前零星的介紹了幾個， 現在我打算拍一連串的介紹影 有些還可以在Mac的M1上下載使用， 連結打屏後， 也可以使用觸控的方式在大螢幕上使用， 非常直覺， 也直接創造了一個互動的課室環境。 現在的教學已經不是過往只拿ppt就可以了， 疫情後的數位和教室裡的打屏， 再再都顯示了高互動教學為主題的授課方式將是主流， 學生的生活離不開數為影音及互動， 那為什麼老師還要用靜態的方式強逼著學生要專心呢？ 真詭異啊。

AI版いらすとや

いらすとや的網站，

日本可愛風格插圖，

是我長久以來最愛的網站之一，

當然也是我POWERPOINT教學簡報的重要圖庫來源，

簡單明瞭、可愛有趣，

當然不是沒有想過，

但可以AI生成圖片也來得太快了，

以往的遊戲是：萬物皆可無雙，

現在的網站或服務，萬事萬物皆可AI，

天啊，這真是太神奇了！傑克！

當然，網站也不會是無限制的讓人使用，

AI也是很燒錢的，

如果覺得有需要的話，

可以訂閱，

當然，這會是納入我下一個訂閱的口袋名單之一，

畢竟，要省時省立，就需要拿出相對應的酬勞，

如果想要省錢，就請付出相對應的時間，

就像天秤一樣，

世間萬物也是遵循著等價交換的原則。