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)」で取得した最終ページに至るまで、ループで順番に処理していくというシンプルなマクロです。

開いているページへのリンクを一発作成するブックマークレット前のページ

[Office用アプリ]プリインストールされたアプリを「個人用アプリ」から削除する。次のページ

関連記事

  1. Office関連

    未読メッセージ数を取得するOutlookマクロ

    Outlook 2007で追加されたFolderオブジェクトのUnRe…

  2. Office関連

    Visio Onlineの機能をJavaScriptで拡張する方法

    @mokudaiさんからのバトンを引き継ぎまして、「Office 36…

  3. Office関連

    Internet Explorerのタブを切り替えるVBAマクロ

    前回の記事でInternet Explorerを操作するVBAマクロを…

  4. アイコン一覧

    Office 2013 アイコン一覧(B)

    ・Office 2013 アイコン一覧 NUM…

  5. Office アドイン

    [Officeアドイン]枠線(目盛線)の表示・非表示を切り替える方法

    ここ二週間ほど体調を崩していたので久しぶりのブログ更新です。久…

  6. Office関連

    「IEを自在に操る Excel VBAプログラミング入門」レビュー

    ※ 下記レビューはあくまでも個人的な感想です。2013年9月2…

コメント

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

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

Time limit is exhausted. Please reload CAPTCHA.

最近の記事

アーカイブ

PAGE TOP