Office関連

ページ毎に処理を行うWordマクロ

Wordのマクロで「ページ毎に○○したい」という要望があったので、簡単な処理を考えてみました。

Option Explicit

Public Sub Sample()
  Dim last_page As Long
  Dim active_page As Long
  Dim doc As Word.Document
  
  Set doc = Application.ActiveDocument
  Selection.HomeKey Unit:=wdStory
  last_page = Selection.Information(wdNumberOfPagesInDocument)
  Do Until active_page = last_page
    active_page = Selection.Information(wdActiveEndPageNumber)
    
    '---------------------------------------------
    doc.Bookmarks("\page").Select '何らかの処理
    '---------------------------------------------
    
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=1
  Loop
  Selection.HomeKey Unit:=wdStory
End Sub

Selection.Information(wdNumberOfPagesInDocument)」で取得した最終ページに至るまで、ループで順番に処理していくというシンプルなマクロです。

関連記事

  1. Office関連

    名前付きセル(範囲)にコメントを付けるVBAマクロ

    Excelでマニュアルを作成する際、名前付きセル範囲を明記する必要があ…

  2. Office アドイン

    Office用アプリではalertやconfirmが使えない?

    JavaScriptでメッセージや確認ダイアログを表示する際には「al…

  3. Office関連

    KB2553154の更新プログラムをアンインストールするVBScript

    2014/12/11 追記:当記事で紹介しているのは更新プログラム…

  4. Office関連

    「図のリセット」を実行するExcelマクロ

    Msdn フォーラムに「Excel2010-VBA 画像「図の書式設定…

  5. Office関連

    VBAでインターネット上のファイルをダウンロードする方法をまとめてみました。

    「VBA ファイル ダウンロード」といったキーワード検索でのアクセスが…

コメント

  1. この記事へのコメントはありません。

  1. この記事へのトラックバックはありません。

Time limit is exhausted. Please reload CAPTCHA.

最近の記事

アーカイブ

RapidSSL_SEAL-90x50
PAGE TOP