- ベストアンサー
文字列の中間の英数字を削除する方法
- 指定された文字列から、中間位置にある英数字（明朝黒色標準）を削除する方法を教えてください。
- マクロを使用して、和文字と英数字（明朝黒色標準）からなる文字列から、中間の英数字を削除する方法を教えてください。
- マクロを使って、和文字と英数字からなる文字列から中間の英数字を削除する方法を教えてください。
- azuma3chom
- お礼率73% (17/23)
- オフィス系ソフト
- 回答数5
- ありがとう数4
- みんなの回答 （5）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (4)
- Wendy02
- ベストアンサー率57% (3570/6232)
こんにちは。 >赤字で太字の英数字と、黒字で標準の英数字による差別化で、後者の英数字を取り除こうとしています。 その辺りは、色の区別でなく、今後のことも考えて、ぜひ、文字パターンで処理することをお勧めします。コードも、一部直せば、すべてに対応できるようになります。そのこだわりは、そういうコードを作ってしまったからだと思いますが、色を判別するのは、コード自体の作り方が違います。 おそらく出来るとは思うのですが、Wordという特殊な環境下で、業務であったとしても、私は、そこまでをする意義を感じないのです。色は、おそらくは、視覚的に付けたものであって、コンピュータでテキスト処理の本来の問題とは関係がないはずです。 言い換えれば、色のない世界なら、[]や()でくくっていたであろう事を、たまたまMS-Wordの機能があったので、色に置き換えただけのものだと思います。 しかし、それは、そう区分けした論理があるはずです。その論理に対して、処理するというのは、プログラムの常套の考え方だと思います。 だから、その論理を導きだすということが、文字処理、正規表現処理の要なのです。 >（５）ここで、再び、エンジン装置１０Ａ１０Ａについて、エンジン装置１０Ａに戻すことを全文について行います。そうしますと、エンジン装置１０Ａについてはそのままとなります。 エンジン装置１０Ａ１０Ａ を、 元の エンジン装置１０Ａ に戻すことでしょうか。 この場合は、１０Ａ１０Ａは、間違いなく、数字＋英字というパターンがあります。つまり、切れ目は、数字＋英字||数字以降 として、あります。 >第１の実施形態では、エンジン装置１０を構成する要素を、１１～３９の範囲で使います。 １０Ａ の文字長に関しては４文字までとします。 そうすると、 .Pattern = "([ぁ-龠])([Ａ-ｚ０-９’']{1,4})" ここのパターンは、 '------------------------------------------- .Pattern = "([ぁ-龠])([０-９]{0,3}[Ａ-ｚ][‘’']?)([０-９]{0,3}[Ａ-ｚ][‘’']?)" '------------------------------------------- というスタイルになります。 アポストロフィ（' 通称ダッシュ）は一つまで。ただし、全角は入れにくいのと、全角は、オートコレクトが働くために、予防措置をしました。 数字が、2桁までなら、 .Pattern = "([ぁ-龠])([０-９]{0,2}[Ａ-ｚ][‘’']?)([０-９]{0,2}[Ａ-ｚ][‘’']?)" となります。 これは、 あんアん亜龠１２３ａ１２３ｂ ---> あんアん亜龠１２３ｂ １２３ａ が消えます。 エンジン装置１０Ｃ１０Ｂ１０Ａ ---> エンジン装置１０Ｂ１０Ａ と一つ消えるだけです。しかし、もう一度、マクロをすれば、１０Ｂが消えて、 エンジン装置１０Ａとなります。
お礼
>あんアん亜龠１２３ａ１２３ｂ ---> あんアん亜龠１２３ｂ >１２３ａ が消えます。 >エンジン装置１０Ｃ１０Ｂ１０Ａ ---> エンジン装置１０Ｂ１０Ａ >と一つ消えるだけです。しかし、もう一度、マクロをすれば、１０Ｂ >が消えて、エンジン装置１０Ａとなります。 上記の通りになることは確認しました。 ただ問題は、未処理の用語＋符号（赤字で太字）についても、用語＋符号（黒字で細字）になってしまうので、未処理と処理隅が見分けられなくなる不具合があります。それで、残念ですが現状では使えません。
- Wendy02
- ベストアンサー率57% (3570/6232)
こんばんは。 私は、厳しいことを言っているようですが、技術の差自体は越えようにも越えられない時があります。それは、分かってください。いくら理解しようとしても、その段階に来ていない人は、それを理解するのは無理だということがあります。 時間が解決するものなのかは分かりませんが、プログラミングの世界は、逆に理解できないから、使えないという考え方はやめたほうがよいと思います。 >私に消化できないコードは、やっぱり利用できません。何も分からないで使うと、問題が起きたときに対応がとれませんので。 私の知人にもそういう方がいます。だから、VBAは使わないそうです。それも一つの懸命な選択肢です。 私は、ある程度、質問者さんのレベルに合わせて回答してきたこともありますが、今までのレベルは、基礎的なものですから、それ以下に落とすことは出来ません。外部オブジェクトの正規表現を使って、文字列の位置を取るなどというのは、Word VBAを知らなくても出来ます。そういう種類のコードを求められても、出来ないものは出来ません。 あるプロのプログラマの人から教わったことですが、すべて理解している必要はありません。調べて自分で分かる程度なら、それはそれで良いとしていかないと仕事など出来ません、と言われました。 私が調子が乗っているときは、自分が思わぬようなコードを書いていることがあります。問題が起きたら対応が取れない、とおっしゃいますが、私の中には、周りの条件が変わって、データを取得するためのコードなのに、どうしても直せないものがあります。 なるべく、モジュールごとにその種類を分けてコードを構築し、特別なツールの検索システムを使いながら、VBAを書いているのですが、それでも、自分で直せませないものがあります。 私自身も、Word VBAが全部分かっているわけではありません。今の時代は、オブジェクトという概念的な部分が先立っているので、個々の枝葉末節より、オブジェクト自身を把握していないと、先には進んでいけません。例えば、文字列の長さ、位置などは、どこにあり、文字列の書式や色などはどこにあるのか、そういう範疇が理解していないとコードは作れません。それだけを理解していればよいと思うのです。基礎的なことは、勉強していただかないといけません。 私は、そろそろ、ここの掲示板からは離れなくてはならない時期に来ていますが、azuma3chomさんは、決して、覚えるのに遅い年齢ではありませんから、Word VBAの基礎から勉強するか、頑張って、テキストストリームの処理のほうに方向転換するか、頑張ってみてください。 今回の場合は、まったくの論理性のない色つきの文字の並びではない限り、文字列パターンがあるはずですし、それさえ見出しすれば処理出来るはずです。そのポイントが分かっていらっしゃらないのだと思います。
お礼
一寸勘違いしていると思います。 ＞技術の差自体は越えようにも越えられない時があります。それは、分かってください。いくら理解しようとしても、その段階に来ていない人は、それを理解するのは無理だということがあります。 まさに、その通りです。ですから、基礎から勉強するかと言えば、私はしませんね。それが私にとってプラスにはならないからです。私には、もっと他にやるべきことがあります。 私は、プログラマーになろうとは思っていません。 今、ワードで作業している特許文書の作成が少しだけ楽になるマクロができれば、それでいいわけです。 教わってきたことで、殆ど、必要なものは創り上げたので、あと少し、マクロを用意して作業を便利にすることができるものを試行錯誤しているのです。人によって、プログラムを作れる能力の必要性は異なるものと思います。 マクロを作っているときは、必死で、土曜日も日曜日も無く、あっという間に過ぎ去ってしまい、充実した時間をすごせますけど、もうすぐ、ＶＢＡの勉強から離れます。私にとって、マクロの勉強はその程度なのです。 というのも、９月から、他の事務所に移り、そこでは、官庁関係の機関が集める数十社に対して講師をしている方の補助で地方に付いていったり、若い方への指導に回るからです。毎日、少しずつコードを見て少し理解が進めばいいかな、と思います。
- Wendy02
- ベストアンサー率57% (3570/6232)
こんにちは。 >InStrRev関数を使える人が殆どいない、というより全くいないというのが残念で驚きでした。doを使うコードを用いる人も、非常に少ないですね。 InStrRev 関数は、VBAを一通り使える人なら誰でも知っていなくてはなりません。ただ、後ろが決まらないようなものは、その関数を使う意味がありません。全文を取って、InStrRev を使ったところで、それは意味がありません。Wordでは、行(Line)という明確なオブジェクトや対象はありません。ですから、InStrRev を使ったところで、意味がありません。行という概念が明確にされて、初めて、始めと終わりが存在します。それは、Text ファイルとは違います。 ここの掲示板というのは、質問者本位だから、質問者さんの思い通りが許されるところです。回答者の立場が非常に弱いし、ここのカテゴリでは、特に、似非「専門家」で、いい加減な内容（ほとんど的外れ）を書いているのが目立ちます。 Word VBAの質問で、実際のWord オブジェクトをほとんど使っていないコードが良いというなら、Word VBAを教える意味がありません。私は、VBAを知らない人にはあまり回答しないようにはしていますが、実際、時間の無駄になってしまうことが多いような気がします。私をここの継続を断念させる条件の一つには入るということです。 ここのカテゴリ全体のレベルが低下し続けているように思います。（これは、私だけの意見ではないはずです）そして、最近、自分の質問内容でマクロの骨子となる部分は隠して、自分の分かる範囲の中で質問をして、それで、レベルの低い解答で満足している人が、本当に増えてきているように感じています。だったら、きちんと知っている人が教える意味がありません。 前回のご質問では、ひとつひとつが、Paragraph単位になっていたようですが、そういう提示はありませんでした。今回も、同様です。元の文章や行のパターンがどうなっているかの提示もなく、ご質問されているようですが、それでは本格的には不可能に近いのです。 コードを教えてほしいのでしたら、プログラミングに必要の情報を出さなくてはなりません。 しかし、本格的に質問するなら、最低限のWord VBAのオブジェクトの範囲の知識は必要です。常連回答者としては、質問者さんには、学習して、次はもう少しレベルを上げてもらいたい、と願いながら書いています。そういうことを無視して、同じような質問を繰り返していたら、常連からは、イエローマークとして覚えられて、イチゲンの人以外は、回答が付かなくなってしまいます。 色のパターンでマクロを組んでほしいなんていうのは、論理的には可能でも、二段階、三段階の処理が必要で面倒でしょうがないのです。しかし、本来は、おそらくは必要ないはずです。 必要な情報さえ出せば、もっと簡単に出てきるのに、というところなのに、なぜ、自分では分からない、難しい方法を望むのか、と思うのです。自分で、ある程度の処理の組み立てや規則性を見出そうとしなければ、解決できません。 仕事の秘密事項を出せというのではなくて、パターンを作るのに必要な情報やドキュメントとして、どういう状態になっているか、出さないままで、コードを書く人は、Word VBAを知らない人か、まったくの素人の人だと思います。 それと、Do--While は、その条件に持ってくるものは、ループの終わりがはっきりしないものが多いし、VBAでは、使う場所は決まっているからです。 >逆に言うと、テキスト処理の方が、Wordや一太郎よりも勝っているということなようですね。 どちらが勝っているということではないです。コードが一様（一遍どおり）で、処理が可能かどうか、ということです。Word VBAには、簡単なマクロは除いて、そういうコードは多くありません。Excelとも違います。多くの先人がテキスト処理の方法を構築してきています。 私が、20年ぐらい前に、最初にテキスト処理をしたのは、SED （ストリームエディタ）という、Unix 系のツールです。このSEDとスクリプトを組み合わせて処理をするというものを学びました。その後、GREP, AWK,PERL, RUBY など、いろんなものが出てきています。その都度、コンピュータ雑誌でも紹介されてきたはずで、興味があれば、少しは目にしてきたはずです。 他にも、例えば、こんなものがあります。 編集者・執筆者のための秀丸エディタ超活用術 http://www.amazon.co.jp/exec/obidos/ASIN/4798109479 私は、秀丸は使ってはおりませんが、別のテキスト・エディタを使っています。 私としては、azuma3chomさんには、どこかで気が付いてほしいと期待しているから書くのです。 今回の質問を完成するなら、情報が足りません。あえて、難しい方法を書いても、無駄にされたくありません。Word VBAを覚えるなら、それを学習するようにし、そうでなければ、他の方法を選んだほうがよい、ということです。イチゲンの回答者を期待していくなら、それもよいのですが、回答が付かないようですし、私からみると、同じような質問を繰り返しているように思うのです。今の問題を、未解決な状態のままで良いか、ご自身の問題として、どう解決すべきかは考えたほうがよいのではありませんか。他人任せでは、解決しないと思います。 後、今の状態からすると、掲示板ではなくて、実際に直接、人に相談して教えてもらうなりしたほうが、よいかもしれません。
お礼
>あえて、難しい方法を書いても、無駄にされたくありません。 FirstIndexで回答していただいたコードは、自分で実行したところ、分かりましたので、使わせていただき、さらにアレンジしてみましたところ使えました。 私に消化できないコードは、やっぱり利用できません。何も分からないで使うと、問題が起きたときに対応がとれませんので。
- Wendy02
- ベストアンサー率57% (3570/6232)
こんばんは。 出来るかといわれれば、こちらが了解している範囲で出来ますが、直接の回答は、もう控えます。 私は、同業者とは言いませんが、どうしても、正規表現を使って処理しないといけない仕事があります。もし、同じ立場なら、私は、色などは使わず、まして、Word VBAも使いません。すべて、テキストの中で処理します。仕上げだけ、必要に応じて、Word納品というスタイルになると思います。 多くの執筆者さんたちのように、テキストエディタ一本にするか、一部の編集者のような、Perl などのツールを使うか、少しずつでも、方向性を変えたほうがよいのではありませんか。私の仕事としても、長い期間、テキスト処理は関わってきたわけです。ご自身の周りで、Word VBAなどで処理している人などいないはずです。Word VBAを使ってきちんと処理できる人などは、日本では、そんな多くはないはずです。 まさか、趣味でおやりになっているわけではないと思います。仕事では、あまり、自分に分からないものは追いかけないほうがよいのではありませんか。私からすると、同じような質問が何度も出ているように思います。 仮に、私が回答を書いても、今回は、こうだとか、後だし条件で、こちらの回答をひっくり返されてしまいかねません。前回の、この内容には、正直、私は、本当に参りました。 「InStrRev関数とLeft関数とRight関数の組み合わせについて教えてください。」 http://oshiete1.goo.ne.jp/qa4158941.html もし、質問するなら、最初から、きちんと内容を提示すべきだと書きました。 そして、応用力があればの話ですが、私の回答の中に、今回のヒントも含まれているはずだと思います。 それに、他者の批判ではありませんが、ほとんどWord VBAを知らない人のコードが評価されて、こちらのコードが、評価されないということですと、私はアドバイスだけにとどめたほうがよいと思います。 その質問の評価されたコード自体は、私の目からは、Wordで、そのようなコードを書く必要性がまったくありません。書いた人の内容の批判ではないのですが、それは、Word VBA自体としては、あまり意味があるわけではありません。Wordの中のオブジェクトは扱わず、Text にしているのだろうと思います。文字列をテキスト型で取り出し、該当する部分のFirstIndex が取得できたところで、Wordでは、ほとんど意味がありません。Rangeオブジェクトが取れていませんから、処理は、テキストレベルしかありません。 パターン自体も意味のない部分があります。もし、後に付けたパターンが正しいというなら、半角は使わないという、以前のレスの内容とは、矛盾してしまいます。 テキストレベルでよければ、テキスト・エディタで処理したほうが速いです。本来、赤字・太字にした部分でも、元は、正規表現などを用いて色を付けたはずですし、その処理の方法を遡れば削除も可能なはずです。 >和文字（明朝黒色標準）＋英数字（明朝黒色標準）＋英数字（明朝赤色太字）の文字列から、英数字（明>朝黒色標準）を除去する、 早い話、きちんとした文字パターンとして、論理を持った一行のはずです。恣意的に色を付けたはずはありません。その場合は、テキスト処理してしまったほうが、ずっと早いです。それでは、あまりにも漠然としています。それに、もともと、色づけのためのパターンの論理があるはずですから、それはコードで組めるはずです。その後は、別に、Wordでも、テキストエディタでも構わないはずです。 きちんとしたパターンがあるなら、単に、Wordのメニューの置換だけですみます。 ただ、マクロで色づけした段階で、その文字パターン自体の意味がなくなっているならば、その色づけした段階まで遡らなくては、処理は出来ないはずです。まさか、色を判別するマクロを作ってほしいというわけでもなかろうと思います。それは試行錯誤では可能ですが、前回の同じ結果で、うやむやになる可能性が強いし、今まで色づけした文字パターン論理を否定して、まったく新しいものをやろうとしてしまうことです。 もちろん、単発のご質問なら、もう少し細かくお聞きして、こちらで作ることも可能だったけれども、前のいきさつを読んできていますから、こちらが勝手に解釈して、作った後に条件はこうだったといわれて、ダメ出しされる可能性のあるものを、むやみにコードの提供は出来ないです。
お礼
Wendy02さん、ありがとうございました。 「InStrRev関数とLeft関数とRight関数の組み合わせについて教えてください。」の質問で、Wendy02さんの回答を採用しなかったこと、ショックだったようですね。 正直、今も見ているのですが、良く分かりません。いつか理解できるかと、時々見てはいます。 InStrRev関数を使える人が殆どいない、というより全くいないというのが残念で驚きでした。doを使うコードを用いる人も、非常に少ないですね。 ＞私は、色などは使わず、まして、Word VBAも使いません。すべて、テキストの中で処理します。仕上げだけ、必要に応じて、Word納品というスタイルになると思います。 特許事務所で、ＶＢＡやPerl などのツールを使う人はいません。ＶＢＡをいじる人は０．１％未満です。特許明細書を作成する特許技術者が３００００人いるとして、３０人未満ですね。３０人でもいれば、業界からいろいろと話題が出ますけど、全く出てこないのが現状です。 テキストエディタを用いる人も殆どいません。ですから、ここの質問サイトや、他の質問サイトで質問しているような些細なことについては、私達の業界からみるとき、殆ど趣味の世界のようで、興味が無いし必要ないことなので、利用できません。 基本的には、マクロができて、それがなんなの？という感じです。要は、知財部や特許部から、発明内容の説明を受けて、わずかな原稿で、２０倍、３０倍の文章に仕上げる力が尊重されます。マクロは、特許文書を作成するときに、間違いを見つけてくれたり、速く打ち込めるので、便利になりますが、キーボードからの打ち込みの速い人には、無視されます。 色などは使わず、Word VBAも使わず、テキストの中で処理し、必要に応じてＷｏｒｄで納品、と言うことですけど、逆に言うと、テキスト処理の方が、Wordや一太郎よりも勝っているということなようですね。 プログラマーは、プログラムを作成し、そのコードを収めることが仕事ですね。単価を見ると、不当に非常に安く抑えられているというのが、私の感想です。
補足
wendy02さんへ 今は、示されたコードの検証時間が無いので、とりあえず、今度の背景を説明します。 特許明細書で、実施例が複数ある場合の、用語＋符号の付け方には、個人個人に違いがあります。例えば、エンジン装置の場合、 エンジン装置１０、エンジン装置４０、エンジン装置７０と言う付け方が有ります。第１の実施形態では、エンジン装置１０を構成する要素を、１１～３９の範囲で使います。 他の方法ですと、エンジン装置１０Ａ、エンジン装置１０Ｂ、エンジン装置１０Ｃと言う付け方が有ります。エンジン装置を構成する要素の符号は共通に使用しますが、実施形態で、違っているものについては、１２Ａ，１２Ｂなどを用いるか、１３と１４のように異なった符号を使います。 ところで、 （１）英数字を赤色にするマクロで赤色の太字にしておく （２）エンジン装置１０Ａについて、選択する。 （３）先に教わったFirstIndex,Right,Left関数のコードをアレンジして、エンジン装置１０Ａから、１０Ａを取り出し、エンジン装置１０Ａ１０Ａとします。 （４）そうしますと、明細書中の全ての、第１のエンジン装置１０Ａは、エンジン装置１０Ａ１０Ａに変わります（後ろ側の１０Ａは赤字のままです）。 また、エンジン装置１０Ａと表示されていなくて、第１のエンジン装置と表示されているものは、エンジン装置１０Ａと変わります（１０Ａは黒字です）。 （５）ここで、再び、エンジン装置１０Ａ１０Ａについて、エンジン装置１０Ａに戻すことを全文について行います。そうしますと、エンジン装置１０Ａについてはそのままとなります。 ここまでは、自分で作ったコードで実現できています。 上記のような処理をしますと、エンジン装置１０Ａはエンジン装置１０Ａ１０Ａとなりエンジン装置１０Ａに戻るので良いのですが、 エンジン装置１０Ｂやエンジン装置１０Ｃについては、エンジン装置１０Ａ１０Ｂやエンジン装置１０Ａ１０Ｃになります（上記の処理により影響が出ます）。 そこで、先に教わったFirstIndex,Right,Left関数のコードをアレンジしてもできなかったので、新しい質問として出しました（今は、なんとかなりそうな感じになっています）。 ところで、 上記の処理を重ねると、特許明細書の特許請求の範囲に記載された、エンジン装置の用語は、エンジン装置１０Ｃ１０Ｂ１０Ａというふうに修正されます。これは、エンジン装置には、１０Ａと、１０Ｂと、１０Ｃとの３種類の用語が実施の形態において使われているということを表示してくれることになります。 質問に戻りまして、あんアん亜龠１２３ａについて最初の処理を行うと、あんアん亜龠１２３ｂやあんアん亜龠１２３ｃについては、 あんアん亜龠１２３ａ１２３ａではなくて、 あんアん亜龠１２３ａ１２３ｂや あんアん亜龠１２３ａ１２３ｃのようになります。 この場合、後側の１２３ｂや１２３ｃは、事前の設定により赤字で太字のままとなり、和文字に続く前側の１２３ａは明朝で標準の表示にしてあります。それで、赤字で太字の英数字と、黒字で標準の英数字による差別化で、後者の英数字を取り除こうとしています。 他のコードで、赤字で太字の英数字を取り除いていますので、その部分を使おうかと思っています。 このような処理は、特許公報を取り寄せて、特許請求の範囲を解釈する場合、用語と図面の符号を照合し、用語に符号を付記して、権利範囲を把握し解釈しようとしますから、そして、この作業に１時間以上かかる面倒くさくてかったるい作業ですから、マクロ処理（随時処理）ができると大変便利になるわけです。 私が、マクロの勉強をしているのは、全て本業と結びついています。 示されたコードを後日いじってみます。その報告のために、お礼の欄を使っていません。敬具