2017-02-12 3 views
0

Word 매크로를 사용하여 텍스트를 찾아서 바꾸려고합니다. 내 원래 텍스트의 일부는 이탤릭체 (우리 노트)로되어 있으며 대신 대체 텍스트를 사용하여 이탤릭체로 된 단어를 인용 부호 ("노트북")로 묶고 이탤릭체를 제거하십시오. 내 '나쁜'코드는 아래에 표시됩니다. 이것에 대한 간단한 수정이 있습니까?Word 매크로의 따옴표

Selection.Find.ClearFormatting 
Selection.Find.Replacement.ClearFormatting 
With Selection.Find 
    .Text = "From Our Notebook" 
    .Replacement.Text = "From "Our NoteBook"" 
    .Forward = True 
    .Wrap = wdFindContinue 
    .Format = False 
    .MatchCase = False 
    .MatchWholeWord = False 
    .MatchWildcards = False 
    .MatchSoundsLike = False 
    .MatchAllWordForms = False 
End With 
+1

[중복 된 따옴표를 vba의 문자열에 넣을 수 있습니까?] (http://stackoverflow.com/questions/9024724/how-do-i-put-double-quotes-in-a-string -in-vba) – Orphid

+0

고마워요, Orphid. 다른 게시물을 보았지만 권장 솔루션을 이해하지 못했거나 제 경우에 작동하지 않았습니다. – user2216370

+0

'Chr (34)'의 사용법은'.Replacement.Text = "From"& Chr (34) & "Out NoteBook"& Chr (34)'와 같습니다. –

답변

0

나는 이것을 알아 냈다고 생각합니다. 해결 방법은 두 개의 큰 따옴표를 사용하여 작은 따옴표의 출력을 나타냅니다. 이것들은 큰 따옴표 안에 들어 있어야하므로 (예 : .Replacement.Text = "From" "우리 노트" ""), 많은 인용 부호가 생깁니다.