No.1ベストアンサー
- 回答日時:
こんばんは。
いまいち、質問の意味が理解できていないのです。
>SelectionオブジェクトのFindプロパティーで文字を検索し、その検索した文字の行、列位置を数値として取得したいのですが、方法が分かりません。
行と列は、Cells プロパティで、Table がないと、存在しません。
もし、Table があれば、文字検索で「行と列」が、出てくるのでしょうけれども、そうではないような気がします。
それと、本来は、検索して現在位置(行と桁)を取得するマクロは見当たらないのは、この種のFind を使ったマクロは、それ自体が作業本位で、情報取得の目的には、Wordの場合は、あまりしないのだと思います。ステータスバー(画面下)に出てくるからですが。
もし、以下のマクロの解釈が違うようなら、また、レスを付けてください。
'-------------------------------------------------------
Sub TestMacro1()
Dim myRange As Range
Dim mySearch As String
Dim a As Long, b As Long
mySearch = InputBox("探す文字を入力してください", "検索")
If mySearch = "" Then Exit Sub
Selection.Find.ClearFormatting
With Selection.Find
'以下を省略すると誤動作が出る可能性があります。
'必要ならオプションを入れてください。
.Text = mySearch
.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
Set myRange = Selection.Range
With myRange
'行
a = .Information(wdFirstCharacterLineNumber)
'桁
b = .Information(wdFirstCharacterColumnNumber)
End With
MsgBox a & " 行 " & b & " 桁"
End Sub
早速回答頂き、感謝に耐えません。
表現が悪く理解しにくかったかもしれませんが、ご回答が正に実施したかったことです。
早速、マクロに張り付けて、作動させて見ました。
これを組み込ませて頂いて、私のマクロは完成します。
ありがとう御座いました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- Visual Basic(VBA) VBA初心者です 検索した数字の行に色をつける 5 2023/02/13 14:22
- Excel(エクセル) エクセル関数の変わった使い方 3 2022/05/13 17:12
- Visual Basic(VBA) Excel VBA 教えてください。 VBA初心者です。 詳しい方がいましたら教えてください。 下記 3 2023/04/25 11:22
- Excel(エクセル) マクロでボタンにつける名前がどこに設定されているかわからないケースがありました。 1 2023/06/19 19:37
- Word(ワード) 表の縦罫線を移動するピッチ 1 2022/10/12 12:24
- Excel(エクセル) 現在のセルの文字列を右隣のセルの名前にするマクロをつくりたい 4 2023/01/12 09:01
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Excel(エクセル) Excelで校閲をする方法はあるでしょうか(取扱説明書への掲載禁止用語の確認) 3 2022/06/11 22:51
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
Wordのマクロで選択中の行番号を取得したい
Word(ワード)
-
Wordの文章中の一致した文字のある段落を削除する
Visual Basic(VBA)
-
ワードのマクロで段落番号(文字も含む)取得ってできますか
Word(ワード)
-
-
4
Word VBA。各マクロの間に待ち時間を指定するには?
Word(ワード)
-
5
Word VBA 表中の空白行を削除する方法
Word(ワード)
-
6
WordVBAで規定のところに文字列を挿入したい
Access(アクセス)
-
7
WORDマクロで特定文字から別文字までを範囲選択したい
Word(ワード)
-
8
ExcelのVBAでWordを読み取り専用で開いて、見たいページに自動で移動する方法を教えて頂きたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルで特定の列が0表示の場...
-
メッセージボックスのOKボタ...
-
エクセルに張り付けた写真のフ...
-
Excel マクロ VBA プロシー...
-
ExcelのVBA。public変数の値が...
-
一つのTeratermのマクロで複数...
-
エクセルで別のセルにあるふり...
-
TeraTermマクロの文字列結合
-
マクロで空白セルを詰めて別シ...
-
EXCELのVBAでRange("A1:C4")を...
-
ソース内の行末に\\
-
エクセルのマクロをセルの値に...
-
VBA アドインについて お詳しい...
-
TERA TERMを隠す方法
-
EXCELマクロでのThisisWor...
-
[初心者です]VBAで指定列か...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
エクセルに張り付けた写真のフ...
-
ExcelのVBA。public変数の値が...
-
TERA TERMを隠す方法
-
Excelのマクロ(VBA)は、同じ...
-
ExcelVBAでPDFを閉じるソース
-
Excel VBAからAccessマクロを実...
-
EXCELのVBAでRange("A1:C4")を...
-
#defineの定数を文字列として読...
-
マクロ実行時、ユーザーフォー...
-
エクセルのマクロをセルの値に...
-
Outlookにて既にウィドウ単体で...
-
エクセルで別のセルにあるふり...
-
マクロで空白セルを詰めて別シ...
-
TeraTermマクロの文字列結合
おすすめ情報