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)一覧(M)

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

  2. Office関連

    Windows 10 Technical PreviewにOffice XPをインストールしてみまし…

    「最新ビルドを詳細レビュー! Windows 10 Technical…

  3. Office関連

    PDFを分割するVBAマクロ

    「VBA PDF 分割」といったキーワード検索でのアクセスがありました…

  4. Office関連

    ディスプレイのサイズを取得するVBAマクロ

    「VBA ディスプレイ 幅 高さ」といったキーワード検索でのアクセスが…

  5. Office関連

    ConvertToTextメソッドを使ってテーブルを二次元配列に変換するWordマクロ

    WordのTableオブジェクトには、テーブルを解除して文字列に変換す…

  6. Office関連

    表の特定の列に対して処理を行うWordマクロ

    2015/6/12 追記:下記で紹介しているコードはセルの結合を考…

コメント

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

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

Time limit is exhausted. Please reload CAPTCHA.

Translate

Chinese (Simplified)Chinese (Traditional)EnglishFrenchGermanJapaneseKoreanRussianSpanish

最近の記事

アーカイブ

PAGE TOP