Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム

38 / 877

←次へ　｜　前へ→


	【865】Re:vba range.words コレクションのバグ？

めめ - 18/9/13(木) 14:39 -


	引用なし

	パスワード

連投スマソコレクションへのアクセス方法でも結果が変わる？ Sub test3() 　　Selection.Text = "マザーシスターチャイルドファーザー " 　　Dim r As Range 　　Dim i As Long 　　i = 1 　　Debug.Print "For Each" 　　For Each r In Selection.Words 　　　　Debug.Print " " & CStr(i) & ":" & r.Text & ";" 　　　　i = i + 1 　　Next 　　Debug.Print "Words(i)" 　　For i = 1 To Selection.Words.Count 　　　　Debug.Print " " & CStr(i) & ":" & Selection.Words(i).Text & ";" 　　Next End Sub 結果 For Each 1:ー ; 2:ー ; 3:チャイルド; 4:チャイルド ; 5:ファーザー; 6:ー ; Words(i) 1:ー ; 2:シスター ; 3:チャイルド; 4: ; 5:ファーザー; 6: ; For Each は使わないほうがよさげ。Words(i) も半角ブランクが引っ付いたり、単語と見做されたり安定しない。