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には「ユーザー設定フォーム」(Custom Forms)…

  2. Office アドイン

    [Office用アプリ]ユーザー設定を保存する。

    ※ この情報はOffice 2013 カスタマー プレビュー版を元にし…

  3. Office アドイン

    PowerPoint用のOffice用アプリ

    当ブログでも散々紹介しているOffice用アプリ(apps for O…

  4. Microsoft Teams

    Microsoft Teamsでタブの構築を試してみました。

    下記記事の通り、Office 365に新たなコラボレーションツール「M…

コメント

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

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

Time limit is exhausted. Please reload CAPTCHA.

Translate

Chinese (Simplified)Chinese (Traditional)EnglishFrenchGermanJapaneseKoreanRussianSpanish

最近の記事

アーカイブ

PAGE TOP