語言學

語言癌不癌？

語言學家的看法(附「語言癌不癌」座談會台北場實況紀錄 DVD)

作者： 何萬順, 蔡維天, 張榮興, 徐嘉慧, 魏美瑤, 何德華  

出版社：聯經出版公司  

出版日期：2016/01/20

語言：繁體中文

定價：320元

電子書 優惠價208元

• 語言潔癖
• 語言偏執狂傾向→3個進一步探討議題

1. 標準
2. 溝通--調適性
3. 身分認同

• 沒有語言癌
• 有效溝通的標準？
• 美式英語標準？

1. 美國公共電視台 Do You Speak American | PBS https://www.pbs.org/speak/
2. 標準的新聞英語。但不是制式的，也不是一成不變的。

• 語言的多樣性有助個人風格及溝通
• 註腳參照 (p43, note2) 和註腳文字 (p42) 不同頁。

語言之鑰

作者： 南方朔  

出版社：大田  

出版日期：2004/03/23

語言：繁體中文

定價：380元

• 大田出版《語言是我們的居所》、《語言是我們的星圖》、《語言是我們的海洋》、《在語言的天空下》、《世紀末抒情》、《有光的所在》、《給自己一首詩》、《語言書是我們的希望》等豐富著作。
• 在大田所出版的語言系列是南方朔針對語言研究的成果展現，內容豐富而博學精深，是人類思想與想像力結合的精闢之書。
• 《語言之鑰》是這個系列的最後一本書，所謂「鑰」即是通往智慧大門的開端，集合所有語言的大成，是絕對不容錯過的語言寶典。

#語言

列出樣式的敘述文字 巨集

 

Sub 列出所有樣式的敘述文字_1A()

'作用：找出每一個styles, 將其description寫到文件最後

'ver

'     摘自 《WORD排版藝術》 VBA10-23

'       自訂樣式不論是否有使用皆會列出；預設樣式則會列出部份未使用

'   1A  增加說明

' 好像是列出可用樣式清單，不論有顯示或沒有顯示？可先刪不要者。

' styles數目是什麼？空白文件也顯示100多？

ActiveDocument.Paragraphs.Last.Range.InsertAfter (Chr(10) + "styles description: ")     '將資料標題寫到作用中文件最後

    'MsgBox Application.Styles.Count                            '原書程式

    'application下面沒有styles，改成Application.ActiveDocument. Application可省略

MsgBox ActiveDocument.Styles.Count             '顯示styles數目.

Dim nowStyle As Style

For Each nowStyle In ActiveDocument.Styles

    If nowStyle.InUse = True Then                           '使用中才成立，結果全部跑出來? InUse沒有作用

        ActiveDocument.Paragraphs.Last.Range.InsertAfter (Chr(10) + nowStyle.NameLocal)         '顯示結果在文件最後

        ActiveDocument.Paragraphs.Last.Range.InsertAfter (vbCr + "    " + nowStyle.Description)

    End If                                                  'vbCr=Chr(10)

Next

End Sub

---

#VBA    #MS Word

以未格式化文字貼上 巨集

 

Sub 以未格式化貼上文字()

'

' 以未格式化文字貼上 巨集

' 巨集錄製於 2012/11/28，錄製者 SMC

'

'

'作用

'    以「未格式化文字」及「inline」方式貼上

'    選擇性貼上_未格式化文字

'

'

    Selection.PasteSpecial Link:=False, DataType:=wdPasteText, Placement:= _

        wdInLine, DisplayAsIcon:=False

        '以「未格式化文字」貼上, 不以「貼上連結」貼上, 以「inline」方式貼上, 不以「以圖示顯示」貼上。

End Sub

---

注：「 _」指令太長換行連接符

#VBA    #MS Word

刪除書籤 巨集

 

Option Explicit        '強制變數需要在程式中宣告

Sub 刪除書籤2()

'

' 刪除書籤

' 巨集於 2012/9/27

'

Dim LoopNo As Integer

Dim i As Integer

LoopNo = ActiveDocument.Bookmarks.Count            '書籤數目

MsgBox "隱藏書籤不可打開"           '提示注意動作。

MsgBox "刪除書籤數量：" & LoopNo

For i = 1 To LoopNo

    ActiveDocument.Bookmarks(1).Delete       '刪除第1個位置書籤。

                             '索引編號代表書籤在 [書籤] 對話方塊中依字母順序排列的書籤清單內的位置。刪除列名第一個的書籤，直到所有書籤刪完。

Next

End Sub

---

問AI 解答--未測 →看起來可行。從第一筆書籤，依次往下刪除，直至無書籤。

以下是一個可以去除Word文件中所有書籤的巨集：

Sub RemoveBookmarks()

    Dim bm As Bookmark

    For Each bm In ActiveDocument.Bookmarks

        bm.Range.Delete

    Next bm

End Sub

使用方法：

打開你要去除書籤的Word文件

按下Alt + F11，打開VBA編輯器

點選Insert > Module，新增一個模組

複製上述的巨集程式碼到模組視窗中

按下F5或在編輯器中點選Run Sub/UserForm，執行巨集

執行完畢後，關閉VBA編輯器，你的書籤就被刪除了。

請注意，這個巨集將會刪除文件中所有的書籤，請確認您已經保存好文件，並且不會影響到您的其他內容。

#VBA    #MS Word   #AI