| |
色々方法はあるけど、たとえばFindを使うとか。
Public Sub Macro1()
Dim rng As Range
Dim str As String
With ActiveDocument.Tables(1)
Set rng = .Cell(1, 3).Range
If rng.Text Like "*【第*話】*" Then
With rng.Find
.ClearFormatting
.Text = "第*話"
.Replacement.Text = ""
.Forward = True
.MatchPhrase = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.MatchFuzzy = False
.MatchWildcards = True
.Execute
If .Found Then
str = Replace(rng.Text, "第", "")
str = Replace(str, "話", "")
Debug.Print str
End If
End With
End If
End With
End Sub
あと、いきなりループで処理するコード走らせるよりは、まずは適当なセルを対象に文字列を上手く処理できるか確認した方がいいと思う。
上のコードみたいに。
|
|
774
- 12/9/18(火) 13:01 -
![[未読]](./data/word/image/read_icon.gif){kind=icon}
