ママのスキンケアのお悩みにおすすめアイテム

Wordの文書内の指定した記号で囲まれた文字、
(例えば、"「"と"」"を指定すると、文書内の「」で囲まれた文字)
を全部抜き出して、Excel上に出力したいのですがどうしたらいいのでしょうか?

フォルダを指定して、そのフォルダに入ったWord文書を全て検索する。

指定する記号は、「」、【】、『』など5種類ほど、指定する。

このようなことがしたいのですが、書籍などの情報がなくて困っています。
よろしくお願いします。

このQ&Aに関連する最新のQ&A

A 回答 (5件)

マクロを組めば出来そうですが、文書を1つづつ開かなけ


ればならない可能性も有るかもしれません。(良く知りま
せん。)


ANo.#1 と比べて、帯に短し襷に長し的な方法ですが、ディ
レクトリ内文書を全部検索して、その結果をリスト出力で
きるようです。


KWIC Centre 2.27
http://plaza3.mbn.or.jp/~h_ishida/KWIC.html

 フリー :テキスト検索のみ
 シェアー:PDF/WORD/EXCEL等の GREP 検索、\1,000)

 ・ファイル検索
   正規表現に対応(jre32.dll を使用、DL 可)
 ・リスト
   検索結果をリスト形式、タブ区切りデータで出力可能。



検索語を、正規表現で指定。例えば、

「.*」.*『.*』.*【.*】

(.* は、正規表現での、いわば、ワイルドカードの指定方
法です。)

として検索し、検索結果のテキスト出力(行単位)をし、更
にこれを perl や sed で加工すれば、検索語だけを csv
形式などに出来ます。

テキスト検索機能のみはフリーですので、まず、テキスト
ファイルで(.doc から .txt に落として)試して見ても良い
と思います。

作者に、検索語だけの出力オプションを依頼する方法もあり
ます。

参考URL:http://plaza3.mbn.or.jp/~h_ishida/KWIC.html
    • good
    • 0
この回答へのお礼

こんばんは、ご回答ありがとうございました
フリーソフトを早速インストールしました。
最初漢字二字の言葉を検索してみて、スムーズにいき、
CSVファイルに出力して感動していたのですが、
その後、引き続き試そうとすると「サービスが実行中ではありません。」
というメッセージがでて、検索を受け付けてくれなくなりました。
アプリケーションを起動しなおしても同じ状態です。
何故か、もしご存知でしたら教えていただけないでしょうか?
よろしくお願いします。

