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

看板Office作者 (@@)時間10年前 (2015/07/24 00:12), 編輯推噓0(006)
留言6則, 2人參與, 最新討論串1/1
軟體: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

07/24 08:17, , 1F
如以原文來看是否可以改為這樣 https://goo.gl/ildgVL
07/24 08:17, 1F

07/24 08:28, , 2F
測試2010/2013 wdFindAsk效果為wdFindContinue
07/24 08:28, 2F

07/24 08:28, , 3F
因此改用另一個參數wdFindStop試試
07/24 08:28, 3F

07/24 23:39, , 4F
感謝soyoso大,我把wdFindAsk改成wdFindStop就正常了
07/24 23:39, 4F

07/25 08:32, , 5F
不過我有個小疑問就是,以前都會顯示被取代的數量,
07/25 08:32, 5F

07/25 08:32, , 6F
但是這樣修改完之後卻消失了
07/25 08:32, 6F
文章代碼(AID): #1LiH9Jyl (Office)
文章代碼(AID): #1LiH9Jyl (Office)