締切済み

wordマクロでの他文書参照

2015/01/04 13:43

wordマクロで他文書のwordのページ数をカウントしたいのですがどのようにすれば良いでしょうか？マクロ文書のページ数は以下でできたのですが。。。 Sub Test() Dim msg As String With Selection msg = .Information(wdNumberOfPagesInDocument) End With MsgBox msg Test = msg End Sub

questionHuman
お礼率1% (1/53)

その他（プログラミング・開発）
回答数1
ありがとう数6

みんなの回答 （1）
専門家の回答

みんなの回答

noname#212058

2015/01/04 16:32 回答No.1

他文書を開いてカウントすれば良いです。 Dim Doc As Document Set Doc = Documents.Open("D:\他文書.docx") Dim msg As String msg = Doc.Range.Information(wdNumberOfPagesInDocument) Doc.Close Set Doc = Nothing MsgBox msg

関連するQ&A

Word2007のマクロについて

こんにちは。 Word2007のマクロについて質問させて下さい。・タイトル行が(16738047)色で、本文が黒文字の日本語の文書があります。・タイトル行内でキーワード検索を行いたいです。・1個ずつ内容を確認したいので「次を検索」 MsgBoxを使用しています。以下のコードを実行すると、単語が1個飛ばしに選択されてしまいます。どこを変更すればいいでしょうか？教えてください。よろしくお願いします。 Sub タイトル検索() Dim myKW As String 'キーワード myKW = InputBox("検索する文字を入力して下さい") Selection.HomeKey Unit:=wdStory 'カーソルを文頭に移動 With Selection.Find .ClearFormatting .Font.Color = 16738047 .Text = myKW .MatchWildcards = False .MatchFuzzy = False If Len(myKW) = 0 Then Exit Sub If .Execute = True Then Do While .Execute If MsgBox("次を検索", vbokcansel, "確認") = vbOK Then Selection.Find.Execute End If Loop 　　MsgBox "処理が終了しました。" Else MsgBox "文字はありませんでした。" End If End With With Selection.Find ' 検索・置換のクリア .ClearFormatting: .Replacement.ClearFormatting .Text = "": .Replacement.Text = "" .MatchWildcards = False: .MatchFuzzy = False End With End Sub
マクロでエクセル・ワード文書をひらく

Windows2000 Excel2000でマクロ作成中の超初心者です。コマンドボタンでExcelとWord文書を開いて、その文書を利用しています。次の3点について、ご教示をお願いします。 1）この文書を開いたとき、両方ともマイドキュメントのフォルダに固定したい 2）ワード文書を開くと、タスクトレーにあらわれるため、いちいち最大化ボタンをおさなければならない。これを最初から最大化表示したい 3）他のＰＣでも使えるコードにしたいちなみに使っているコードは次の2個です。 Sub ワードをひらく() Dim FileName As String Dim s As String On Error GoTo JumpError FileName = Application.GetOpenFilename("Word文書,*.doc", 1, "Word文書を開く", , False) Shell """C:\Program Files\Microsoft Office\Office\WINWORD.EXE""" & " """ & FileName & """" JumpError: End Sub ----------------------------------- Sub エクセルをひらく() Dim OpenFileName As String OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls") If OpenFileName <> "False" Then Workbooks.Open OpenFileName End If End Sub
ワードマクロで指定範囲内の改行の数を調べたいと思っています。下記のよう

ワードマクロで指定範囲内の改行の数を調べたいと思っています。下記のような記述をしました。改行マークのない文を指定（selection）して実行すると、予定通り、n=0となるのですが、改行マークのある箇所を指定すると、文章全体の改行の数を調べてしまいます。改行の意味で「vbCr」を使用しましたが、それが問題なのでしょうか？また、改行が入るとselectionが無効になるのでしょうか？どなたか教えてください。よろしくお願いします。 Sub test() Dim n As Integer Do While Selection.Find.Execute(findtext:=vbCr, Forward:=True) = True n = n + 1 Loop MsgBox (n) End Sub
Wordでマクロを用いたチェックボックスについて

Word2003までは下記のマクロでチェックボックスを作成することができたのですが、Word2013で作成し実行すると、　実行時エラー'5941' 　指定されたコレクションのメンバーは存在しません。となり作成できません。デバッグをクリックすると、　Set myRange = Selection.Fields(1).Code の行に印が付きます。修正方法や、Word2013にてマクロでチェックボックスを作成するコマンドをご存じの方がいらっしゃいましたら、よろしくお願いい致します。 Sub FldCbox() 　Dim myRange As Range 　' 　Set myRange = Selection.Fields(1).Code 　' 　If myRange.Text = "MACROBUTTON FldCbox " & ChrW(9744) Then 　　myRange.Text = "MACROBUTTON FldCbox " & ChrW(9745) 　Else 　　myRange.Text = "MACROBUTTON FldCbox " & ChrW(9744) 　End If 　' 　With Selection 　　.Fields(1).Update 　　.Fields(1).ShowCodes = False 　　.SetRange Selection.End, Selection.End 　End With End Sub
MS Wordのマクロで自動改ページする方法

xabcxdefgxhijk・・・のように並んだ文字列を xabc(改ページ) xdefg(改ページ) xhijk・・・のように，xの位置で自動的に改ページしたい。 ------------------------------------------ 上記の動作を実行するためのマクロを見よう見まねで以下に示すように作成したのですが，成功したり成功しなかったりします。原因が分かる方ご指摘ご修正いただけるとありがたいです。（Wordのマクロは今回始めて作成する全くの初心者です。） WordのバージョンはOffice2003です。よろしくお願いいたします。 ------------------------------------------ Sub kaipage() Dim blnFound As Boolean Dim rngContent As Range Dim intCount As Integer blnFound = True Set rngContent = ActiveDocument.Content intCount = 0 Do While blnFound = True With rngContent.Find .ClearFormatting .Wrap = wdFindContinue .Text = "x" .Replacement.Text = "$" .Execute Replace:=wdReplaceOne, Forward:=True End With Selection.Find.Execute Selection.InsertBreak Type:=wdPageBreak blnFound = rngContent.Find.Found If blnFound = True Then intCount = intCount + 1 Loop MsgBox (intCount & "個見つかりました。") End Sub
ワードマクロについて

ワードマクロについてＭＳ　ＷＯＲＤ　２００３ファイル中の「図の書式設定」の「高さ」および「幅」を、インプットボックスで入力した数値（％）で拡大・縮小するために、下記マクロを作成しました。　下記マクロは、ケミドローで作成した化学式をＷＯＲＤ文書にコピー・ペーストした図に対しては正常に機能します。　しかし、特許・実用新案公報ＤＢ（http://www.ipdl.inpit.go.jp/Tokujitu/tjsogodb.ipdl?N0000=101）で検索した特許文献を、ＷＯＲＤ文書にコピー・ペーストした場合、その図に対してマクロを実行すると、「高さ」および「幅」が入力値とは異なるというバグがあります。　例えば、上記サイトで検索した「特開２０１０－１」をＷＯＲＤファイルにコピー・ペーストした後、【図１】に対して、このマクロで「３０」（％）を入力すると、「高さ」および「幅」に、それぞれ「１０％」および「２２％」が入力されます。　このバグの原因および解決策をご教示下さいますようお願いします。 Sub Size_Each_Image() ' 選択イメージのサイズ変更。 ' ' 現在のＩＭＥの状態を格納する場所を宣言 Dim sinIME As Single ' インプットボックスで入力された％の格納場所を宣言 Dim varX As Variant ' ' 選択箇所が行内図でない場合、終了。 If Selection.Type <> wdSelectionInlineShape Then End ' ' 現在のＩＭＥの状態を格納し、日本語入力をＯＦＦにする With ActiveWindow sinIME = .IMEMode .IMEMode = wdIMEModeOff End With ' ' インプットボックスでサイズ入力。 varX = InputBox("選択イメージのサイズ(％)は？", "選択イメージのサイズ") ' キャンセルされた場合、日本語入力を元に戻して終了。 If varX = "" Then ActiveWindow.IMEMode = sinIME End End If ' ' サイズ入力 With Selection.InlineShapes(1) .ScaleHeight = varX .ScaleWidth = varX End With ' ' ＩＭＥを元に戻す ActiveWindow.IMEMode = sinIME ' End Sub
ワードの詳しいスタイルを知らせるマクロ

ワード２００７です。カーソルのおいてある段落のスタイルを知るマクロを作りました。 Sub スタイルを伝える() Dim 範囲 As Range Dim スタイル As Style Set 範囲 = Application.Selection.Range Set スタイル = 範囲.Paragraphs(1).Style MsgBox ("カーソルのあった場所のスタイルは　" _ & vbCrLf & vbCrLf & スタイル) End Sub です。その段落が見出し２だったとします。全体ではなしに、二文字だけに、アンダーラインしたとします。スタイルウインドウを見ると、「見出し２＋下線」と表示されています。しかし、上のマクロでは、相変わらず、「見出し２」としかメッセージしてくれません。「見出し２＋下線」とメッセージさせることはできないでしょうか。
wordのマクロでクリップボードの処理

WORD文書上に、「c:\....jpg」という画像へのアドレスが複数あるとします。そのアドレスを画像に差し替えたいのですがうまくいきません。。とりあえずマクロでまず「c:\\*jpg」で検索をかけて、文字列をコピー、その文字列を使って図の挿入をしようと思っています。 Sub Macro1() Dim 画像 Selection.Find.ClearFormatting With Selection.Find .Text = "C:\\*jpg" .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.Copy ※クリップボードの内容を変数「画像」へ代入 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.InlineShapes.AddPicture FileName:= _ 画像, LinkToFile:=False, SaveWithDocument:= _ True End Sub 以上が今考えているマクロなんですが、※の部分で変数「画像」へクリップボードから代入をする処理がどうにもうまくいきません。 wordのマクロは初めていじるのでよくわかりません。どなたかわかる方教えてください。よろしくお願いします。
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
Wordのマクロを造りたいです。

マクロの条件は以下のとおりです。カタカナ⇒全角英数字記号⇒半角別途指定文字の変換 (例)　　　(1)⇒[1] 変換文字個数を表示上記、4つの内容を1つのマクロ内で処理したいです。お知恵をお願いします。現在使用しているのは以下のマクロです。 Sub 電子納品のための変換プログラム() ' ' 電子納品のための変換プログラム Macro ' 記録日 2006/01/19 記録者 HP Customer ' With Selection.Find .MatchFuzzy = False End With t = 0 ' 英字 While Selection.Find.Execute(FindText:="[Ａ-ｚ]", _ Wrap:=wdFindContinue, MatchWildcards:=True) = True Forward = True MatchWildcards = True Selection.Range.CharacterWidth = wdWidthHalfWidth t = t + 1 Wend ' 数字 While Selection.Find.Execute(FindText:="[０-９]", _ Wrap:=wdFindContinue, MatchWildcards:=True) = True Forward = True MatchWildcards = True Selection.Range.CharacterWidth = wdWidthHalfWidth t = t + 1 Wend ' カナ文字 While Selection.Find.Execute(FindText:="[ヲ-ン][゛゜]", _ Wrap:=wdFindContinue, MatchWildcards:=True) = True MatchWildcards = True Selection.Range.CharacterWidth = wdWidthFullWidth t = t + 1 Wend While Selection.Find.Execute(FindText:="[ヲ-ン]", _ Wrap:=wdFindContinue, MatchWildcards:=True) = True MatchWildcards = True Selection.Range.CharacterWidth = wdWidthFullWidth t = t + 1 Wend While Selection.Find.Execute(FindText:="［。-゜］", _ Wrap:=wdFindContinue, MatchWildcards:=True) = True MatchWildcards = True Selection.Range.CharacterWidth = wdWidthFullWidth t = t + 1 Wend t = CStr(t) Msg = t + "件の変換がありました。" MsgBox (Msg) End Sub
AccessVBAからWordのマクロを実行するには

[環境]Access2000,Word2000 AccessVBAでWordのオブジェクトをつくりファイルを開くところまではたどり着いたのですが、開いたWordファイルにあるマクロを実行させることが出来ずに困っています。 WordオブジェクトのApplicationとDocumentsオブジェクトの関係も把握しきれていないため、おかしなソースになっているかも知れません。よろしくお願いします。 sub DoMacro() Dim oWrd as Word.Application Dim oDoc as Word.Document Set oWrd = New Word.Application With oWrd Set oDoc = oWrd.Documents.Open("c:\test.doc") .Visible = True .Application.Run ("Macro1") oDoc.SaveAs "c:\newTest.doc" .Quit End With 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 -------------------- どうしてうまく動かないのでしょうか。教えていただけるとありがたいです。よろしくお願いします。
エクセルマクロでワード文書を強制的に閉じるには

エクセルマクロでワードへの差し込み印刷を行っています。時々、ワード様式ファイルを二重起動してしまい、その結果読み取り専用で開くかとのメッセージで出て処理がストップすることがあります。そこで差し込み印刷を行う前に、ワード様式ファイルが開いているかどうか確認し、開いていれば一旦ワード様式ファイルを閉じてから、差込印刷を開始するように改良しました。ところが、今度は、ワード様式ファイルを閉じる段階で「〇〇.docに対する変更を保存しますか？保存　保存しない　キャンセル」のメッセージが表示され、処理がストップしてしまいます。メッセージが出ない方法について数日、いろいろ試みましたがいまだできません。どなたかご教示のほどよろしくお願いいたします。 ★印の箇所が最後に試みたcordです。＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ Option Explicit Dim myxls, mydoc As String '---------------------- Sub 差込印刷() '---------------------- myxls = ThisWorkbook.Path & "\VBA差込元data.xls" mydoc = ThisWorkbook.Path & "\差込先ワード様式.doc" '↓Word差込印刷時の二重起動による休止を避けるためのcode On Error GoTo ErrorHandler '↓差込先ワード様式.docが既に開いていると次行でerror75が発生、ErrorHandlerに飛んで注意を促す。 Name mydoc As mydoc '-------- Word差込 '-------- Exit Sub ErrorHandler: '↓★ここで差込先ワード様式.docを「保存」「保存しない」「キャンセル」の確認ウィンドウが表示されてしまう。★ Let Application.DisplayAlerts = False '★←これを書いても無駄だった★ GetObject(mydoc).Application.Quit Let Application.DisplayAlerts = True '★ Resume End Sub '----------------- Sub Word差込() '----------------- Dim objword, wddoc As Object Set objword = CreateObject("Word.Application") '←Wordオブジェクトを作成 With objword .Visible = True '↓Wordドキュメントオブジェクトを作成→指定ワード文書が読み込まれた。 Set wddoc = .Documents.Open(Filename:=mydoc) End With '---------------------------------- With wddoc.MailMerge '↓フルパスでよろしくね！ .MainDocumentType = wdFormLetters .OpenDataSource Name:=myxls, _ Connection:= _ "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ myxls & ";Mode=Read;Jet OLEDB:Engine Type=35" _ , SQLSTATEMENT:="SELECT * FROM [sheet1$]" '----------------------- Dim rc As Integer rc = MsgBox("人数分のワードのページを作成しますか？" & vbCr & _ "【は　い】・・人数分のページを作ります。" & vbCr & _ "【いいえ】・・ページをつくりません。(Word様式原本のみ作成)", vbYesNo + vbQuestion, "確認") If rc = vbYes Then '----------------------- '下記3行により[個々の文書の編集]まで一気に .ViewMailMergeFieldCodes = False .Destination = wdSendToNewDocument .Execute '----------------------- wddoc.Close '←word原本・Wordドキュメントオブジェクトを閉じる。 Set objword = Nothing Set wddoc = Nothing End If '----------------------- End With '---------------------------------- 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
これは参照渡し・値渡ししてる事になりますか？

Dim a As String Sub マクロ1() a = "test" Call マクロ2 a = Empty End Sub Sub マクロ2() MsgBox a End Sub これは参照渡し・値渡ししてる事になりますか？ ByRefやByValを使わない限り、参照渡しまたは値渡ししてるとは言えないのでしょうか？ご回答よろしくお願いします。
word2003のマクロが2007でエラーになる

word2003(windows2000)で使っていたマクロを、人に頼まれてその人の2007のword(windowsXP)に入れたのですがエラーが出て動かないそうです。マクロは以下のページにあったものの改造で、どこを直したらよいのかわかりません。 http://okwave.jp/qa/q2344318.html 答えでなく、ヒントでも良いのでどなたか教えてください。 h = Selection.ShapeRange.Heightという行で、「エラー5　プロシージャの呼び出し、または引数が不正です」というようなエラーが出るそうです。 2003ではエラーは出ず、選択されている画像の高さがｈに入ります。よろしくお願いします。 ----------------------------------- Public Sub ChgPest() '選択した画像をクリップボードの中身と入れ替えてemfで貼り付ける Dim T, L, h, W, cl, cr, ct, cb As Integer Dim FName As String Dim MyShape As Shape Dim fd As FileDialog Dim clp As Integer Application.ScreenUpdating = False T = Selection.ShapeRange.Top L = Selection.ShapeRange.Left h = Selection.ShapeRange.Height　←●デバッグするとここが黄色になっている W = Selection.ShapeRange.Width posi = Selection.ShapeRange.RelativeVerticalPosition cl = Selection.ShapeRange.PictureFormat.CropLeft cr = Selection.ShapeRange.PictureFormat.CropRight ct = Selection.ShapeRange.PictureFormat.CropTop cb = Selection.ShapeRange.PictureFormat.CropBottom Set myrange = Selection.Range Selection.Delete Selection.PasteSpecial datatype:=wdPasteEnhancedMetafile 'EMFでペースト clp = ActiveDocument.Shapes.Count 'すべてのshapeを数える Set MyShape = ActiveDocument.Shapes(clp) '最後にペーストしたshape ActiveDocument.Shapes(clp).LockAnchor = False 'アンカーを固定しない ActiveDocument.Shapes(clp).WrapFormat.Type = 3 MyShape.Select With Selection.ShapeRange.PictureFormat .CropLeft = cl .CropRight = cr .CropTop = ct .CropBottom = cb End With Selection.ShapeRange.RelativeVerticalPosition = posi Selection.ShapeRange.Top = T Selection.ShapeRange.Left = L Selection.ShapeRange.Height = h Selection.ShapeRange.Width = W Selection.ShapeRange.ZOrder msoSendToBack Application.ScreenUpdating = True End Sub
Word2007マクロ

宜しくお願い致します Word2007でこんな事が出来ますか Excel2007で線路を作るマクロを作成しました(本を見て) これをWordでも使用したいのですが、Excelのマクロそのまま WordのVisual Basicに書き込んでもエラーが出て機能しません Excelのマクロは以下です Sub 線路作成() 上端位置 = Selection.Top 左端位置 = Selection.Left 　Selection.ShapeRange.Line.Weight = 6# Selection.ShapeRange.Line.Visible = msoTrue Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Duplicate.Select Selection.ShapeRange.IncrementLeft -18# Selection.ShapeRange.IncrementTop 9.6 Selection.ShapeRange.Line.DashStyle = msoLineDash Selection.ShapeRange.Line.Weight = 4.5 Selection.ShapeRange.Line.Visible = msoTrue Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Line.ForeColor.SchemeColor = 9 Selection.ShapeRange.Line.Visible = msoTrue Selection.Top = 上端位置 Selection.Left = 左端位置 End Sub Wordで使えるようにするには、どこを直せばよいでしょうか。
ワードでスタイル名を取り出すマクロ

ワード2010で、今、カーソルがおいてあるところの段落のスタイル名をメッセージボックスで知りたいのですが、そのマクロの作り方を教えてください。 Sub スタイル名取得() Dim スタイル名 As Style スタイル名 = ActiveDocument.Styles MsgBox (スタイル名) End Sub とやってみたのですが、だめです。
Word：文書ファイルを開くたび、末尾に自動的に日付を挿入したい

ご覧いただきありがとうございます。 Wordでマクロを使い、文書ファイルを開くたびにカーソルが文書末尾に飛んで、その位置にファイルを開いた日の日付が挿入されるようにしたいと思っています（Windows付属のメモ帳で、先頭行に.LOGと書いたファイルを編集するときのようなイメージです）。 Webで調べたところ、カーソルを末尾に飛ばすには、ThisDocumentに　Private Sub Document_Open() 　　Selection.EndKey Unit:=wdStory 　End Sub と登録すればよいことがわかりました。また、手動でマクロを呼び出して日付を挿入するなら、　Private Sub AddFieldAsConst(Field As String) 　　With Selection 　　　.Fields.Add(Range:=.Range, Type:=wdFieldEmpty, Text:=Field).Unlink 　　End With 　End Sub 　Public Sub AddDate() 　　AddFieldAsConst "TIME \@ ""ggge年M月d日(aaa)"" " 　End Sub というコードを標準モジュールに登録すればよいということもわかりました。しかし、これらのコードをどのようにいじれば日付の挿入が自動で行われるのかがわかりません。どなたかおわかりになられる方、ご教授よろしくお願いいたします。なお、OSおよびソフトのバージョンは、WindowsXP + Word2002です。
特定の色のマーキングだけを解除するマクロ

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

wordマクロでの他文書参照

みんなの回答

関連するQ&A

Word2007のマクロについて

マクロでエクセル・ワード文書をひらく

ワードマクロで指定範囲内の改行の数を調べたいと思っています。下記のよう

Wordでマクロを用いたチェックボックスについて

MS Wordのマクロで自動改ページする方法

ワードマクロについて

ワードの詳しいスタイルを知らせるマクロ

wordのマクロでクリップボードの処理

word2007 マクロ

Wordのマクロを造りたいです。

AccessVBAからWordのマクロを実行するには

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

エクセルマクロでワード文書を強制的に閉じるには

Wordマクロ

これは参照渡し・値渡ししてる事になりますか？

word2003のマクロが2007でエラーになる

Word2007マクロ

ワードでスタイル名を取り出すマクロ

Word：文書ファイルを開くたび、末尾に自動的に日付を挿入したい

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

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

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

wordマクロでの他文書参照

みんなの回答

関連するQ&A

Word2007のマクロについて

マクロでエクセル・ワード文書をひらく

ワードマクロで指定範囲内の改行の数を調べたいと思っています。下記のよう

Wordでマクロを用いたチェックボックスについて

MS Wordのマクロで自動改ページする方法

ワードマクロについて

ワードの詳しいスタイルを知らせるマクロ

wordのマクロでクリップボードの処理

word2007 マクロ

Wordのマクロを造りたいです。

AccessVBAからWordのマクロを実行するには

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

エクセルマクロでワード文書を強制的に閉じるには

Wordマクロ

これは参照渡し・値渡ししてる事になりますか？

word2003のマクロが2007でエラーになる

Word2007マクロ

ワードでスタイル名を取り出すマクロ

Word：文書ファイルを開くたび、末尾に自動的に日付を挿入したい

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

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

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

カテゴリ
一覧

専門家に質問してみよう
専門家登録