EXCEL、Wordでも何でもいいのですが、
指定文字列から指定文字列までを抽出したいです。
そのほかを削除するという考えでも良いです。
ビジネス文書ではないですが、
例としてビジネス文書を使います。
例)
☆平成○年○月○日 ☆
☆○○食品☆ 株式会社
営業部課長 ○岡 ○冶 様
☆株式会社 □□企画☆
取締役 □川 □子
本社移転のお知らせ
謹啓 向春の候 貴社におかれましては益々ご清栄のこととお慶び申し上げます。平素より格別のご愛顧を賜り、誠に有難うございます。
☆ さて、この度弊社では業務拡張のため、平成◯年◯月◯日より下記住所に移転することとなりました。☆
これを機に、一層のサービス向上に努めるべく、社員一同気持ちをあらたにしております。
今後ともご愛顧のほど宜しくお願い申し上げます。
謹白
記
旧) 〒△△△ 東京都△△区△△町1-2-3
電話 △△△ FAX △△△
☆新) 〒△△△ 東京都△△区△△町4-5-6
電話 △△△ FAX △△△☆
平成○年○月○日より、新社屋にて営業を開始いたします。
以上
のようなとき、
☆と☆の間を抜き出したいのです。
上の文書だと、
平成○年○月○日
○○食品
株式会社 □□企画
さて、この度弊社では業務拡張のため、平成◯年◯月◯日より下記住所に移転することとなりました。
新) 〒△△△ 東京都△△区△△町4-5-6
電話 △△△ FAX △△△
という形で抜き出せます。
マクロで自動登録をし、
1行ずつ削除していく方法も考えたのですが
必要な部分まで消してしまうことが多く、うまくいきませんでした。
逆の考えで、
☆と☆の間以外を削除し、
空白のセルを消すというのでも構いません。
分かりにくい説明で申し訳ありませんが、
宜しくお願いいたします。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
こちら↓はWordの置換作業を3回分して記録したものです。
Sub Macro1()
'
' 指定文字列で挟まれた範囲を蛍光ペンに
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Highlight = True
With Selection.Find
.Text = "☆(*)☆"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.CorrectHangulEndings = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchFuzzy = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
' 蛍光ペン以外を削除
Selection.Find.ClearFormatting
Selection.Find.Highlight = False
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "*"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.CorrectHangulEndings = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchFuzzy = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
' 指定文字列のみ削除して蛍光ペンを解除
Selection.Find.ClearFormatting
Selection.Find.Highlight = True
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Highlight = False
With Selection.Find
.Text = "☆(*)☆"
.Replacement.Text = "\1^p"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.CorrectHangulEndings = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchFuzzy = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
記録マクロなので単純なものですが、使えると思います。
希望しているものと違うかもしれませんが、参考までに。
ちなみに指定文字列で挟まずに、蛍光ペンで塗りつぶしし、
それを新規文書に挿入する方法もあります。
この方が応用もできると思いいますよ。
http://ameblo.jp/gidgeerock/entry-11076984085.html
http://ameblo.jp/gidgeerock/entry-11086639176.html
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Notesメールが送信できない
-
公文書と事務連絡の違いについて
-
削除したノーツレプリカのメー...
-
Google フォト は、なぜ反転で...
-
Notesのメールのローカルへの保...
-
最近、左利きYouTuberさん多い...
-
LINEの既読数がおかしいです(´...
-
CCのまま返信したい
-
googleマップの現在地の共有の...
-
パート始めてから、欠勤の連絡...
-
Lotus Notes メール受信時の通...
-
Googleからの以下のメールにつ...
-
あやまって【Ctrl+D】を押して...
-
Thunderbird メール下書き保存...
-
下書きメールの添付
-
googleグループに招待されまし...
-
VBA 図形グループ化後オブジェ...
-
NOTES レプリカとアーカイブの違い
-
エクセルのスクロールバーが二...
-
スマホはアンドロイドです。SMS...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
公文書と事務連絡の違いについて
-
PDF/Aの見分け方について
-
段落のはじめの字下げをする?...
-
削除したノーツレプリカのメー...
-
Notesメールが送信できない
-
Office2013で作成したExcelやWo...
-
Excelブック保存前に個人情報を...
-
Lotus Notes Ver8 メールに関す...
-
ワープロ検定の文書作成は2枚目...
-
指定文字列から指定文字列まで...
-
サブ文書のリンクの削除 word2010
-
ワープロ検定の文書作成の1級と...
-
ロータスノーツへワードファイ...
-
TEXでロシア語(キリル文字)を...
-
ワープロ検定とマルチメディア...
-
メールのルールを設定すると「T...
-
ロータスノーツのメール文書を...
-
WORD2000:上書き保存した文書...
-
Word2000で句読点が行頭に来な...
-
「Google Docs & Spreadsheets...
おすすめ情報