Word中用“查找”“替换”一次就实现英文标点符号全部替换中文标点符号.
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/09/20 14:58:11
Word中用“查找”“替换”一次就实现英文标点符号全部替换中文标点符号.
Word中用查找替换一次就实现中英文全部替换.只要一次就全部替换,不逗号句号等一种一种的换.
文字如下:
"文字"是人类用来记录语言的符号系统.一般认为,文字是文明社会产生的标志.的观点:则认为文字是在阶级社会产生以后才产生的.文字在发展早期都是图画形式的表意文字(象形文字),发展到后期,除汉字外,都成为记录语音的表音文字.
标点符号包括 引号、冒号、逗号、句号、省略号、书名号、括号等.
Word中用查找替换一次就实现中英文全部替换.只要一次就全部替换,不逗号句号等一种一种的换.
文字如下:
"文字"是人类用来记录语言的符号系统.一般认为,文字是文明社会产生的标志.的观点:则认为文字是在阶级社会产生以后才产生的.文字在发展早期都是图画形式的表意文字(象形文字),发展到后期,除汉字外,都成为记录语音的表音文字.
标点符号包括 引号、冒号、逗号、句号、省略号、书名号、括号等.
你可以录制宏来完成这一系列的动作,方便以后使用,
2007在视图--宏里,点宏里的录制宏,ctrl+H打开替换,把每个替换做一次,完成后点宏--停止,下次要用直接点宏--宏名就可以了
这是我做好的一个宏,你可以复制到宏里
Sub 宏2()
'
' 宏2 宏
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ","
.Replacement.Text = ","
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.CorrectHangulEndings = False
.HanjaPhoneticHangul = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "."
.Replacement.Text = "."
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.CorrectHangulEndings = False
.HanjaPhoneticHangul = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ":"
.Replacement.Text = ":"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.CorrectHangulEndings = False
.HanjaPhoneticHangul = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ";"
.Replacement.Text = ";"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.CorrectHangulEndings = False
.HanjaPhoneticHangul = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = """"
.Replacement.Text = ChrW(8220)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.CorrectHangulEndings = False
.HanjaPhoneticHangul = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ""
.Replacement.Text = "》"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.CorrectHangulEndings = False
.HanjaPhoneticHangul = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
ActiveWindow.ActivePane.VerticalPercentScrolled = 7
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ">"
.Replacement.Text = "》"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.CorrectHangulEndings = False
.HanjaPhoneticHangul = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
End Su
2007在视图--宏里,点宏里的录制宏,ctrl+H打开替换,把每个替换做一次,完成后点宏--停止,下次要用直接点宏--宏名就可以了
这是我做好的一个宏,你可以复制到宏里
Sub 宏2()
'
' 宏2 宏
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ","
.Replacement.Text = ","
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.CorrectHangulEndings = False
.HanjaPhoneticHangul = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "."
.Replacement.Text = "."
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.CorrectHangulEndings = False
.HanjaPhoneticHangul = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ":"
.Replacement.Text = ":"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.CorrectHangulEndings = False
.HanjaPhoneticHangul = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ";"
.Replacement.Text = ";"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.CorrectHangulEndings = False
.HanjaPhoneticHangul = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = """"
.Replacement.Text = ChrW(8220)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.CorrectHangulEndings = False
.HanjaPhoneticHangul = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ""
.Replacement.Text = "》"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.CorrectHangulEndings = False
.HanjaPhoneticHangul = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
ActiveWindow.ActivePane.VerticalPercentScrolled = 7
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ">"
.Replacement.Text = "》"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.CorrectHangulEndings = False
.HanjaPhoneticHangul = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
End Su
Word中用“查找”“替换”一次就实现英文标点符号全部替换中文标点符号.
将Word文档中的所有中文标点符号替换为英文标点符号,要用通配符,大神们求指点
半角标点符号变为全角如何将一篇WORD文档中的半角中文标点符号一次性变为全角的?只能替换么?
在WORD中用全角逗号替换半角逗号结果逗号都不见了怎么回事?其他标点符号都在,就是逗号都没有了~~~
word中怎样把文中的英文逗号全部替换成中文逗号?
word中 同样在一段中文中 标点符号的大小不一样 替换也不行 删了重新输入也不行 怎么回事
word 中将中文的1全部替换成英文的1之后发现文中的1还是中文格式的
word中文引号怎么替换成英文引号
word中怎样把英文双引号替换为中文双引号,
如何把word中的英文引号""替换成中文引号“”?
如何将word中的中文标点(很多个不同的)一次性全部替换成英文标点?
如何将word中的一次性中文字符全部删除,而只保留其中的英文字符和标点符号