Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム

436 / 886

←次へ　｜　前へ→


	【462】Re:検索と文字列の抜き出し

H. C. Shinopy - 06/7/12(水) 23:25 -


	引用なし

	パスワード

ワイルドカードによる文字列検索でやると、
下記の通りになります。

それから、マクロの試行段階で既に気が付かれていると思いますが、
ハイパーリンクが設定されていると、検索できませんので、注意。

Sub ghjh()
　Rem 注記：マクロ実行前に、ハイパーリンクの削除が必要。
　Dim mySite As String
　Dim myChrs As Long
　Dim myText As String
　'
　mySite = "http://www.yahoo.co.jp"
　'
　Rem 文書の先頭にカーソルを置く。
　Selection.HomeKey Unit:=wdStory, Extend:=wdMove
　'
　Rem ワイルドカードによる文字列検索の設定
　With Selection.Find
　　.ClearFormatting
　　.Replacement.ClearFormatting
　　.Text = mySite & "*\>" ' 「…>」を検索
　　.Replacement.Text = ""
　　.Forward = True
　　.Wrap = wdFindContinue
　　.Format = False
　　.MatchCase = False
　　.MatchWholeWord = False
　　.MatchByte = False
　　.MatchAllWordForms = False
　　.MatchSoundsLike = False
　　.MatchFuzzy = False
　　.MatchWildcards = True
　　Rem 検索の実行
　　Do While Selection.Find.Execute
　　　With Selection
　　　　.SetRange .End, .End ' 選択範囲の末尾にカーソル移動
　　　　myChrs = .EndOf(Unit:=wdParagraph, Extend:=wdExtend) ' 段落末尾までカーソル拡張
　　　　If myChrs = 0 Then
　　　　　' MsgBox "選択範囲は変わりません。"
　　　　End If
　　　　myText = .Range.Text ' 選択範囲の取り込み
　　　　MsgBox "選択範囲の内容" & vbCrLf & myText
　　　　.SetRange .End, .End ' （次の検索に備え、）選択範囲の末尾にカーソル移動
　　　End With
　　Loop
　End With
End Sub

2,043 hits

▼

【461】検索と文字列の抜き出し penta 06/7/12(水) 21:46