PR
Keyword Search
▼キーワード検索
Calendar
tanpopo3416
わたしのブログへようこそ
Comments
Freepage List
Oct 23, 2023
カテゴリ： Word VBA
Dim mae As String
Dim ato As String
Dim sec As Section
Dim hdr As HeaderFooter
Dim ftr As HeaderFooter
Dim rng As Range
Dim shp As Shape, gShp As Shape, inlShp As InlineShape, satNode As SmartArtNode
mae = "■" '検索するキーワード
ato = "□" '検索後のキーワード
'本文置換
' On Error Resume Next
Set rng = ActiveDocument.Range(0, 0)
With rng.Find
.Text = mae
.Replacement.Text = ato
.Execute Replace:=wdReplaceAll
End With
'ヘッダーフッター内置換
For Each sec In ActiveDocument.Sections
For Each hdr In sec.Headers
With hdr.Range.Find
.Text = mae
.Replacement.Text = ato
.Execute Replace:=wdReplaceAll
End With
Next
For Each ftr In sec.Footers
With ftr.Range.Find
.Text = mae
.Replacement.Text = ato
.Execute Replace:=wdReplaceAll
End With
Next
Next
'オートシェイプ内置換
For Each shp In ActiveDocument.Shapes
If shp.Type = msoGroup Then
For Each gShp In shp.GroupItems
If gShp.TextFrame.HasText Then
With gShp.TextFrame.TextRange.Find
.Text = mae
.Replacement.Text = ato
.Execute Replace:=wdReplaceAll
End With
End If
Next
End If
If shp.TextFrame.HasText Then
Set rng = shp.TextFrame.TextRange
With rng.Find
.Text = mae
.Replacement.Text = ato
.Execute Replace:=wdReplaceAll
End With
End If
Next
End Sub
お気に入りの記事を「いいね！」で応援しよう
[Word VBA] カテゴリの最新記事
-
【Word VBA/マクロ】蛍光マーカー（ハイラ… Oct 24, 2023
-
【Word VBA/マクロ】ハイパーリンク一覧作… Oct 23, 2023
-
【Word VBA/マクロ】スマートアート内の置… Oct 23, 2023
【毎日開催】
15記事にいいね！で1ポイント
© Rakuten Group, Inc.
