Windows7, MSWord2007 でマクロを使用しています。以

Question

Windows7, MSWord2007 でマクロを使用しています。以前うまく行っていたのに今日はエラーで止まります。
記入した文字を日本字はMS明朝10.5PT, 半角アルファベットはTimesNewRomanPT12 に統一するマクロです。
[検索する文字列]に指定したパターンマッチングが正しくありません、と表示されます。
他人からいただいたマクロなので自分で直せません。ご援助いただければと存じます。

止まった行：   .Execute Replace:=wdReplaceAll

マクロ全文：
Sub SelectedFontChangedMSMincho10_5TimesNewRoman12()
Dim myRng As Range
With ActiveDocument
  Set myRng = .Range(Selection.Range.Start, .Range.End)
End With
With myRng.Font
  .NameFarEast = "ＭＳ 明朝"
  .NameAscii = "Times New Roman"
  .NameOther = "Times New Roman"
  .Size = 10.5
End With
With myRng.Find
  .ClearFormatting
  .Text = "[0-9A-Za-z,.\\!\?""'/$\%\&\#\=\-\+\<\>]{1,}" '半角スペース～チルダ
  .Forward = True
  .Wrap = wdFindStop
  .MatchCase = False
  .MatchWholeWord = False
  .MatchByte = False
  .MatchAllWordForms = False
  .MatchSoundsLike = False
  .MatchWildcards = True
  .MatchFuzzy = False
  With .Replacement
    .ClearFormatting
    .Text = ""
    .Font.Size = 12
  End With
  .Execute Replace:=wdReplaceAll
End With
End Sub

Wendy02 · Accepted Answer

どうやら、ご質問とコードとはかなり食い違いがあるようです。

>３行目から後を最後まで、変換して欲しいのです。
>変換後は、全角文字はＭＳ明朝　10.5Pt、半角文字はTimes New Roman 12 Pt にしたいのです。
それに、この内容ですと、マクロの内容がまったく違いますね。
ただ、明朝とTimes New Roman の区分けはやめました。単に、半角と全角の区分けで十分ではないかと思います。

>３．うううううウウウウウ宇宇宇宇宇uuuuu33333３３３３３?????
全角・半角の問題があるから、一部、半角カタカナあたりが抜けがあるかもしれません。
もし、全部を変換するなら、一端、10.5 pt にしておいて、そこから、半角文字を、12 pt にしても良いかもしれません。以下は、最初から、区分けしています。

'//

Sub prcReplaceFontSize()
　　Dim Ar1 As Variant
　　Dim Ar2 As Variant
　　Dim Ar3 As Variant
　　Dim i As Long
　　Dim rng As Range
　　Ar1 = Array("[ぁ-龠！-～]*", "[^32-~]*")
　　Ar2 = Array(10.5, 12)
　　'Ar3 = Array("ＭＳ 明朝", "Times New Roman") 'ここは生きていません。
　　　　
　　　　Selection.EndKey Unit:=wdStory, Extend:=wdExtend
　　　　Set rng = Selection.Range
　　　　For i = 0 To 1
　　　　With rng.Find
　　　　　　.ClearFormatting
　　　　　　.Text = Ar1(i)　
　　　　　　.Wrap = wdFindStop
　　　　　　.Font.ColorIndex = wdAuto
　　　　　　'.Font.Size = Ar2(i) ''フォントサイズと種類は略して良いと思います
　　　　　　'.Font.NameAscii = Ar3(i) "''
　　　　　　.Format = True
　　　　　　.MatchCase = False
　　　　　　.MatchWholeWord = False
　　　　　　.MatchByte = False
　　　　　　.MatchAllWordForms = False
　　　　　　.MatchSoundsLike = False
　　　　　　.MatchFuzzy = False
　　　　　　.MatchWildcards = True
　　　　　　With .Replacement
　　　　　　　　.ClearFormatting
　　　　　　　　.Text = "^&"
　　　　　　　　.Font.Size = Ar2(i)
　　　　　　End With
　　　　　　.Execute Replace:=wdReplaceAll
　　　　End With
　　　　Next i
　　　　Selection.Collapse
End Sub

