我要勇敢地追逐我的世界.我的夢...

++筆記++

因工作需要

去研究一下gmail客製化發信

very easy

1.在草稿匣先打好要發信的內容

其中要套用的文字，以欄位名稱取代

如XX先生，則XX改成<<name>>

2.安裝google外掛"Yet Another Mail Merge"

3.會產生一個線上sheet

4.製作表單，name、title…等欄位

5.合併套用

外掛程式→Yet Another Mail Merge→開始合併郵件

6.選擇草稿夾信件

7.傳送

上個月買了學大家說英語的合訂本

驚為天人，因為很生活用語，而且也聽得懂約7成

覺得早該聽大家了

但現在讓我遇到也不晚啦!

真是感謝不止一個英文學習的部落客

不斷的講到大家說英語、空中英語…

讓我想說來試試，因為10幾年前買過空中英語

因為覺得太難了，因為空中是中級，而且那時的字彙太少也有可能吧!(好歹我也練英聽練了一陣子)

所以現在要好好學習

但想去語言中心借光碟來copy，破解光碟copy不成

後來不斷的聽音檔跟看super光碟

但書中只有課程內容的文字

都沒課程老師的對話文字

後來想說公視的節目應該會有吧

結果事實證明是沒有的

但有部份文字的影片(還是沒有對話文字)

想說就此作羆

但因為還是希望能有部份文字的影片可以看

就想到學校的語文中心

後來就又找到台中公共圖書館登入帳密就可以登入去觀看空中英語教室-影音典藏(同時15人)

國圖也有，開放85人

由此可知免費資源真的很多

真的要好好善用

而且重點是

有全程文檔.有全程文檔.有全程文檔.(很重要說三次)

但因為手機無法看

一直很想把文字捉下來

接下來就是步驟了

---------------------------------------------------

1.檢視程式碼，去複製有英文內容的那一段原始碼

2.到https://www.htmlwasher.com/，把碼去無存菁

3.貼到記事本後再貼入excel，透過別人寫好的巨集，取代html標籤(做法如下)

使用VBA代碼從文本字符串中刪除所有HTML標籤

以下VBA代碼可以幫助您從選擇中刪除HTML標記，請執行以下操作：

1。 按住 Alt + F11鍵 鍵，然後打開 Microsoft Visual Basic for Applications 窗口。

2。 點擊 插入 > 模塊，然後將以下VBA代碼粘貼到 模塊 窗口。

VBA代碼：從文本字符串中刪除所有HTML標籤

Sub RemoveTags()
'updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("please select data range", "Kutools for Excel", xAddress, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    xRg.NumberFormat = "@"
    With CreateObject("vbscript.regexp")
        .Pattern = "\<.*?\>"
        .Global = True
        For Each xCell In xRg
            xCell.Value = .Replace(xCell.Value, "")
        Next
    End With
End Sub

3。 按 F5 鍵來運行此程式碼。在出現的對話方塊中，選擇要從中刪除 HTML 標籤的儲存格。看截圖：

4. 然後點擊 OK，所有HTML標記已立即從選擇中刪除。

---------------------------------------------------

真的是覺得自己太厲害了

居然讓我找出方法終於有文檔了

太開心啦!這就表示叫我要更認真一點…

加油

打開「記事本」

在記事本裡面輸入
　　　　@echo off
　　　　dir /b /on >list.txt

將記事本存到要複製檔名的資料夾內，檔案名稱與副檔名為「檔名.bat」

雙擊「檔名.bat」這個檔案
產生「list.txt」的記事本檔案

=RIGHT(CELL("filename", B1),LEN(CELL("filename", B1))-FIND("]",CELL("filename", B1)))

原自https://stevenchen886.blogspot.com/2017/05/excel.html