カテゴリー: VBAマクロ

投稿日:

〈Word〉UR5のマクロを使ってみたけれど、反応なし

テキストを開いて、「開発」をクリック
「マクロ」をクリック
①にして、②で名前をつける。③で「＋」をクリック
先ほど名付けた「実験01」を選び、Ａ、Ｂそれぞれをクリック→反応なし
「Contains SpecialChar」を選び、「▶︎」をクリック
「実験01」を選んで「実行」をクリック→反応なし
投稿日:

〈Word〉マクロについて研究会

〈マクロ〉いつでも使えるボタン編

マクロボタンを作り、表記の統一をします。

〈Word〉マクロボタンで検索置換をします

〈マクロ〉アレンジできる書き換え編

〈Word〉マクロを書き換えて表記を統一する

〈マクロ〉の作り方

【１】Wordの「開発」を使えるようにする

［開発］タブを追加するには

【２】作成したマクロをテンプレートにする（構成内容変更）

【３】【２】を書き換える

【４】ボタンにする

課題

よく使う表記一覧をまとめてください。

例）ぜんぜん⇔全然

投稿日:

〈Word〉マクロボタンで検索置換をします

オリジナルのマクロ『縦組01』を作り、リボンにボタンを登録しました↓

便利です↓

〈Word〉マクロで記号類を統一します

コードは→ダウンロード

テスト用文書→ダウンロード

リストはこちら↓

検索   置換
半角 () ⇨ 全角 （）
<>＜＞ ⇨ 〈〉
[] ⇨ ［］
“” ⇨ 〝〟
% ⇨ ％
& ⇨ ＆
/ ⇨ ／
+ ⇨ ＋
– ⇨ −
= ⇨ ＝
! ⇨ ！
? ⇨ ？
全角 ！？ ⇨ 半角 !?
 

〈デメリット〉

URLの記号も全角になる→目視で変更する

〈混在して区別がつきにくいもの〉

ダーシ「―」、ハイフン「‒」、マイナス「−」「-」

イコール「＝」「=」、ダブルハイフン「゠」

ENダッシュ「–」※Mac：[Option] + [-]／Windows：[Alt]を押しながら0150を入力し[Enter]／また、windows上のwordでは[Ctrl] +テンキーの [-]

投稿日:

〈Word〉マクロ「検索と置換１」

オリジナルマクロ『検索と置換１』の変換リストです。

コードはこちらから→ダウンロード
検索   置換
半角 () ⇨ 全角 （）
<>＜＞ ⇨ 〈〉
“” ⇨ 〝〟
% ⇨ ％
& ⇨ ＆
/ ⇨ ／
+ ⇨ ＋
– ⇨ −
= ⇨ ＝
! ⇨ ！
? ⇨ ？
全角 ！？ ⇨ 半角 !?
行頭のスペース（半角／全角）を削除 

Sub 検索と置換2()
'
' 検索と置換2 Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "("
        .Replacement.Text = "（"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
        .MatchFuzzy = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = ")"
        .Replacement.Text = "）"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
        .MatchFuzzy = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "<"
        .Replacement.Text = "〈"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
        .MatchFuzzy = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = ">"
        .Replacement.Text = "〉"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
        .MatchFuzzy = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "＜"
        .Replacement.Text = "〈"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
        .MatchFuzzy = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "＞"
        .Replacement.Text = "〉"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
        .MatchFuzzy = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = ChrW(8220)
        .Replacement.Text = "〝"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
        .MatchFuzzy = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = ChrW(8221)
        .Replacement.Text = "〟"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
        .MatchFuzzy = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "!"
        .Replacement.Text = "！"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
        .MatchFuzzy = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "?"
        .Replacement.Text = "？"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
        .MatchFuzzy = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "！？"
        .Replacement.Text = "!?"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
        .MatchFuzzy = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "/"
        .Replacement.Text = "／"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
        .MatchFuzzy = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "%"
        .Replacement.Text = "％"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
        .MatchFuzzy = False
    End With
    Selection.Find.Execute
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "&"
        .Replacement.Text = "＆"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
        .MatchFuzzy = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "+"
        .Replacement.Text = "＋"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
        .MatchFuzzy = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "-"
        .Replacement.Text = ChrW(8722)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
        .MatchFuzzy = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "="
        .Replacement.Text = "＝"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
        .MatchFuzzy = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p^w"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
        .MatchFuzzy = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
        With Selection.Find
        .Text = "*"
        .Replacement.Text = "･:*+.(( °ω° ))/.:+"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
        .MatchFuzzy = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

使い方は↓

〈Word〉マクロの使い方