文書に空白と段落記号がたくさん含まれています。 キャラクター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
Word文書のすべての段落を実行し、すべての段落にコメントを追加するMicrosoft Word VBAマクロを作成しています。そのコメントにはその段落のスタイルが含まれます。このようにして、同僚はコメント付きの文書を印刷して、今後同様の文書をスタイルする方法を知ることができます。 私はほとんどそこだ、コードがすべての段落にコメントが追加されますが、表の最初の行で死ぬ: 「オブジェクトは終わりを意