2023年8月21日 星期一
不囉唆,秒殺課文填充題製作,只要是文字,通都可以,管你是中文、英文、德文、日文還是火星文
直接複製原始碼到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就可以了,
疫情後的數位和教室裡的打屏,
再再都顯示了高互動教學為主題的授課方式將是主流,
學生的生活離不開數為影音及互動,
那為什麼老師還要用靜態的方式強逼著學生要專心呢?
真詭異啊。