Word VBA質問箱 IV

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

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


11 / 288 ツリー ←次へ | 前へ→

【540】文字検索及びページ削除 ishi 07/11/2(金) 9:48 質問[未読]

【793】Re:文字検索及びページ削除 マナ 13/6/30(日) 21:46 発言[未読]

【793】Re:文字検索及びページ削除
発言  マナ  - 13/6/30(日) 21:46 -

引用なし
パスワード
   勉強のために書いてみました。
やっぱり、Excelでいえば「行削除は下から」みたいなことでしょうか?

Sub test()
  Dim myStr As String
  Dim myP As Long
  Dim i As Long
  Dim myRng As Range
  
  myStr = "記入"
  
  myP = Selection.Information(wdNumberOfPagesInDocument)

  For i = myP To 1 Step -1
    Set myRng = Selection.GoTo( _
      what:=wdGoToPage, which:=wdGoToAbsolute, Count:=i)
    Set myRng = myRng.Bookmarks("\page").Range
    With myRng.Find
      .Text = myStr
      .Wrap = wdFindStop
      If .Execute Then
        myRng.Bookmarks("\page").Range.Delete
      End If
    End With
  Next

End Sub

11 / 288 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
192512
(SS)C-BOARD v3.8 is Free