為什麼這篇word vba指令鄉民發文收入到精華區：因為在word vba指令這個討論話題中，有許多相關的文章在討論，這篇最有參考價值！作者spacewatch (@@)看板Office標題[問題] word 2013 巨集指令設定問題...
軟體: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: 測試2010/2013 wdFindAsk效果為wdFindContinue 07/24 08:28
→ soyoso: 因此改用另一個參數wdFindStop試試 07/24 08:28
→ spacewatch: 感謝soyoso大，我把wdFindAsk改成wdFindStop就正常了 07/24 23:39
→ spacewatch: 不過我有個小疑問就是，以前都會顯示被取代的數量， 07/25 08:32
→ spacewatch: 但是這樣修改完之後卻消失了 07/25 08:32