システムwiki

VBAを使用して単語の各段落内のテキストの範囲を選択してください

Santosh 解決済 最終更新日:2021-06-15 02:20

こんにちは、

私は仕事をする大きな単語ファイルを持っています.各ファイルでは、各段落を繰り返す必要があり、 "("と ")"の間のテキストを選択し、それを使って何かをします.

誰かがStackOverflowについて似たような質問を投稿し、ここに基づいて私が試したもののコードスニペットは正しく機能しません.

ここで何をしたのは何をしましたか?
あらゆる助けが大いに感謝されるでしょう.

返信リスト(回答:4)

4 #
HansVMV

わずかに異なるアプローチ:

Sub ReferenceRecerPlacer2()
薄暗いカウンター
文字列としてムードテキスト
selection.homekeyユニット:= WDStory
selection.find


.text= "\(* \)"
.matchwildcards= true
.execute
カウンタ=カウンタ+ 1
thetext= mid(selection.text、2、len(selection.text)-2)
debug.print "instance#"&counter&":"&"&"&"
ループ


debug.print "プロセスが正常に完了"
終了SUB

応答4# ->にスキップ
3 #
Santosh

もう一つのことを知りたいのですが.

ここで選択したテキストに二重ストライチを適用したいと思います.

どうやってそうできますか?

応答3# ->にスキップ
2 #
HansVMV 1

このように:

Sub ReferenceRecerPlacer2()
薄暗いカウンター
selection.homekeyユニット:= WDStory
selection.find


.text= "\(* \)"
.matchwildcards= true
.execute
カウンタ=カウンタ+ 1
selection.movestart
selection.moveend count:=-1
selection.font.doublestrikethrough= true
selection.collapse方向:= wdcollapseend
ループ


debug.print "プロセスが正常に完了"
終了SUB

√
応答2# ->にスキップ
1 #
Santosh

それは素晴らしいです.

どうもありがとう.私はあなたの援助と専門知識に本当に感謝しています.

返信する時間をどうもありがとうございました.

√

関連質問