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関連

    カウントダウンタイマーを作成するPowerPointマクロ

    大分前に書いた記事について問い合わせがありましたので、マクロを作成しな…

  2. アイコン一覧

    Office 2013 アイコン一覧(E)

    ・Office 2013 アイコン一覧 NUM…

  3. Office関連

    Google翻訳で文字列を翻訳するマクロ

    ※ 2016/2 時点では下記の方法はもう使用できなくなっています。V…

  4. アイコン一覧

    Office 365アイコン(imageMso)一覧(I)

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

  5. Office関連

    Office製品のフィードバック先まとめ

    WordやExcel等のOffice製品を使っていて、「UIのこの日本…

コメント

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

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

Time limit is exhausted. Please reload CAPTCHA.

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

Translate

最近の記事

アーカイブ

PAGE TOP