文書に空白と段落記号がたくさん含まれています。 キャラクターSelection.findがAからZまでの任意の文字であれば、私がしたいことが検出されますか？あなたの選択の最初の文字を取得したい場合は Dim EE As String
Selection.Find.ClearFormatting
With Selection.Find
.Text = "^?"
私はすべてのカンマをカウントするには「」私はloop 私の質問は、私は,カウントはどうすればよいです実行するIntegerとしてカウントを使用します。画像を以下を示して： 私はsplitとuboundを使用する方法を知ってはいけません。次のコードで何が問題になっていますか？ Sub CountComma()
Dim x As String, count As Integer, myRange A
clear変数lastWordが必要な状況にありますので、msgboxには何も表示されません。loop。 以下のコードは単なる例です。 Sub clear_lastWord_Variable()
Dim wordArr() As String
Dim lastword As String
Do
selection.Find.ClearFormatting
Userformには、4（4）Select AllCheck-boxesがあります。選択すべての地域のための SelectAllE東欧 中東SelectAllA &アフリカ ラテンアメリカのためSelectAllL &カリブ海 SA（ワーキング） のみ第1は、各チェックボックス Private Sub SA_Click() ' this one is working Correctly
Dim
VBAを使用して単語でランダムな文章を作成するにはどうすればよいですか？ たとえば、下のコードは、catがmat1に座っている文章を作成しました。 私はiの代わりに単語を宣言したいと思います。 VBAを使用することは可能ですか？ Sub Randomsentence()
Dim text As String
Dim s As String
MyText = "The
変数cTableにテーブルを保存し、すべての書式設定が必要なときに貼り付けます。 Sub copytable()
Dim cTable As TABLE
Selection.Tables(1).Select
cTable = Selection.Tables ' how do i assign table into variable
Selection.Mov