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 2013 アイコン一覧(E)

    ・Office 2013 アイコン一覧 NUM…

  2. アイコン一覧

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

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

  3. Office アドイン

    [Office用アプリ]アプリを削除する。

    「JavaScriptで作成した作業ウィンドウアプリを検証してみる。」…

  4. Office関連

    徹底的にSymbol(シンボル)フォントをチェックするWordマクロ

    文字列をメモ帳にコピー&ペーストすると文字化けしたり、フォント指定で検…

  5. Office関連

    名前付きセル(範囲)にコメントを付けるVBAマクロ

    Excelでマニュアルを作成する際、名前付きセル範囲を明記する必要があ…

  6. Office関連

    Wordの自動実行マクロ

    たまたま使用する機会があったのでメモ書き程度に情報を残しておきます。…

コメント

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

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

Time limit is exhausted. Please reload CAPTCHA.

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

Translate

最近の記事

アーカイブ

PAGE TOP