★コメント内も検索できるようにしてほしいです。-井本

<Word>
Sub コメントを抜き出すマクロ()

	Dim i As Integer
	Dim actDoc As Document
	Dim strTmp As String

	If ActiveDocument.Comments.Count = 0 Then Exit Sub

	Set actDoc = ActiveDocument

	For i = 1 To actDoc.Comments.Count
	strTmp = actDoc.Comments(i).Range.Text
		If strTmp Like vSearchString Then
			Call OutPut
		ENd If
	Next i

	Set actDoc = Nothing
End Sub


★キャンセルボタンがほしい。-井阪

★処理件数を出してほしい。-横山

・起動準備中のダイアログを出して件数を取得
・プログレスバーを出して進捗を表示
　※プログレスバーはフレームを利用して擬似的に表現する。

(済)★検索結果を強調表示する。
一度結果を出してから、HITした用語をもとに強調表示を行う。
処理を行う前にScreenUpdatingを抑止する。

★ヘッダーフッターを検索してほしい。(Word)

(済)★ファイルの先頭が~$ならスキップする。

★非表示セルが検索できてないので選べるようにする。

★結合セルがFindに引っ掛からない時があるので開いたときに全解除する。(重いかも、要検討)