VBAにおけるワイルドカードを使った置換について

Question

###前提・実現したいこと
ワイルドカードで検索しヒットした
文字列を取得したいです。

環境：Microsoft Word2010

###現状
VBAでワイルドカードを使った検索を行っています。

置換には以下の例の様に検索でヒットした単語を
使用しています。

※以下の単語で漢字のみを検索
[一-鶴] 

※置換
見つかった漢字は「^&」です。

※before
梅
うめ
まつ
松

※after
見つかった漢字は「梅」です。
うめ
まつ
見つかった漢字は「松」です。

WordやExcelでダイアログを使用して
以上の事は実現できます。

しかしこの処理の後にヒットした文字列達(梅や松)を
使ってやりたい処理があります。

なので検索でヒットした文字列を取得するコードか、

もしくはそれらが格納されているオブジェクト
を知りたいです。

VBAでも.Netでも構いません。
ご教授ください。宜しくお願い致します

###仕掛中のC#のコード

using Word = Microsoft.Office.Interop.Word;

private void FindLoop() 
{ 
    int intFound = 0; 
    Word.Document document = this.Application.ActiveDocument;
    Word.Range rng = document.Content;

    rng.Find.ClearFormatting(); 
    rng.Find.Forward = true; 

    object findText = " [一-鶴] ";
    object missing = Type.Missing;

    rng.Find.Execute(ref findText,                
        ref missing, ref missing, ref missing, ref missing, ref missing, ref missing,
            ref missing, ref missing, ref missing, ref missing, ref missing, ref missing,
            ref missing, ref missing);

    while (rng.Find.Found) 
    { 
     ※ここら辺で検索でみつかった文字列を取得したい
     string みつかった文字 = "";

     rng.Find.Execute(ref findText,                
        ref missing, ref missing, ref missing, ref missing, ref missing, ref missing,
            ref missing, ref missing, ref missing, ref missing, ref missing, ref missing,
            ref missing, ref missing);

   ※みつかった文字を使った処理を記述～
    } 

    MessageBox.Show("Strings found: " + intFound.ToString()); 
}

Comments

[hsk]

WordやExcelのバージョンはどれになりますか？
2007とそれ以降とで、VBAからできることがかなり違いますので...

[elvis]

Word2010になります。失礼致しました。

Answer 1

お役に立てるかどうかはわかりませんが、このライブラリはいかがでしょうか
Spire.Doc for .NET

Imports Spire.Doc

Namespace ReplaceString
    Friend Class Program
        Shared Sub Main(ByVal args() As String)
            Dim document As New Document()
            document.LoadFromFile("sample.docx")

            document.Replace("A", "B", False, True)

            document.SaveToFile("Replace.docx", FileFormat.Docx)
            System.Diagnostics.Process.Start("Replace.docx")
        End Sub
    End Class
End Namespace

Answer 2

Rangeオブジェクトから値を取得できました。
C#からのオートメーションですと、Word.Range.Text から
ワイルドカードでヒットした単語そのものを取得できます。

Answer 3

はじめまして。
求められている結果に繋がるかは分かりませんが、お力になれたら幸いです。

⚫word 置換について
findオブジェクトを使用して検索した物はReplacement オブジェクトに格納されています。
検索結果を置換する場合にはReplacement プロパティを使用します。

⚫︎文字列の引き渡し
LINQ機能を使用するといいと思いますがどうでしょうか？
またこちらで動的に使用する方法も分かりやすく記載されています。

また下記のリンクも参考になるかもしれませんので貼っておきます。
MSDNライブラリー
slide share

Comments

[elvis]

ご回答ありがとうございます。
試行錯誤を繰り返した結果、Rangeオブジェクトから値を取得できました。C#からのオートメーションですと、Word.Range.Text からワイルドカードでヒットした単語そのものを取得できます。
minehan様から回答いただいた内容も参考にさせていただきます。
ありがとうございました。

Answer 4

VBAでしたらこちらのページが詳しいかと思います。
VBAで正規表現を使う

Comments

[elvis]

ありがとうございます。参考にさせていただきます。