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

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

  2. Office関連

    Office 2013のコントロールIDリストが更新されました。

    「コントロールID 一覧(Office 2013)」でも紹介しているO…

  3. アイコン一覧

    Office 2013 アイコン一覧(K,L)

    ・Office 2013 アイコン一覧 NUM…

  4. Office関連

    オフィス祭り 2018 in 東京に参加しました。

    先日書いた下記記事の通り、9月15日(土)に品川にある日本マイクロソフ…

  5. Office関連

    Word文書をMicrosoft SwayのWebページに変換する方法

    先月のアップデート(バージョン 1812(ビルド 11126.2018…

コメント

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

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

Time limit is exhausted. Please reload CAPTCHA.

最近の記事

アーカイブ

PAGE TOP