お礼日時:2002/11/13 21:19

 Officeの中だけで処理するなら、VBAプログラム(Officeのマクロ)を作らなければなりませんね。


 Wordで元文書を開いた状態でマクロを起動。
 マクロからExcelのオブジェクトを取得して置いて、「」、【】、『』等の並びにマッチングする部分を検索。
 検索は、WindowsのRegExpオブジェクトを利用すると簡単に書けると思います。
 一つマッチングする度に、マッチした範囲をExcelのセルに複写、次にマッチする箇所を検索・・・これを最後まで繰り返し。
 終わったら、ExcelのWorkBookに名前をつけて保存・・・。
 こんな感じですかね?

 実際にコードを組むにはそれなりに手間なんで、やってはいませんが。(^^;

 VBAに関するリファレンスは、各OfficeアプリケーションからVBAエディタを起動し、ヘルプを参照すればそれなりに詳しく書かれていますよ。
 MSの各種言語に関する詳細な情報は、MSDN Onlineを参照してみて下さい。
 MSがリリースしているありとあらゆる言語やOSの詳細な情報を読む事ができます。
(下のURLは日本語サイトなので、日本語に翻訳されている情報のみです。
 英語サイトならば、全ての情報が英語で読めます。)

参考URL:http://www.asia.microsoft.com/japan/msdn/default …
    • good
    • 0
この回答へのお礼

こんばんは、ご回答ありがとうございます。VBAだけでもできるのですね。
私はまだVBAの初心者なので、書籍等のサンプルを組み合わせて何とか必要な機能を実現している段階です。
Excel、Accessはいろいろと覚えてきましたが、そのほかのことはあまりわかりません。

今回はWordに関することなので、早速書店にいってみたのですが、WordVBAに関する本は1冊もなくあきらめていました。

VBAで実現できることがわかったので、ヘルプなどでもっと調べてみようと思います。

お礼日時:2002/11/14 00:56

私も、こういった作業は、テキストに落とし、awkやperlで処理する作業だと思います。



Zz_zZさんが例示されたような正規表現を使い、*.txtを入力ファイルにすれば、それこそ、一網打尽のレベルでしょう。

おそらく、「1行野郎」に毛が生えた程度のスクリプトで、CSVまで持っていけると思います。

参考URL:http://www.fukumi.co.jp/mm/pc/link_scr.htm
    • good
    • 0
この回答へのお礼

こんばんは、ご回答ありがとうございました。

恥ずかしながら、「perlって言葉は知っているけど何?」という状態で早速書店で本を買ってきました。
今から読むところです。

今回の仕事に役に立つか(間に合うか)わかりなせんが、今後の課題として取り組みたいと思います。

お礼日時:2002/11/13 21:24

ここなどは参考になるでしょうか?



参考URL:http://search.download.yahoo.co.jp/bin/v_searchf …
    • good
    • 0
この回答へのお礼

ご紹介いただいたソフトKWICの件で、なかなかうまくいかなかったのですが、
教えてくださったURLのサポート掲示板に投稿することにより解決しました。
本当にありがとうございました。

お礼日時:2002/11/15 21:00

一網打尽に移動することはできないと思いますが,ひとつずつ拾うのは簡単です.


「編集→検索」で検索オプションを表示させ,「ワイルドカードを使用する」にチェックを入れます.そして,例えば【】で囲まれた文字列を検索したければ,「検索する文字列のところに【*】と記入します.半角のアスタリスクです.これは,トランプで言えばジョーカーの役割をしますので,【】で囲まれた文字列が全て検索されます.
あとは,面倒ですけど,見つけ次第,一度本文に戻ってカット(コピーではなく)し,Ctrl+Endで文末に移動しペーストします.再び検索ウィンドウをクリックして次を検索すれば,割と簡単に【】の文字列を集められると思います.
    • good
    • 0
この回答へのお礼

shota_TKさん、早速のご回答ありがとうございました。

大量に文書があるので、VBAの自動処理を想定していたのですが、
やはり一つ一つ検索するしかないのですね。とても残念ですが、地道に頑張ります。

お礼日時:2002/11/13 07:35

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q複数のword文書の中の語句(単語)を一度に検索するにはどうすればよい

複数のword文書の中の語句(単語)を一度に検索するにはどうすればよいでしょうか。
(word2007 vistaを使用しています)

Aベストアンサー

ワードの範囲内の機能では、ないのではないでしょうか。
ワードのVBA(プログラム)を作り、2以上の文書の語句検索を行う(文書ごと繰り返し。検索のプログラムコードはWEBにあふれている。マクロの記録を修正することでも出来る)。
検索用に文書を1つにまとめる。
(または、書式を考えなくて良い検索なら、それぞれの文書をテキストファイル化して1つにまとめ(比較的易しい)、検索機能の優れたテキストエディターを使う)
他のぴったりの検索用ソフト(多ファイル一括検索)を探す。
などを思いつきますが。

Qwordからexcelへ一部のデータを取り出したい

wordで作成した社員の個人情報管理シートが大量にあります。
(1人につき1つ、管理シートは履歴書のような形式に入力するようになっていました)
今回、wordから各個人情報を取り出し1つのexcelデータにして管理する
ことになりました。
社員番号、名前、住所・・・のように一覧にします。
一人ずつwordを開き、必要な箇所をコピーしexcelへ貼り付けるという作業を
繰り返していますが、もっと簡単な方法はありますでしょうか。
アドバイスよろしくお願いします。

Aベストアンサー

今ある大量のワードが,どのくらい綺麗に『統一された』フォーマットで作成されているか次第で,簡単にも難しくもなりそうですね。「なんとなく合ってる」じゃ駄目で,「完全に一致」してるかどうかです。

アプローチ自体は色々考えつきますが,一例として。


調査:
一人分のワードを開き,Ctrl+Aで全部選択し,エクセルの1枚のシートのA1セルに無造作に貼り付ける
別の人のワードを開き,Ctrl+Aで全部選択し,エクセルの別のシートのA1セルに普通に貼り付ける
こうやってエクセルに直接コピーしてみたときに,欲しい情報が例えばA4とB5とD2セルに『確実にある』といった状態に持って行けるか,確認します。

準備:
たとえば100人分処理します。
空シートを1冊用意し,Sheet1からSheet100まで綺麗な数字の順番のシート名の空シートを100枚用意します。
#Excel2003まででは,ツールメニューのオプションの全般で新しいブックのシーと枚数を100にしておいて,Ctrl+Nで一冊新しいシートを作成すると簡単にできます

手作業:
100個のワードを一つずつ開き
1個目のワードで
 Ctrl+Aで全部選択して
 シート1のA1に貼り付け
次のワードを開いて
 Ctrl+Aで全部選択して
 シート2のA1に貼り付ける
のようにして,100枚のシートにワードを丸ごと転記します

集約:
101枚目のシートの
A1セルに
Sheet1
と記入,えいやっと下向けにオートフィルドラッグして
A100に
Sheet100
まで,つるつるっと自動で作成します

B1セルに
=INDIRECT(A1&"!A4")
C1セルに
=INDIRECT(A1&"!B5")
D1セルに
=INDIRECT(A1&"!D2")
と記入,シート1の欲しいセルの値が参照できたら成功


B1:D1を選択し,下向けに用意したSheet100の行までつるつるっとオートフィルドラッグでコピーして完成。

今ある大量のワードが,どのくらい綺麗に『統一された』フォーマットで作成されているか次第で,簡単にも難しくもなりそうですね。「なんとなく合ってる」じゃ駄目で,「完全に一致」してるかどうかです。

アプローチ自体は色々考えつきますが,一例として。


調査:
一人分のワードを開き,Ctrl+Aで全部選択し,エクセルの1枚のシートのA1セルに無造作に貼り付ける
別の人のワードを開き,Ctrl+Aで全部選択し,エクセルの別のシートのA1セルに普通に貼り付ける
こうやってエクセルに直接コピーしてみたときに...続きを読む

QExel VBA 別ブックから該当データを検索し、必要なデータを取得する方法について

部品表というブックがあります
A列に商品名、B列に商品番号が入力してあります。C列のコードは未入力です。
A列     B列     C列      
商品名  商品番号  コード
モータ  U-1325-L  
ホルダ  R-134256

また、コード一覧表という別のブックには、A列に商品番号と、B列にコードが、何千件も入力されています。

やりたいことは
部品表のC列のコード欄に、コード一覧表ブックから商品番号と一致するコードを貼り付けしたいのです。

部品表は、何百種類もありますので、関数ではなく、マクロで処理を希望します。

自分では、部品表の商品番号をコピーして、コード一覧表で検索し、検索結果の右隣のセル(B列のコード)の値を部品表のC列に貼り付ければよいかと思い、書いてみたんですが…

Sub 別ブックから貼り付ける()
  Dim 検索する As Long
Windows("部品表.xls").Activate
検索する = cells(i,2).Value
Windows("コード一覧表.xls").Activate
ActiveWindow.SmallScroll Down:=-3
Selection.AutoFilter Field:=3, Criteria1:="=検索する", Operator:= xlAnd

と、してみたものの、検索しても、その検索結果の隣のセルのコードをどうやって取得すればいいのかが、わかりませんでした。

基本事項は本で学びましたが、呪文のようなコードはよく理解できません。懸命にネットで検索して、訳して理解する努力をしてはいますが。

どうぞよろしくお願いします。

部品表というブックがあります
A列に商品名、B列に商品番号が入力してあります。C列のコードは未入力です。
A列     B列     C列      
商品名  商品番号  コード
モータ  U-1325-L  
ホルダ  R-134256

また、コード一覧表という別のブックには、A列に商品番号と、B列にコードが、何千件も入力されています。

やりたいことは
部品表のC列のコード欄に、コード一覧表ブックから商品番号と一致するコードを貼り付けしたいのです。

部品表は、何百種類もありますので、関数...続きを読む

Aベストアンサー

こんにちは。
とりあえず実用性も踏まえました。
メインの動作はワークシート関数のVLOOKUPをVBA上で使用していますので理解はしやすいかと思います。
また、質問文から察するに「部品表.xls」と「コード一覧表.xls」の両方を開いて処理されていますが「コード一覧表.xls」はプログラム内で開いて閉じているので実行するときは「コード一覧表.xls」は閉じて置いてください。
Option Explicit
Sub Sample()
 Application.ScreenUpdating = False
 Dim I As Long
 Dim xlBook
 Set xlBook = Workbooks.Open("C:\★★\コード一覧表.xls") '★要変更★
 I = 2
 Do While Range("A" & I).Value <> ""
  ThisWorkbook.Worksheets("Sheet1").Range("C" & I).Value = Application.VLookup(ThisWorkbook.Worksheets("Sheet1").Range("B" & I).Value, xlBook.Worksheets("Sheet1").Range("A2:B65535"), 2, 0)
  I = I + 1
 Loop
 xlBook.Close
 Application.ScreenUpdating = True
 MsgBox ("完了")
End Sub

こんにちは。
とりあえず実用性も踏まえました。
メインの動作はワークシート関数のVLOOKUPをVBA上で使用していますので理解はしやすいかと思います。
また、質問文から察するに「部品表.xls」と「コード一覧表.xls」の両方を開いて処理されていますが「コード一覧表.xls」はプログラム内で開いて閉じているので実行するときは「コード一覧表.xls」は閉じて置いてください。
Option Explicit
Sub Sample()
 Application.ScreenUpdating = False
 Dim I As Long
 Dim xlBook
 Set xlBook = Workbooks....続きを読む

Qword置換で改行は置換できますか?

word置換で改行は置換できますか?

 一斉にEnterでの改行されている部分を置換する方法はないでしょうか?
 あればよろしくおねがいします。

Aベストアンサー

検索と置換画面の「置換」タブ画面で [オプション] を選択し、右下にある「あいまい検索」のチェックを外します。
検索する文字列にカーソルを置いて、[特殊文字] ボタン → 段落記号(P) を選択すると、検索する文字列に 「^p」が入力されます。(直接キー入力してもOKです)

置換後の文字列に置換する文字列、特殊文字を入力して置換をしますが、何も指定しないで、「置換」または「すべて置換」を行うと、改行が削除されます。

特殊文字の一覧項目の「段落記号」は[Enter]による改行で、[Shift]+[Enter]による改行は、「任意指定の行区切り(L)」です。
 

QエクセルVBAでワードの文字を検索して置換えたい

エクセル置換表を基に、開いてあるワードの文書内を検索して、該当の旧番号があれば、新番号に置換えるVBAのプログラムを
教えていただけませんか。
また、参考になる書籍等があれば教えていただけませんか。 

【実施内容詳細】
エクセル置換表を基に、開いてあるワードの文書内(ヘッダー、フッター含)を検索して、該当の旧番号があれば、新番号に置換える。
使用ソフト ワード エクセル 2003
使用ファイル名  A.doc B.xls

ステップ1 ワードの文書内に旧番号A1がないか検索して、A1があれば、新番号B1に置き換える。
ステップ2 ワードの文書内に旧番号A2がないか検索して、A2があれば、新番号B2に置き換える。
ステップ3 エクセルA列の最後(空欄)まで実施して終了する。

エクセル置換表

     A列  B列
    旧番号 新番号
 行2  A1    B1
 行3  A2    B2
 以下同様  

追記:
マクロを使用したことはありませんので事前設定方法も教えていただけませんか。 

Aベストアンサー

.Find.Executeの処理結果がうまく拾えなかったので、置換表のC列に出したのは、単に通過した、という意味、、、

Option Explicit
Sub WORD検索置換()
Const xPath = "D:\tmp\tmp\aho.doc"
Const xKey = "A"
Const xKey_Rep = "B"
Const wdReplaceAll = 2
Dim objWord As New Word.Application
Dim objDoc As Word.Document
Dim objSelection As Object
Dim xSheet As Worksheet
Dim xResult As Boolean
Dim xLast As Long
Dim kk As Long
Dim nn As Long
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xSheet = Sheets("Sheet1")
xLast = xSheet.Cells(Rows.Count, "A").End(xlUp).Row
' Word文書を開く
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Open(xPath)
Set objSelection = objWord.Selection
With objSelection
For nn = 2 To xLast
If (xSheet.Cells(nn, xKey).Value <> Empty) Then
'objSelection.Find.Text = "Contoso"
.Find.Text = xSheet.Cells(nn, xKey).Value
.Find.Forward = True
.Find.MatchWholeWord = True
.Find.Replacement.Text = xSheet.Cells(nn, xKey_Rep).Value
xResult = .Find.Execute(Replace:=wdReplaceAll)
xSheet.Cells(nn, "C").Value = Empty
'if (xResult) then
xSheet.Cells(nn, "C").Value = "Done??"
'End If
End If
Next
End With
objWord.Documents.Close
'objWord.Quit
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

.Find.Executeの処理結果がうまく拾えなかったので、置換表のC列に出したのは、単に通過した、という意味、、、

Option Explicit
Sub WORD検索置換()
Const xPath = "D:\tmp\tmp\aho.doc"
Const xKey = "A"
Const xKey_Rep = "B"
Const wdReplaceAll = 2
Dim objWord As New Word.Application
Dim objDoc As Word.Document
Dim objSelection As Object
Dim xSheet As Worksheet
Dim xResult As Boolean
Dim xLast As Long
Dim kk As Long
Dim nn As Long
On Error Resume Next
Application.ScreenUpdating = Fal...続きを読む

Qword文書で赤文字テキストを抽出したいのです

現在、wordを使って日記を書いています。

日付を書いて改行し、本文を書いています。
本文中の重要な文言は 赤文字 に変更してます。

この赤文字に変更した文言だけを抽出して、
別ファイルに日付毎に転機したいのです。

コピー→貼り付けでできるのですが、
日記自体が何十ページになっており、
マクロを使って実現できないものか
ご教授いただければとおもいます。

よろしくお願いします。

Aベストアンサー

> 別ファイルに日付毎に転機したい
日付ごとに転記するとは、日付部分も含めて新規ファイルなどに転記を
したいのでしょうか?

日付部分も赤文字にしてあれば、以下のサイトのマクロを少し編集する
だけで可能だと思います。
http://ameblo.jp/gidgeerock/entry-11076984085.html
こちら↑の場合は、蛍光ペンですが、蛍光ペンの部分だけを赤文字に
変更するだけで希望していることができます。

With myRange.Find
.Text = ""
.Forward = True
.Wrap = wdFindStop
.Font.ColorIndex = wdRed
.Highlight = True ' ここを .Font.ColorIndex = wdRed に変える

End With

日付部分は、事前に置換などで赤文字にすれば済みますよね。
置換方法は日付形式がわからないので提示しませんが、難しくないと
思います。

QWORD VBA 繰り返し処理

WORD VBAについて教えてください。

つぎのようなマクロがあり、これを検索する文字列がなくなるまで、繰り返して、処理するようにしたいのですが、どうすればよいのでしょうか?

Sub Macro1()
Selection.Find.ClearFormatting
With Selection.Find
.Text = "あ"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = True
End With
Selection.Find.Execute
Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub

WORD VBAについて教えてください。

つぎのようなマクロがあり、これを検索する文字列がなくなるまで、繰り返して、処理するようにしたいのですが、どうすればよいのでしょうか?

Sub Macro1()
Selection.Find.ClearFormatting
With Selection.Find
.Text = "あ"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
...続きを読む

Aベストアンサー

こんにちは。

>繰り返し処理の書き方を知りたい
それは、サンプルが良くないですね。
直接の回答にはならないかもしれませんが、こういうのはどうかしら?

Sub SampleTest1()
Dim blnFound As Boolean
Dim rngContent As Range
Dim intCount As Integer

blnFound = True
Set rngContent = ActiveDocument.Content
intCount = 0

Do While blnFound = True
  With rngContent.Find
    .ClearFormatting
    .Wrap = wdFindStop
    .Text = "あ"
    .Execute
  End With
  blnFound = rngContent.Find.Found
  If blnFound = True Then intCount = intCount + 1
Loop
MsgBox (intCount & "個見つかりました。")
End Sub

こんにちは。

>繰り返し処理の書き方を知りたい
それは、サンプルが良くないですね。
直接の回答にはならないかもしれませんが、こういうのはどうかしら?

Sub SampleTest1()
Dim blnFound As Boolean
Dim rngContent As Range
Dim intCount As Integer

blnFound = True
Set rngContent = ActiveDocument.Content
intCount = 0

Do While blnFound = True
  With rngContent.Find
    .ClearFormatting
    .Wrap = wdFindStop
    .Text = "あ"
    .Execute
  End...続きを読む

QSub ***( ) と Private Sub ***( ) の違い

初歩的な質問で申し訳ありませんが・・・

自分でコードを書いていても、イベントが発生したりした時の処理で、コードのウィンドウで上のドロップダウンリストで選択できる時の処理などは自動的に[Private Sub Command1_Click( )]などと出てくるのでそのまま使っています。自分で別途プロシージャーを作成する時は[Sub ****( )]としています。
ですがその違いを理解しないまま、自分で作成する時は[Private Sub]ではなくて[Sub]を使っています。

Sub ***( ) と Private Sub ***( ) の違いは何なんでしょうか?
どなたか説明頂けませんか?
よろしくお願いします。

Aベストアンサー

「Sub」の部分にカーソルを置いて[F1]を押せばヘルプが起動します。
「指定項目」のところに「Public」と「Private」の説明がありますよ。
省略して「Sub hogehoge()」とした場合は「Public」とみなされます。

Publicは「すべてのモジュールから呼び出せるプロシージャ」ということになります。
Privateとすると「同じモジュールの中からしか呼び出せないプロシージャ」となります。

もしExcelをお持ちでしたらExcelのVBEで標準モジュールを追加し、「Sub Test1()」と「Private Sub Test2()」を作成してみてください。
そしてExcelの[ツール]-[マクロ]-[マクロ(Alt+F8)]でマクロ実行のダイアログを表示させてみるとわかります。
ここには実行できるプロシージャの一覧が表示されますが、Test1は表示されているけれどTest2は表示されません。
Test1はPublicで、Test2はPrivateだからです。

QEXCELファイルのカレントフォルダを取得するには?

EXCELファイルのカレントフォルダを取得するには?

C:\経理\予算.xls

D:\2005年度\予算.xls

EXCEL97ファイルがあります。

VBAで
  カレントフォルダ名
(C:\経理\,D:\2005年度\)
を取得する事は可能でしょうか?

CURDIRでは上手い方法が見つかりませんでした。

Aベストアンサー

こんばんは。
Excel97 でも、同じですね。以下で試してみてください。

Sub test()
'このブックのパス
a = ThisWorkbook.Path
'アクティブブックのパス
b = ActiveWorkbook.Path
'Excelで設定されたデフォルトパス
c = Application.DefaultFilePath
'カレントディレクトリ
d = CurDir
MsgBox "このブックのパス   : " & a & Chr(13) & _
   "アクティブブックのパス: " & b & Chr(13) & _
   "デフォルトパス    : " & c & Chr(13) & _
   "カレントディレクトリ : " & d & Chr(13)
End Sub

QWordのマクロで選択中の行番号を取得したい

Wordファイルを操作していると、現在の行番号と桁番号を
画面下で確認できると思います。
5行11桁というように。

これをマクロで取得したいのですが、
どのようにしたら取得できるでしょうか?

画面にコマンドボタンを配置しているのですが、
ボタンを押下する直前にいた場所を取得したのです。

もしご存知でしたら、ご教示ください。
よろしくお願い致します。

Aベストアンサー

行列の現在位置を取得
http://oshiete1.goo.ne.jp/qa3751458.html

こちら↑のマクロから検索(Search)関係を削除して使えるかと思います
ので、参考にしてはいかが。


人気Q&Aランキング