Office関連

文字列を横方向に移動するWordマクロ(WordBasic編)

いつもお世話になっているWord MVPの新田さんが、まるでカニの動きのように選択文字列を横方向に移動させるWordマクロを紹介されていました。

・【Wordマクロ】文字列を横方向に移動する
http://ameblo.jp/gidgeerock/entry-11609960073.html

面白いマクロだったので、早速私もアイデアをパクッて同様のマクロを考えてみました。

Option Explicit

Public Sub MoveTextRight()
'選択範囲を右に1文字分移動
  Dim strlen As Long
  
  strlen = Selection.End - Selection.Start
  If strlen < 1 Then Exit Sub
  With Application.WordBasic
    .MoveText
    .CharRight 2
    .OK
  End With
  Selection.MoveLeft unit:=wdCharacter, Count:=strlen, Extend:=wdExtend
End Sub

Public Sub MoveTextLeft()
'選択範囲を左に1文字分移動
  Dim strlen As Long
  
  strlen = Selection.End - Selection.Start
  If strlen < 1 Then Exit Sub
  With Application.WordBasic
    .MoveText
    .CharLeft 2
    .OK
  End With
  Selection.MoveRight unit:=wdCharacter, Count:=-1 * strlen, Extend:=wdExtend
End Sub

WordBasicマクロにあるMoveTextステートメントを利用したマクロで、F2キーを押して文字列を移動させる処理(Microsoft Word のキーボード ショートカット 参照)をマクロ化したものです。

実務で使えるかどうかは分かりませんが、動きとしてはとても面白いと思います。

[Office用アプリ]アプリ開発コンテスト・受賞者発表前のページ

Windows 8.1をインストールしてみました。次のページ

関連記事

  1. Office関連

    Microsoft Graph ExplorerがMicrosoft アカウント(MSA)に対応しま…

    Azure AD v2.0 エンドポイントによって、個人用Micros…

  2. Office関連

    指定したAccessファイルで「データベースの最適化/修復」を実行するVBAマクロ

    大分前の記事になりますが、開いているデータベースを最適化するマクロのコ…

  3. Office関連

    Excel 2013で駅すぱあとWebサービス APIの「経路探索」を使ってみました。

    「「駅すぱあとWebサービス API無償提供」を利用してみました。」で…

  4. Office関連

    Wordマクロで文字数を取得する方法をまとめてみました。

    「蛍光ペンでマークした部分の文字数をカウントするWordマクロ」で蛍光…

  5. Office関連

    Word 2013のアクセス キー一覧[PDF]

    前回の記事でWord 2013のアクセス キーをまとめたものを公開しま…

コメント

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

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

Time limit is exhausted. Please reload CAPTCHA.

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

Translate

最近の記事

アーカイブ

PAGE TOP