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 365アイコン(imageMso)一覧(W)

    Office 365のデスクトップ版Officeアプリケーション(Wo…

  2. Office関連

    SkyDriveの同期フォルダーのパスを取得するWordマクロ

    無料で使える便利なクラウドストレージ「SkyDrive」にはローカルフ…

  3. Office関連

    サジェスト機能を利用したWord用ツール

    「Webサービスのサジェスト機能についてまとめてみました。」でWebサ…

  4. Office関連

    [OneNote]クリップボードから新しいページに貼り付け

    何かをメモするとき、ファイルを保存するとき等々、私はよくOneNote…

コメント

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

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

Time limit is exhausted. Please reload CAPTCHA.

※本ページはプロモーションが含まれています。

Translate

最近の記事

アーカイブ

PAGE TOP