[問題] word 2013 巨集指令設定問題

[spacewatch (@@)]

軟體:office word

版本:2013

各位先進好，最近小弟在設定巨集的時候有一些問題想請問一下該如何解決

┌─────────┐
│AAA   aaaaa       │
│BBB  bbbb         │
│CCC    CCCCcccc   │
└─────────┘
┌─────────┐
│AAA   aaaaa       │
│BBB   vvvvv       │
│CC   ccc   cccc   │
└─────────┘

因為工作需要，常要用到刪掉段落標示以及空格

之前在word 2007設定好後，都可以依照自己所選擇的表格完成

但在word 2013要重新設定時，每當選擇只跑上面的表格時，下方的表格也會跟著自己動

不知道是不是有哪裡設定錯誤？

以下是直接把VBA碼直接貼上來

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = " "
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.39.22.155
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1437667923.A.F2F.html
→ soyoso: 如以原文來看是否可以改為這樣 https://goo.gl/ildgVL
→ soyoso: 測試2010/2013 wdFindAsk效果為wdFindContinue
→ soyoso: 因此改用另一個參數wdFindStop試試
→ spacewatch: 感謝soyoso大，我把wdFindAsk改成wdFindStop就正常了
→ spacewatch: 不過我有個小疑問就是，以前都會顯示被取代的數量，
→ spacewatch: 但是這樣修改完之後卻消失了