【問題】請問如何使用WORD巨集處理文字「上、下標」的問題



贊助商連結


kuu
2006-06-19, 11:20 PM
各位大家好:
小弟有一個WORD需要常用到上、下標
如CM^2→(^2需要改為上標)
或CH4 →(4需要改為下標)
有沒有辦法讓產生錄製巨集讓固定的字元自動改為上下標



贊助商連結


mis339
2006-06-19, 11:29 PM
不曉得你有沒有玩過「取代」,裡面有「更多」,最下面可以選格式,你可以用它來變成上下標!會了嗎?

kuu
2006-06-20, 12:09 AM
阿斌兄您好:
我試過用巨集就是不會出現上標耶
若直接以手動處理,就沒有問題!
但是我需要的是用巨集處理耶…請問
有沒有什麼辦法?


mis339
2006-06-20, 10:28 AM
把以下兩段程式加到你的巨集吧!

Sub 上標()
With Selection.Font
.Superscript = True
End With
End Sub

Sub 下標()
With Selection.Font
.Subscript = True
End With
End Sub

DDSC
2006-06-20, 11:19 AM
巨集不是有錄製,就可很容易設成 HOT-KEY 方式,我都設成 ALT-1 上標,ALT-2下標, 打類似 1/4 這種的,一個上,一個下,比用ASCII好用,好看。

mis339
2006-06-20, 01:10 PM
用錄製的好處是簡單、方便、快速,但是會多很多不必要的程式碼!
所以我的做法是如果遇到不會的就先用錄製,再把不要的程式碼給刪掉!

kuu
2006-06-20, 10:26 PM
阿斌兄您好:
我現在的問題是,要用取代的方式,將所以cm*2全部一次改為cm^2
但我希望作到的是cm2(2應為上標),我錄製的程式碼如下
請問要怎麼更改才能達到我的需求?



Sub 巨集20()
'
' 巨集20 巨集
' 巨集錄製於 2006/6/20,錄製者 kuu
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "*2"
.Replacement.Text = "^^2"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub