ファイルオープンのVBAの書き方教えてください| OKWAVE

全角の空白と半角の空白を区別して置換したい

次のようなテキストデータに含まれる制御コードと空白を別の印刷可能な記号にワードのマクロを使って置換したいのですが、全角の空白と半角の空白を区別して置換したいのですが、全角の空白は半角の空白２個に認識してしまって、困っています。どのような書き方をすれば全角の空白を先に認識して■に置換できるのでしょうか？マクロのソースは最後に添えておきます。ＶＡＢは勉強したことがないので、記録したマクロのソースをいじくっているだけですので初歩的な質問で恐縮ですが教えていただければ大変助かります。 ----（置換前）あいうえをかきくけこさしすせそたちつてとなにぬねの　はまやらわいきしちにひみいりいわをんはひふへほ　まみむめもやいゆえよらりるれろあいうえを　かきくけこさしすせそたちつてとなにぬねの　はまやらわいきしちにひみいりいわをんはひふへほ　まみむめもやいゆえよ　らりるれろ ----（終わり） ----（置換後）あいうえを~~かきくけこ△ さしすせそ~~たちつてと△ なにぬねの~はまやらわ△ いきしちに~~ひみいりい△ わをん△ [改頁] はひふへほ~まみむめも△ やいゆえよ~~らりるれろ△ あいうえを~かきくけこ△ さしすせそ~~たちつてと△ なにぬねの~はまやらわ△ いきしちに~~ひみいりい△ わをん△ [改頁] はひふへほ~まみむめも△ やいゆえよ~らりるれろ△ ----（終わり） ----（ＶＢＡソース） Sub ゲラ刷り() ' ' ゲラ刷り Macro ' 記録日 2007/08/13 記録者 ' ChangeFileOpenDirectory "D:\変換\" Documents.Open FileName:="gera.txt", ConfirmConversions:=False, ReadOnly:= _ False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _ "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _ Format:=wdOpenFormatAuto, XMLTransform:="", Encoding:=932 Selection.WholeStory Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = Chr(13) .Replacement.Text = "△" & Chr(13) & Chr(10) .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = Chr(10) & Chr(12) .Replacement.Text = "[改頁]" & Chr(12) .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = Chr(15) & Chr(81) & Chr(40) & Chr(14) .Replacement.Text = "■" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = " " .Replacement.Text = "~" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = True End With Selection.Find.Execute Replace:=wdReplaceAll End Sub ----（終わり）

macroコードを短縮できるでしょうか。

下記のコードで、実行できます。大部分はマクロを記憶し、同じ処理を重ねただけのものです。目的は、ワードで選択した文字列の中から数字を削除します。ただし、下記のような場合は削除しません。【請求項１】、項２、ないし３、いずれか１、【００１９】、第３の、この処理を行うために、差別化しました。まず、数字を赤字で太字にしました。次に、上記の、削除しては具合が悪い数字については、明朝で標準に戻すようにしてから、赤字で太字の数字を削除しました。２０００文字を超えるので、途中大幅にカットしました。以下は、コードです。 ~~~~~~~~~~~~~~~~~~~~~~~~ Private Sub 符号削除() Selection.Find.ClearFormatting Selection.Find.Font.Bold = True Selection.Find.Replacement.ClearFormatting With Selection.Range.Find .ClearFormatting .Text = "第１" .Replacement.Text = "" .Replacement.Font.Color = 1 .Replacement.Font.Bold = False .Execute Replace:=wdReplaceAll End With Selection.Find.ClearFormatting Selection.Find.Font.Bold = True Selection.Find.Replacement.ClearFormatting With Selection.Range.Find .ClearFormatting .Text = "第２" .Replacement.Text = "" .Replacement.Font.Color = 1 .Replacement.Font.Bold = False .Execute Replace:=wdReplaceAll End With Selection.Find.ClearFormatting Selection.Find.Font.Bold = True Selection.Find.Replacement.ClearFormatting With Selection.Range.Find .ClearFormatting .Text = "又は２" .Replacement.Text = "" .Replacement.Font.Color = 1 .Replacement.Font.Bold = False .Execute Replace:=wdReplaceAll End With ↓以下、２０まで繰り返し Selection.Find.ClearFormatting Selection.Find.Font.Bold = True Selection.Find.Replacement.ClearFormatting With Selection.Range.Find .ClearFormatting .Text = "乃至２０" .Replacement.Text = "" .Replacement.Font.Color = 1 .Replacement.Font.Bold = False .Execute Replace:=wdReplaceAll End With Selection.Find.ClearFormatting Selection.Find.Font.Bold = True Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "１" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .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.Font.Bold = True Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "９" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .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.Font.Bold = True Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "０" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub ~~同じ繰返しを短くする部分の正規表現の使い方やloopを指南していただけたら幸甚です。

ワードで選択範囲だけの改行を削除するマクロ

こんにちは　いつもお世話になっていますワード2010で、選択範囲だけの部分の改行を削除するマクロを記録マクロで作ったのですが、選択部以外もすべて改行してしまいます。どこがいけないのでしょうか。あるいは、操作の仕方でしょうか。以前は使えていたと思うのですが、仕様が変わったのでしょうか。任意の範囲を選択しておいて、記録を開始しました。よろしくお願いします。 Sub Macro1() ' ' Macro1 Macro ' ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^p" .Replacement.Text = "" .Forward = True .Wrap = wdFindAsk .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 ネット上で見つけた以下のマクロでもすべての改行が削除されます。 http://okwave.jp/qa/q960285.html Sub Macro14() Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^p" .Replacement.Text = " " End With Selection.Find.Execute Replace:=wdReplaceAll End Sub

Word2010特定の名前を置き換えるマクロ

例えば、Wordの文章で「田中」とあるものを「山田」に変えたい場合は、置き換えの機能を使ってマクロの記録ができると思います。しかし、こうするとテキストボックスやヘッダフッタに記載された文字は変更できないように思います。どうすれば、これらの文字も含めて置換の対象とすることができるか教えてください。 Sub 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 = True End With Selection.Find.Execute Replace:=wdReplaceAll End Sub

Wordマクロ

Wordでワイルドカードを使った置換マクロを作ったのですが、「MatchWildcardsとMatchSoundsLike、MatchAllWordForms、MatchFuzzyは、同時にTrueに設定することはできません。」というエラーが出てしまいます。 MatchSoundsLike、MatchAllWordForms、MatchFuzzyは、ソースに書いてないしTrueにもしていません。どこが悪いのでしょうか？以下がソースファイルです、よろしくお願いいたします。 Sub substitute() ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "[!a-f]{1,}" .Replacement.Text = "@" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True .MatchFuzzy = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub

WORD　VBA　繰り返し処理

WORD　VBAについて教えてください。つぎのようなマクロがあり、これを検索する文字列がなくなるまで、繰り返して、処理するようにしたいのですが、どうすればよいのでしょうか？ Sub Macro1() Selection.Find.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 = True End With Selection.Find.Execute Selection.MoveRight Unit:=wdCharacter, Count:=1 End Sub

特定の色のマーキングだけを解除するマクロ

Wordのマクロについての質問です複数の色でマーキングしている文書があり、特定の色のマーキングだけを解除するマクロを作成していますが、マーキングの色の指定の仕方がわかりません。マーキングの色の指定はどのよう（どこ）にすれば、よいのですか。 Sub マーキングなし() ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting Selection.Find.Replacement.Highlight = False With Selection.Find .ClearFormatting .Highlight = True .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True End With Selection.Find.Execute Replace:=wdReplaceAll end sub

word2007 マクロ

下記マクロは蛍光ペン部分を消して、その文字数分にアンダーラインを引くマクロになりますこれを改造して、赤文字を消して、その文字数分を空欄にしたいのです。ですが、wdColorRedの入れ方が分かりません。ご教授お願いします。 Sub Problem() '蛍光ペン部分を消して、アンダーラインを引く Selection.Find.ClearFormatting Selection.Find.Highlight = True Selection.Find.Replacement.ClearFormatting Selection.Find.Replacement.Highlight = False With Selection.Find.Replacement.Font .Underline = wdUnderlineSingle .StrikeThrough = False .DoubleStrikeThrough = False .Outline = False .Shadow = False .Hidden = False .AllCaps = False .Superscript = False .Subscript = False End With With Selection.Find .Text = "*" .Replacement.Text = "　^z" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchFuzzy = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll End Sub

以下のようなマクロを作成しましたが、文章の最後まで連続置換をしたい場合

以下のようなマクロを作成しましたが、文章の最後まで連続置換をしたい場合はどうすればよいのでしょうか。ご教示をお願い致します。＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ Selection.Find.ClearFormatting With Selection.Find .Text = "＜G＞*＜M＞" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchFuzzy = False .MatchWildcards = True End With Selection.Find.Execute Selection.Font.Name = "ＭＳゴシック" Selection.Find.ClearFormatting With Selection.Find .Text = "＜G＞*＜M＞" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchFuzzy = False .MatchWildcards = True End With End Sub ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

MicrosoftWordのページ指定置換マクロ

お世話になります。 MicrosoftWordの文章の中の『SYSTEMS』と単語を XXXXXXXに置換するマクロを作ってみましたがこれですとWordの文章ファイルの全てページの『SYSTEMS』とゆう単語を置換してしまいます。 Wordの文章ファイルの1ページ目だけの全ての『SYSTEMS』とゆう単語を置換するマクロはどのようにすればよいでしょうか？ Sub Macro2() ' ' Macro2 Macro ' ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "SYSTEMS" .Replacement.Text = "XXXXXXX" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = True End With Selection.Find.Execute Replace:=wdReplaceAll End Sub

ワードでマクロがうまくいきません。

よろしくお願いします。マクロの知識はほとんどないのですが、「マクロの記録」の機能を使い、ワードで「スペースを探し出し、そのスペースにアンダーラインを引く。」ために、 -------------------- 編集ー置換ー検索する文字列にスペースをタイプ、置換後の文字列にスペースをタイプ、オプションの書式で、フォント、下線、一重下線すべて置換 -------------------- マクロの記録を選択した後、上のように作業しました。そしてマクロの記録をとめました。マクロの記録中の操作では、思い通りに置換されるのですが、次にそのマクロを作動させると、なにもおこりません。なにか変な操作をしたのか、と五度くらい試したのですが、やはり動きません。中身は、↓のようでした。 -------------------- Sub Macro2() ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "　" .Replacement.Text = "　" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = True End With Selection.Find.Execute Replace:=wdReplaceAll End Sub -------------------- どうしてうまく動かないのでしょうか。教えていただけるとありがたいです。よろしくお願いします。

マクロを教えてください。

ワードでマクロがうまくいきません。マクロの知識はほとんどないのですが、「マクロの記録」の機能を使い、ワードで試しています。今回は、「｛｝の括弧でかこまれた単語を探し出し、その単語を括弧ごと消去する」というのをしたいのです。例えば、 ------------------------------- あいうえお｛事実｝ということ ↓ あいうえおということ ------------------------------ にしたいのです。自分は ---------------------------------------- -置換-で、「検索する文字列」に「｛*｝」「置換後の文字列」になにも書かないで、「置換」をクリック -------------------- マクロの記録を選択した後、上のように作業しました。そしてマクロの記録をとめました。が、なにもおこりません。（＊はワイルドカードのつもりなのですが、間違っていますでしょうか。）なにか変な操作をしたのか、と五度くらい試したのですが、やはり動きません。中身は、↓のようでした。 -------------------- Sub Macro1() ' ' Macro1 Macro ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "｛*｝" .Replacement.Text = "" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = True End With Selection.Find.Execute Replace:=wdReplaceAll End Sub -------------------- どうしてうまく動かないのでしょうか。教えていただけるとありがたいです。よろしくお願いします。

VBSでWoｒｄの文字色変え

VBSなのですが Wordファイルをドラッグしたら <と>で囲まれた文字の色を変更して保存するというものを考えておりますが <============= 部分でコンパイルエラー（ステーメントがありません）が発生します初心者でさっぱりわからないのですがどなたかお助けを！よろしくお願いいたします以下ソース Dim objWord Dim f Dim m If WScript.Arguments.Count<1 Then m="Hello!" MsgBox m WScript.Quit End If Set objWord=CreateObject("Word.Application") objWord.Visible=True For Each f In WScript.Arguments objWord.Documents.Open f objWord.Selection.Find.ClearFormatting objWord.Selection.Find.Replacement.ClearFormatting objWord.Selection.Find.Replacement.Font.Color = wdColorRed With objWord.Selection.Find .Text = "\<[!\>]@\>" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchFuzzy = False .MatchWildcards = True End With objWord.Selection.Find.Execute Replace:=wdReplaceAll '<======================= objWord.ActiveDocument.SaveAs f&".doc" objWord.ActiveDocument.Close Next objWord.Quit WScript.Quit

wordで選択した部分の前後に文字列を挿入するマクロを作成したいと思っ

wordで選択した部分の前後に文字列を挿入するマクロを作成したいと思っています。 Word文章中から二重下線を検索しマーカーを付けています。その検索したマーカーが付いている前に例えば"あいう"後に"ABC"と入れる場合どうすれば良いのでしょうか？ Selection.InsertBefore Selection.InsertAfter 等を使って入れられる事はわかりましたがうまく入れる事が出来ません。どなたかご教授頂けると幸いです。他のやり方もあれば是非宜しくお願い致します。 Sub UnderlineDouble() ' ' 検索条件で二重下線、置換条件で蛍光ペン ' With Selection.Find .ClearFormatting .Replacement.ClearFormatting '検索で二重下線 .Font.Underline = wdUnderlineDouble .Text = "" '置換で蛍光ペン .Replacement.Highlight = True .Replacement.Text = "^&" 'その他の条件 .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchByte = False .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.Find.Execute Replace:=wdReplaceAll MsgBox "完了" End Sub

Word2007 文字変換マクロについて

以下のvbsファイルがエラーなってしまいます。どう直したらよいかご教授お願いします。（マクロ初心者） Const wdReplaceAll = 2 Set objWord = CreateObject("Word.Application") objWord.Visible = False Set fs = CreateObject("Scripting.FileSystemObject") Set objFolder = fs.GetFolder("D:\test") For Each objFile in objFolder.Files If Right(LCase(objFile.Name), 5) = ".docx" Then Set objDoc = objWord.Documents.Open(objFolder.Path & "\" & objFile.Name) Set objSelection = objWord.Selection ' objSelection.Find.Text = "A" ' objSelection.Find.Forward = True ' objSelection.Find.MatchWholeWord = True ' objSelection.Find.Replacement.Text = "B" '---------------------------------------------------------- Open "D:\test\2.csv" For Input As #1 While Not EOF(1) Line Input #1, a s = Split(a, ",") MsgBox s(0) & " " & s(1) Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find '---------------------------------------------------------- objSelection.Find.Text = s(0) objSelection.Find.Forward = True objSelection.Find.MatchWholeWord = True objSelection.Find.Replacement.Text = s(1) '---------------------------------------------------------- objSelection.Find.Wrap = wdFindContinue objSelection.Find.Format = False objSelection.Find.MatchCase = False objSelection.Find.MatchWholeWord = False objSelection.Find.MatchByte = False objSelection.Find.MatchAllWordForms = False objSelection.Find.MatchSoundsLike = False objSelection.Find.MatchWildcards = False objSelection.Find.MatchFuzzy = True End With Selection.Find.Execute Replace:=wdReplaceAll Wend Close #1 End Sub '---------------------------------------------------------- If objSelection.Find.Execute( ,,,,,,,,,,wdReplaceAll) Then objDoc.Save End If objDoc.Close End If Next objWord.Quit

Wordのマクロの繰り返しと停止

Wordで"XX"の場所に"★"の後にある文字列を挿入、という以下のマクロを記録したのですが、この作業を★がなくなるまで繰り返したいと思っております。どのように記入すればよいでようか？ Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting With Selection.Find .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.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.EndKey Unit:=wdLine, Extend:=wdExtend Selection.Cut Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting With Selection.Find .Text = "XX" .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.Paste Selection.TypeBackspace End Sub

Word-VBAで文字色を一括置換したいのですが、

Word文書で、赤い文字だけを白文字に変更するマクロを作りたいと思い、マクロの記録機能で記録されたものを参考に以下のようなマクロを作りました。 With Selection.Find .ClearFormatting .Font.Color = wdColorRed .Replacement.ClearFormatting .Replacement.Font.Color = wdColorWhite End With このマクロには不都合がありまして、、、１．カーソル位置より上方の赤文字は変更されない２．テキストボックス内の赤文字も変更されないということで困っております。ヘルプもあちこち見ましたが、どうにもうまくいきません。どなたかご存知の方、解決方法についてアドバイスをいただければ幸いです。

myText = Selection.Range.Textについて

任意の文字列を選択することを含むワードのマクロでは、検索置換ウインドウを使うと、以後、正常な置換が行われないようなのですが、どうしたら、正しい置換が行われるように確保できますでしょうか。どなたか、お教え願います。例えば、以下のコードです。 Dim myText As String myText = Selection.Range.Text With Selection.Find With .Replacement.Font .Name = "明朝" .Color = 255 .Bold = True End With .ClearFormatting .Text = myText .Format = True .Forward = True .Wrap = wdFindAsk '.Wrap = wdFindContinue .MatchFuzzy = False Selection.Find.Execute Replace:=wdReplaceAll End With ある文字列を選んで実行すると、赤字で太字になります。別の文字列をを選んで実行すると、同様に赤字で太字になります。ところが、検索置換ウインドウを使ってしまうと、その後は、検索置換ウインドウの入力状態に支配されてしまいます。このようなことは、他のマクロでも確認しています。例えば次のマクロもそうです。 Dim myText As String myText = Selection.Range.Text Options.DefaultHighlightColorIndex = wdBrightGreen With Selection.Find With .Replacement .ClearFormatting .Highlight = True End With End With With Selection.Find With .Replacement .ClearFormatting .Highlight = True End With .ClearFormatting .Text = myText .Format = True .Forward = True .Wrap = wdFindAsk '.Wrap = wdFindContinue '.MatchFuzzy = True Selection.Find.Execute Replace:=wdReplaceAll End With myText = Selection.Range.Textはだめなようです。通常の検索置換は、検索置換ウインドウが作動するようです。検索置換ウインドウが作動しない検索置換のコードがあれば教えてください。 For～Nextによる一文字ずつの繰り返し処理では時間がかかるので、一ワードずつFor Eachの繰り返し処理で検索置換ウインドウが作動しない検索置換のコードがあれば教えていただけると幸甚です。

[VBA]文書内の特定語句をハイライト[Word]

ある単語のリストがあり、そのリストにある単語が Word 文書内にある場合、すべてをハイライトしたいのですが、うまくできません。次のコードです。これだと「初出のみ」のヒットしかハイライトされません。これを「ヒットしたすべて」にかえることはできるのでしょうか？ Dim search(2) as string search(0) = "abc" search(1) = "def" search(2) = "ghi" For i = 0 To 2 Selection.Find.ClearFormatting With Selection.Find .Text = search(i) .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.Find.Execute Selection.Range.HighlightColorIndex = wdBrightGreen Next

word2007 マクロ

下記マクロは蛍光ペンの箇所を括弧と空欄で書き換え、穴あき問題にするマクロです。これを、文字数の分だけ、空欄をつくるにはどうすればいいのか？また、蛍光ペンではなく、赤文字を括弧と空欄で書き換えるにはどうすればいいのか、教えて頂けたら幸いです。 Sub Macro7() Selection.HomeKey wdStory '文章の最初をカーソル移動 p1: Selection.Find.ClearFormatting Selection.Find.Highlight = True '蛍光ペンを問題にする With Selection.Find .Text = "" '文字は問題にしない .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = True End With Selection.Find.Execute '検索実行 If Selection = m Then Exit Sub '同じところを繰り返し見つけ出したら終わる x = "（　　　　　　　　）" 'カッコで囲む語句を作成（蛍光ペンなし） m = x '終わり判定のため保存 Selection.Delete '一旦消して Selection.InsertAfter x 'カッコつきを挿入。いわば置換 GoTo p1 End Sub

ファイルオープンのVBAの書き方教えてください

みんなの回答

お礼 2007/08/17 15:28

お礼 2007/08/17 15:30

関連するQ&A

全角の空白と半角の空白を区別して置換したい

macroコードを短縮できるでしょうか。

ワードで選択範囲だけの改行を削除するマクロ

ヤバいパソコンが壊れたかも！？事前に知っておきたい3つの兆候と対策

Word2010特定の名前を置き換えるマクロ

Wordマクロ

WORD　VBA　繰り返し処理

特定の色のマーキングだけを解除するマクロ

word2007 マクロ

以下のようなマクロを作成しましたが、文章の最後まで連続置換をしたい場合

MicrosoftWordのページ指定置換マクロ

ワードでマクロがうまくいきません。

マクロを教えてください。

家のネットワークを最適にできますか？：知っておくべきポイント

VBSでWoｒｄの文字色変え

wordで選択した部分の前後に文字列を挿入するマクロを作成したいと思っ

Word2007 文字変換マクロについて

Wordのマクロの繰り返しと停止

Word-VBAで文字色を一括置換したいのですが、

myText = Selection.Range.Textについて

[VBA]文書内の特定語句をハイライト[Word]

word2007 マクロ

注目のQ&A

カテゴリ

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

専門家に質問してみよう

ファイルオープンのVBAの書き方教えてください

みんなの回答

お礼 2007/08/17 15:28

お礼 2007/08/17 15:30

関連するQ&A

全角の空白と半角の空白を区別して置換したい

macroコードを短縮できるでしょうか。

ワードで選択範囲だけの改行を削除するマクロ

ヤバいパソコンが壊れたかも！？事前に知っておきたい3つの兆候と対策

Word2010特定の名前を置き換えるマクロ

Wordマクロ

WORD VBA 繰り返し処理

特定の色のマーキングだけを解除するマクロ

word2007 マクロ

以下のようなマクロを作成しましたが、文章の最後まで連続置換をしたい場合

MicrosoftWordのページ指定置換マクロ

ワードでマクロがうまくいきません。

マクロを教えてください。

家のネットワークを最適にできますか？：知っておくべきポイント

VBSでWoｒｄの文字色変え

wordで選択した部分の前後に文字列を挿入するマクロを作成したいと思っ

Word2007 文字変換マクロについて

Wordのマクロの繰り返しと停止

Word-VBAで文字色を一括置換したいのですが、

myText = Selection.Range.Textについて

[VBA]文書内の特定語句をハイライト[Word]

word2007 マクロ

注目のQ&A

カテゴリ

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

専門家に質問してみよう

WORD　VBA　繰り返し処理