Word 高手請進

替換文本中的所有數字或字母格式為times new roman，並記錄製作宏命令。本次操作有效成功。
但再次運行此宏命令或在新文件運行此宏命令后所有數字或字母都消失。

請高手賜教。
謝謝！！！

高手在那裡？ 有懂VB的幫著分析一下？
以下是word自動生成的宏代碼
Sub 改數字()
'
' 改數字 Macro
' 宏在 2010-2-21 由 miya 錄製
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^#"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

   高手何在？

斑竹，幫我呼籲一下？ 請高手出山

'改動見下.
Sub 改數字()
'
' 改數字 Macro
' 宏在 2010-2-21 由 miya 錄製
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^#"
       ' .Replacement.Text = "" 刪除這行,因為把選中的清除掉.
         .Replacement.Font.Name = "times new roman"   '加這行改字母格式為
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

回復 5# Guest from 209.221.240.x

回復 5# Guest from 209.221.240.x

感謝感謝，先試下先。

回復 5# Guest from 209.221.240.x


    試了，還是不行啊。 此外，那位能解釋下，為什麼word錄製的宏命令會出現這種問題？

我的改動如下，基於5樓的工作以及其他人的理解，我修改了一下，應該沒有問題了。


Sub modify_font()
'
' modify_font Macro
' Macro created 28/02/2010 by mydellpc
'

'
' ¸ÄÊý×Ö Macro
' ºêÔÚ 2010-2-21 ÓÉ miya ¼ÖÆ
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^#"
.Text = "^?"       ' 加上這一句
.Replacement.Font.Name = "times new roman"   ' 這一句還是以前的
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

End Sub

回復 9# cse378

非常感謝智慧美女。
我試一試。通報大家結果。

回復 9# cse378

經測試，成功。
再次感謝美女。
該宏略加改動同樣也可用於替換中文文本中的英文字母。
這樣以後編輯文檔只要一鍵就可以替換文中數字和字母的格式為times new roman。
能使整篇文檔顯得更為美觀。
供各位參考。

再次謝謝智慧美女。 也許是GG？ 呵呵

請教一下美女，.Text = "^?"       這一句的含義是什麼？

回復 9# cse378