2017-02-12 9 views
0

Wordマクロを使用してテキストを検索して置換しようとしています。私の元のテキストの一部はイタリック体(私たちのノートブック)であり、代わりのテキストではイタリック体の言葉を引用符で囲んで( "Our Notebook")、イタリック体を削除します。私の「悪い」コードは以下のとおりです。このための簡単な修正はありますか?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

ありがとう、オフィード。私は他の投稿を見ましたが、私は彼らの推奨される解決策を理解していないか、私の場合にはうまくいかなかったかのいずれかです。 – user2216370

+0

'Chr(34)'の使い方は '.Replacement.Text =" From "&Chr(34)&" Out NoteBook "&Chr(34)'のようになります。 –

答えて

0

私はこれを考え出したと思います。解決策は、2つの二重引用符を使用して、単一の二重引用符の出力を示すことです。これらは二重引用符(たとえば、.Replacement.Text = "From" "ノートブック" "")の中に入れなければならないので、多くの引用符が付いてしまいます。