| |
ワイルドカードによる文字列検索でやると、
下記の通りになります。
それから、マクロの試行段階で既に気が付かれていると思いますが、
ハイパーリンクが設定されていると、検索できませんので、注意。
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
|
|
Nai
- 06/8/1(火) 10:57 -
H. C. Shinopy
- 06/7/31(月) 20:09 -
Nai
- 06/7/31(月) 19:20 -
- 06/7/30(日) 0:24 -
Jaka
- 06/7/18(火) 12:43 -
