我想在MS Word文檔中對每個粗體句子加上第一個字母。什麼是實現這個目標的好方法?在MS Word文檔中的每個句子上加粗寫第一個字母
回答
這可以用Word內置的高級查找+替換來完成。您需要指定通配符匹配的表達式,比如這一個選擇的第一個字符下一個句點和空間:
[\.\?\!] ?
您可以指定找到的每個字符在相同的用戶界面風格(這是不嚴格找/替換 - 你可以找到/風格)。請注意,上面的表達式將成爲每個句子的第一個字符和前面的?/!/。膽大。您可以通過再次搜索標點符號並取消加粗來糾正此問題。
請參見本指南:http://www.gmayor.com/replace_using_wildcards.htm
不是很程序化的,我知道,但比鑽研VBA快得多。
在VBA
Sub BoldFirstLetterInSentence()
Dim ad As Document
Set ad = ActiveDocument
Dim sen As Range
For Each sen In ad.Sentences
sen.Words.First.Characters.First.Font.Bold = True
/* sen.Words(1).Characters(1).Font.Bold = True also works */
Next
End Sub
你介意告訴我,爲什麼這個代碼不起作用,當我有'選擇顯式'打開? – froeschli 2010-09-20 20:07:03
這是因爲For Each循環中的sen不定義,Option Explicit需要定義所有變量。它是一個'Range'對象,所以你只需要在'Set ad ...'下面添加'Dim sen As Range'。我更新了代碼以反映這一點。 – 2010-09-20 20:34:37
下工作得直截了當,我
Option Explicit
Public Sub SetFirstLetterBold()
Dim i As Integer
Dim doc As Document
Set doc = ActiveDocument
For i = 1 To doc.Sentences.Count
doc.Sentences(i).Characters(1).Bold = True
Next
End Sub
- 1. MYSQL - 大寫每個句子中第一個單詞的第一個字母
- 2. 在製作每個句子大寫的第一個字母的段落中?
- 3. 打印每個單詞的第一個字母一個句子
- 4. 每個句子的首字母大寫
- 5. 獲取句子中每個單詞的第一個字母?
- 6. 提取句子中每個單詞的第一個字母
- 7. 善用每個句子的第一個字母在Python
- 8. Swift大寫字母中每個單詞的第一個字母
- 9. 返回每個句子的第一個字母串
- 10. 使用ucfirst製作每個句子大寫的第一個字母
- 11. 如何使用shell腳本大寫每個句子中第一個單詞的第一個字母?
- 12. 製作所有句子大寫字母的第一個字符
- 13. 獲取文檔的第一個字母?
- 14. 轉換一個句子中每個單詞的第一個字母大寫在iPhone
- 15. 大寫字母的第一個字母
- 16. 將文件中每行的第一個字母改爲大寫
- 17. 大寫每個大寫單詞的第一個字母
- 18. Word VBA宏 - 中心+粗體+大寫第一行文字
- 19. 在Android中上傳並顯示一個MS word文檔
- 20. 如何打印句子中每個單詞的第一個字母?
- 21. 第一個字母大寫
- 22. 在每個大寫字母后加小寫字母后加小寫字母
- 23. 大寫列表中每個字符串的第一個字母大寫
- 24. php在句子中大寫第二個字母最少10個字符
- 25. 如何將每個句子的第一個字母轉換爲大寫字母,將所有其他字母轉換爲小寫字母?
- 26. 是否可以從包含粗體字的Word文檔中提取句子?
- 27. 打印加密文本兩次,而不是加密每個句子的第一個字母
- 28. 讀/寫/保存MS Word文檔在c#
- 29. 使用python代碼對一個句子中第一個字母的大寫字母
- 30. SQL - 大寫每個單詞的第一個字母
記住那句話分割是不是一個容易解決的問題。它需要考慮縮寫以及使用某種非常規的交互操作,例如正如在tehblanx答案:「請注意,上面的表達式將使每個句子的第一個字符和前面的?/!/。粗體。」你會在哪裏自動檢測邊界? 「大膽」這個詞是否開始一個新的句子? – 2010-06-26 11:40:50