Word 2013 สามารถค้นหาได้ แต่ไม่สามารถแทนที่ได้


0

ฉันต้องการแทนที่ช่องว่างสองชั้นทั้งหมด ( ) ในเอกสาร Word ของฉันเป็นช่องว่างเดียว ( ) สำหรับความประหลาดใจสุดขีดของฉันสำเนา Microsoft Word 2013 Home ของฉันสามารถค้นหาช่องว่างสองเท่า แต่ไม่สามารถแทนที่ได้เพราะอ้างว่าไม่มีสิ่งใดที่พบในเอกสารของฉัน

ถ้าฉันกดCtrl+ Fแล้วบานหน้าต่างด้านซ้ายจะปรากฏขึ้นและเมื่อฉันเข้าไปฉันจะเห็นว่าฉันมีการเว้นวรรคสองครั้งมากกว่า 350 รายการในเอกสารเฉพาะของฉัน ในทางกลับกันฉันกดCtrl+ Hและ " ค้นหาและแทนที่ " หน้าต่างแอปพลิเคชันจากนั้นเมื่อฉันเข้าสู่มันแล้วคลิกคลิกFind Nextข้อความจะปรากฏขึ้นเพื่อแจ้งให้ฉันทราบว่าไม่พบสิ่งใดในเอกสารของฉัน

เพื่อให้สิ่งที่มากยิ่งขึ้น twixed ถ้าผมอยู่ใน " ค้นหาและแทนที่ " โต้ตอบ แต่เปลี่ยนจากReplaceการFindแท็บป้อนพื้นที่คู่และคลิกFind Nextมีแล้ว - อีกครั้ง - Word เป็นโดยอัตโนมัติสามารถที่จะหาทั้งหมด 350 + การเกิดขึ้นของ เว้นวรรคสองเท่าในเอกสารของฉัน

ฉันพลาดอะไรไป Word จะสามารถค้นหาบางสิ่งได้อย่างไร แต่ไม่สามารถค้นหาและแทนที่สิ่งเดียวกันด้วยสิ่งอื่นได้? นี่เป็นหนังสือแปลก ๆ ใน Word หรืออะไรที่แปลกและแปลกจริง ๆ เกี่ยวกับการจัดรูปแบบของเอกสาร (ค่อนข้างซับซ้อนและมีขนาดใหญ่) ของฉันหรือไม่

ฉันพยายามเริ่ม Word และคอมพิวเตอร์ใหม่ ฉันได้พยายามรักษาเอกสารนี้ให้เป็นไฟล์ใหม่และเปิดมันกลับมาจากไฟล์ใหม่นั้น และ - แน่นอน - ฉันได้ตรวจสอบซ้ำแล้วซ้ำอีกว่าไม่มีตัวเลือกที่แปลกและไม่ได้มาตรฐานถูกตรวจสอบSearch options(หลังจากคลิกMore) ว่าไม่มีการเลือกสิ่งแปลก ๆ ในFormatหรือไม่มีการSpecialใช้ นี่เป็นเพียงฐานการค้นหาที่ไม่มีการแก้ไขหรือแทนที่กระบวนการซึ่งทำงานได้อย่างมีเสน่ห์สำหรับการค้นหาและล้มเหลวในการแทนที่อย่างสมบูรณ์


คุณสามารถเพิ่มตัวอย่างของข้อความที่คุณกำลังลองอยู่ ฉันเพิ่งลองบนเครื่องของฉันและสามารถค้นหาและแทนที่ช่องว่างสองครั้งโดยไม่มีปัญหา
Jonno

ตัวอย่างที่ได้รับมาแล้วในคำถาม ฉันกำลังพยายามแทนที่การเว้นวรรคสองครั้งด้วยการเว้นวรรคเดียวในเอกสารของฉัน
trejder

คำตอบ:


1

สำหรับสิ่งที่คุ้มค่านี่คือมาโครที่ฉันใช้เพื่อลบพื้นที่เพิ่มเติมทั้งหมดในเอกสาร เนื่องจากเป็นมาโครของ elese ที่ฉันปรับตัวเมื่อไม่กี่ปีที่ผ่านมาฉันไม่สามารถอธิบายให้คุณฟังได้ในรายละเอียดว่ามันทำงานอย่างไร

Sub RemoveExtraSpaces()
'
' RemoveExtraSpaces Macro
' I wanted to be able to add the replacements to a list rather than repeating the same find command over and over
'
' Don't forget to add the comma and space when adding new exceptions!

ScreenUpdating = False

findArray = Array("   ", "  ", " ,", " .", " ;", "( ", " )", " ?", " !", ". ^p", "? ^p", "! ^p", "..", ",,", "^p ")
replArray = Array(" ", " ", ",", ".", ";", "(", ")", "?", "!", ".^p", "?^p", "!^p", ".", ",", "^p")

For i = 0 To UBound(findArray)
'Selection.Find.ClearFormatting
'Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = findArray(i)
.Replacement.Text = replArray(i)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next i


ScreenUpdating = True

End Sub
โดยการใช้ไซต์ของเรา หมายความว่าคุณได้อ่านและทำความเข้าใจนโยบายคุกกี้และนโยบายความเป็นส่วนตัวของเราแล้ว
Licensed under cc by-sa 3.0 with attribution required.