>他人様に全部書いて欲しいなどと申し上げるなど、躊躇いたしますが、
全部書いて欲しいなどとは書いていません。私は、中途半端に回答を済ませるようなつもりは一切ありません。これは、ご質問者さんには、関係がない話です。

多くの回答者は、本当はWord VBAをきちんと勉強したこともないままに、記録Macro程度のコードしか書けない程度で、こちらのコードを評価したりするマナー違反が、Officeの掲示板で繰り返されたからです。ただ、私は、ここのサイトに来る前からWord VBAの掲示板にも書いてきましたが、Word VBAの回答した結果は、その達成感よりもストレスや不満が残るものも多いのです。記録Macro程度で済まされるなら、私の回答などいりませんからね。

Wendy02 · Answer

もう一度、見直しますが、もともとは、記録マクロから起こしたもののようです。
それでは、ダメのようですから、プログラミング・マクロを考えます。（本日は、眠くて無理です)
そのままでは、まだ、おかしい部分があるような気がしましたが、書き直しが必要なので、それはやめていました。

ただ分からないのは、
>1....選択部部のみを対象とするのではなく、選択部分以後を対象とします。

半角文字をすべてを、12 pt にすることではなかったのではないでしょうか？
>（日本字はＭＳ明朝、英字はTimes New Roman）
ただ、なんとなく、本当にそういう条件で保たれているのか分かりません。

もちろん、上から下に検索するようにして、置換するように書かないといけないかもしれません。ただ、エラーが出る原因は良くわかっていません。

>２．止まった行： .Execute Replace:=wdReplaceAll このコマンドは何を現しているのでしょう。

一括置換ですが、実際のプログラミング・マクロには、素人の方以外は、そのようなことはあまりしません。

どなたか、我こそは自信があるなら、その方が完成すれば、それはそれで構いません。今のところ、一般的に気がついた点でしか、アドバイスをしていません。もし、他人のマクロで完成しても、その人のコーディングに文句をつけるようなマナー違反はしません。ここ数カ月、ここで回答者のマナー違反が目立ったので、念のために記しておきます。

Wendy02 · Answer

みた感じは、エラーが出やすいコードだとは思いました。なぜエラーが出るかというと、Excel VBAとは違って、Word VBAは、表のメニュー設定とつながっているからです。VBAのプロパティには順序があります。

具体的には、

>　.MatchWildcards = True
>　.MatchFuzzy = False

この部分が、逆にだと思います。

.MatchFuzzy = False
　.MatchWildcards = True

記録マクロでは分かりません。それと、検索値は、そのような書き方をしなくてもよいと思います。

ANSIの文字全部だとしたら、
"[0-9A-Za-z,.\\!\?""'/$\%\&\#\=\-\+\<\>]{1,}" '半角スペース～チルダ
　↓
　.Text = "[^32-~]{1,}"

スペースからチルダまででしたら、このようになります。スペースは、実際の半角スペースでも良いです。

置換値は、入れなくても良いようですが、以下のように ^&にしても良いようです。

With .Replacement
　　.ClearFormatting
　　.Text = "^&"
　　.Font.Size = 12
　End With

mimeu · Answer

同じ環境で試してみましたが、正常に動きますよ。

このマクロは選択部分だけを対象に動くように作られていますので、
１行ずつ順に選択して実行してみられてはいかがですか。
どういう文字を対象にしたときエラーが発生するかがわかれば
対処のしようがあると思います。

Windows7, MSWord2007 でマクロを使用しています。以

どうやら、ご質問とコードとはかなり食い違いがあるようです。

この回答への補足

もう一度、見直しますが、もともとは、記録マクロから起こしたもののようです。

この回答への補足

みた感じは、エラーが出やすいコードだとは思いました。

この回答への補足

同じ環境で試してみましたが、正常に動きますよ。

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング