【求助】將WORD文字前景色代換



贊助商連結


頁 : [1] 2

cinta3344
2002-05-17, 11:53 AM
請問各位OFFICE高手:
我如果要將整份WORD文件的
FONT.COLOR為紅色的字
REPLACE成BACKCOLOR-->黑色,FRONTCOLOR-->白色
應該怎麼寫呢?
或者有內建的功能可以用?
:)

贊助商連結


leonchou
2002-05-17, 01:11 PM
畢竟是個老字號的文書處理軟体嘛--
Word[搜尋/取代]功能很強的, 請善加利用! :D

提示: [取代] 對話框裡的[更多..]以及萬用字元~

cinta3344
2002-05-17, 01:41 PM
最初由 Leon Chou 發表
畢竟是個老字號的文書處理軟体嘛--
Word[搜尋/取代]功能很強的, 請善加利用! :D

提示: [取代] 對話框裡的[更多..]以及萬用字元~

Leon兄,剛才試過了,但是取代選項並沒有所謂的'網底'這個選項
我的需求其實很簡單,就是要將一份SD文件裡面所有的紅色字全部
改為黑底白字的外觀(因為雷射印表機沒有彩色),這樣不需要印出來
以後還要拿色筆劃半天,能用vba解決嗎?先行謝過了!:)

leonchou
2002-05-17, 08:27 PM
先說明以下的方法只適用Word2000. (Word97還沒試, XP沒用過)
也請手邊有 97 的網友能提供意見.

Word2000設定文字底色(背景)的方式有二:
1.框線及網底(套用於文字) 2.文字醒目提示.
在 [取代] 的格式選項有 [醒目提示].

「將所有紅色字改為黑底白字」, 這樣做:
先在格式或檢閱工具列將 [醒目提示] 的顏色改為黑色.
按 Ctrl+H 叫出 [尋找/取代] 對話框, 按 [更多..] >><ul type=disc>
<li>尋找: 輸入 ^? (表示任一字元), 或者也可以
輸入 * , 但下方的 [使用萬用字元] 要打勾.
按下方 [格式..] >> [字型..], 字型顏色選紅色.
<li>取代: 輸入 ^& (表示找到的字)
按下方 [格式..] >> [字型..], 字型顏色選白色.
按下方 [格式..] >> [醒目提示] </ul>
(設定好應該如下圖所示, 注意 [尋找] 和 [取代] 下方顯示的格式)
按下 [全部取代], ok!
好不好玩? 如果能熟練的話, 可省了不少寫程式的力氣呢. :)

cinta3344
2002-05-17, 09:22 PM
OH!My God..周兄你根本是神了...

leonchou
2002-05-18, 02:09 PM
唉,cinta兄以後別再這麼說了~
學海無涯... ~_~

kitty-bb
2002-05-24, 11:13 AM
太棒了

cinta3344
2002-05-24, 11:46 AM
今天老闆看到我的列印文件,他希望可以把這個功能簡化成功能按鈕
弄成個宏(大陸這種講法還真他媽簡潔)distrubute出來給大陸廠用
所以還是要煩請各位指導該如何寫呢?
謝謝...

TPBUNNY
2002-05-25, 03:38 AM
TO: LEON CHOU
您這些學問是怎麼學來的啊?教一下學習之道好嗎?簡直太神了,excel,outlook,word...樣樣精通,不知道要什麼樣的待遇才能請到像您一樣的高手來上班?

TO:cinta3344
巨集可以用錄的,錄好再改改即可,以下是我試錄的,您參考看看!

Sub 巨集1()
'
' 巨集1 巨集
' 巨集錄製於 2002/5/25,錄製者 TPBUNNY
'
Options.DefaultHighlightColorIndex = wdBlack
Selection.Find.ClearFormatting
Selection.Find.Font.Color = wdColorRed
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Highlight = False
Selection.Find.Replacement.Font.Color = wdColorWhite
With Selection.Find
.Text = "*"
.Replacement.Text = "^&"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

leonchou
2002-05-25, 04:45 PM
先對這個主題做一補充說明 --

Leon Chou 05-17-2002 :
先說明以下的方法只適用Word2000. (Word97還沒試, XP沒用過)
也請手邊有 97 的網友能提供意見.
經測試, Word 97 的做法也是一樣的.
(為什麼沒有人測 XP ? ^^|| )

to cinta3344: 「宏」?? 這是什麼? 未免也太抽象了吧 :eek:

to TPBUNNY:
我的答案仍然和這篇回答的一樣 --
http://www.pczone.com.tw/showthread.php?t=61219
只是關於「約有6成功力來自線上說明...」這一點,
因為你那「激動」的回應 :D 令我又仔細想了一下..
改為 5 成.. 或 4成5 好了? (確實我自己也是很努力的~_~) --
其實我這樣說的目的, 只是強調軟体的「輔助說明」,
它的參考價值真的超過一般人的想像.
也許有些人覺得 Help 寫的很難懂 (尤其是VBA help?),
我並不否認每個人的理解力不盡相同, 或許這也是
電腦書市場發展的重要因素之一 :)

但相對的, 去找一本真正寫的好又有深度的書容不容易?
再引用我曾回答一位網友的話:
這難度大到你不如直接看 Help 還比較快!
很多人一看到陌生的解答方式就說「為何我在書上都找不到?」
其實就我而言很多都是來自輔助說明.
當然不是指在 Help 可以找到例題, 抄抄改改就拿來回答了,
在 Help 裡是觀念、語法、範例, 剩下就要靠自己 --
不斷的測試、查help、測試、查help...
最後即使無法得到答案, 也學到保貴的經驗.

像我這懶得逛書店的人,實在沒什麼資格批評電腦書..
(也不是天生就懶^^! 是當初逛到心灰意冷才...)
但懶人自然有懶人學電腦的方式 --
現在的人是幸運的, 至少還可以在網路上問問題..
只是認為 Help 是我學習的重要依據 (沒有Help就成廢人了?)
提供我自己的經驗而已, 參考就好 :D