cinta3344
2002-05-17, 11:53 AM
請問各位OFFICE高手:
我如果要將整份WORD文件的
FONT.COLOR為紅色的字
REPLACE成BACKCOLOR-->黑色,FRONTCOLOR-->白色
應該怎麼寫呢?
或者有內建的功能可以用?
:)
我如果要將整份WORD文件的
FONT.COLOR為紅色的字
REPLACE成BACKCOLOR-->黑色,FRONTCOLOR-->白色
應該怎麼寫呢?
或者有內建的功能可以用?
:)
頁 :
[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/vbb3/showthread.php?t=61219 只是關於「約有6成功力來自線上說明...」這一點, 因為你那「激動」的回應 :D 令我又仔細想了一下.. 改為 5 成.. 或 4成5 好了? (確實我自己也是很努力的~_~) -- 其實我這樣說的目的, 只是強調軟体的「輔助說明」, 它的參考價值真的超過一般人的想像. 也許有些人覺得 Help 寫的很難懂 (尤其是VBA help?), 我並不否認每個人的理解力不盡相同, 或許這也是 電腦書市場發展的重要因素之一 :) 但相對的, 去找一本真正寫的好又有深度的書容不容易? 再引用我曾回答一位網友的話: 這難度大到你不如直接看 Help 還比較快! 很多人一看到陌生的解答方式就說「為何我在書上都找不到?」 其實就我而言很多都是來自輔助說明. 當然不是指在 Help 可以找到例題, 抄抄改改就拿來回答了, 在 Help 裡是觀念、語法、範例, 剩下就要靠自己 -- 不斷的測試、查help、測試、查help... 最後即使無法得到答案, 也學到保貴的經驗. 像我這懶得逛書店的人,實在沒什麼資格批評電腦書.. (也不是天生就懶^^! 是當初逛到心灰意冷才...) 但懶人自然有懶人學電腦的方式 -- 現在的人是幸運的, 至少還可以在網路上問問題.. 只是認為 Help 是我學習的重要依據 (沒有Help就成廢人了?) 提供我自己的經驗而已, 參考就好 :D |