유니 코드가 아닌 글꼴을 사용하여 Coptic 언어로 작성된 일부 텍스트 파일을 편집하고 있습니다. 파일을 유니 코드로 변환하고 있습니다.
발음 방언을 표현하기 위해 세 가지 글꼴을 사용하여 작성한 파일입니다. 유니 코드가 아닌 문자를 유니 코드 문자로 검색하고 바꾸는 매크로를 만들고 싶습니다.
검색을 제한하고 특정 글꼴로 바꾸고 싶습니다. 매크로를 기록하려고했지만 글꼴 선택이 기록되지 않았습니다.
최종 결과는 (문자에 방언 표시가 내장 된) 글꼴 중 하나의 문자를 방언 표시 외에 유니 코드 문자로 개별적으로 대체하는 것입니다.
특정 글꼴로 작성된 문자로 검색 및 바꾸기 기능을 제한하기 위해 아래 코드를 수정하는 방법이 있습니까?
Sub aaaa()
'
' aaaa Macro
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "n"
.Replacement.Text = ChrW(11419) & ChrW(769)
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
해결책:
Sub twoo()
'
' twoo Macro
'
'
With Selection.Find
.Text = "n"
' Clear all previously set formatting for Find dialog box.
.ClearFormatting
' Set font to Find for replacement.
.Font.Name = "EXISTING FONT NAME"
' Clear all previously set formatting for Replace dialog box.
.Replacement.ClearFormatting
' Set font to Replace found font.
.Replacement.Font.Name = "NEW FONT NAME"
.Replacement.Text = ChrW(11419) & ChrW(769)
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다