Word VBA質問箱 IV

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

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


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

2 / 44 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【882】Re:VBAでできること／できないこと

すちぶろん - 19/6/14(金) 6:51 -


	引用なし

	パスワード

▼マナさん：

できることの見立てと、
単語をカウントする関数まで、
ご教示ありがとうございます。

やりたいことがVBAでできそうということで、
いただいた関数をヒントに
勉強を進めてみます！

本当にありがとうございます。

＞でも、コンピューターのほうは「あいまい検索」で、
＞１個ずつ確認しながら置換ではだめなのでしょうか。

おっしゃるとおり、今はいろいろな検索や
表記ゆれチェック機能などを使いながら、
Word書類を校閲しています。

例では「よろしく」「コンピューター」の２組を挙げましたが、
実際には、２５組ほどの単語を、
毎日５～１０通の書類でチェックしていまして、
少しでも簡略化できればなぁ、と思っている次第です。

質問させていただき、VBAに前向きになれました。
重ねてお礼申し上げます。ありがとうございます！

・ツリー全体表示


	【881】Re:VBAでできること／できないこと

マナ - 19/6/13(木) 21:52 -


	引用なし

	パスワード

▼すちぶろんさん：

単語をカウントする関数です。

Sub test()
　　Dim txt As String
　　Dim n1 As Long
　　Dim n2 As Long
　　
　　txt = ActiveDocument.Range.Text
　　
　　n1 = CountWord(txt, "コンピュータ")
　　n2 = CountWord(txt, "コンピューター")
　　
　　MsgBox n1 - n2
　　
End Sub

Function CountWord(txt As String, wd As String) As Long
　　Dim s
　　
　　s = Split(txt, wd)
　　CountWord = UBound(s)
　　
End Function

・ツリー全体表示


	【880】Re:VBAでできること／できないこと

マナ - 19/6/13(木) 17:46 -


	引用なし

	パスワード

▼すちぶろんさん：
￥
>できること／できないことを教えていただけると嬉しいです。

>
>(1) 最低限の目標

できると思います。

>(2) できれば行いたい目標

できると思います。

>(3) 理想的な目標

できると思います。
でも、コンピューターのほうは「あいまい検索」で、
１個ずつ確認しながら置換ではだめなのでしょうか。

・ツリー全体表示


	【879】VBAでできること／できないこと

すちぶろん - 19/6/13(木) 0:38 -


	引用なし

	パスワード

お世話になります。VBA未経験なのですが、
Wordで頻繁に行っている表記ゆれの統一作業を簡素化したく、
勉強を始めようと思っています。

次の(1)(2)(3)の各目標は、
WordやExcelでマクロできるのでしょうか。

できること／できないことを教えていただけると嬉しいです。
よろしくお願いいたします。

(1) 最低限の目標

・Wordファイルの文章から
　事前に登録した複数の単語を自動カウントし、
　カウントの少ない単語を、多い単語に自動置換する。
　置換結果が分かるよう、変更履歴を付けたい。

・例えば、次の４単語を登録します。
　「よろしく」「宜しく」
　「コンピューター」「コンピュータ」

　文章中の「よろしく」と「宜しく」を自動カウントし、
　「よろしく」が15個で、「宜しく」が7個だった場合、
　少ないほうの「宜しく」を「よろしく」に自動で置換。

　同時に「コンピューター」と「コンピュータ」も
　自動カウントし、同様の置換処理をさせる。

(2) できれば行いたい目標

・上記(1)に加えて、４単語のカウント結果
　（文章中に何回使われていたか）を数字で表示する。

・例えば、次のような表示を出せるか。
　　「よろしく」　　　15個
　　「宜しく」　　　　 7個
　　「コンピューター」 6個
　　「コンピュータ」　12個

(3) 理想的な目標

・上記(1)のように少ないほうを置換すると決めつけずに、
　上記(2)のカウント結果を見たうえで、
　どちらの用語を置換させるか選択できるようにする。

・例えば、(2)のカウント結果を見たうえで、
　前者については、
　数の少ない「宜しく」から「よろしく」に置換させ、
　後者については、
　数の多い「コンピュータ」から
　「コンピューター」に置換させるよう選択する。

・ツリー全体表示


	【878】Re:検索文字の後ろに文字挿入

マナ - 19/6/11(火) 22:30 -


	引用なし

	パスワード

▼あおぎんこさん：

１つのword文書で、挿入は１回だけですよね。

Sub test()
　　Dim r As Range
　　
　　Set r = ActiveDocument.Range
　　
　　With r.Find
　　　　.Text = "検索文字"
　　　　If .Execute Then
　　　　　　r.InsertAfter "挿入文字"
　　　　End If
　　End With

End Sub

・ツリー全体表示


	【877】検索文字の後ろに文字挿入

あおぎんこ - 19/6/11(火) 17:12 -


	引用なし

	パスワード

いつも参考にさせていただいています。

名簿（エクセル）を元に、各種Wordファイルに名簿の名入りの
Wordファイルを作る必要があるため、差込印刷ではなくマクロ
で何とかしようと四苦八苦しております。

各Wordファイルには「氏名」項目が必ずあるため、その後ろに
名前を入れてファイル保存していければと考え、具体的には次
の1.～5.の処理を行いたいと思っています。

1.エクセルファイル（名簿）を開き、名簿シートの「名前」列
を空白になるまでLooPし「名前」を順に取得
2.ダイアログでWordファイルを選択
3.開いたWordファイルで検索文字列「氏名」を検索
4.ヒットしたら、その後ろに1.の名前を入力
5.ファイルに名前をつけて保存
～空白になるまで繰り返し、終了

1.2.5.はできているのですが、3.で検索した後に4.の名前挿入の
ところで足踏みしております。
webで検索しながらひとつずつやっている状況ですが、

ヒットしたときにどういうコードを書けば、希望の処理ができる
のか、調べてもよくわからず・・。

ヒントだけでも構いませんので、どなたかご教示をよろしくお願い
いたします。

Sub サンプル()

Dim strFile As String
Dim wrdApp As Object
Dim wrdDoc As Object
Dim wrdRng As Object
　　
　strFile = "ダイアログで選択したWordファイルのフルパス"
　　　　
　Set wrdApp = CreateObject("Word.Application")’ワードを開く
　wrdApp.Visible = True
　Set wrdDoc = wrdApp.Documents.Open(strFile)　'指定のワードファイルを開く
　　wrdDoc.Range.WholeStory
　　　　With wrdDoc.Range.Find
　　　　　　　.Text = "氏名"
　　　　　　　.ClearFormatting
　　　　　　　Do While .Execute　　　　　　
　　　　　　　’★検索でヒットしたときの処理★
　　　　　　　　
　　　　　　　Loop　
　　　　End With
　　
　'～ファイル保存処理～
　
　　
End Sub

・ツリー全体表示


	【876】Re:ファイル分割

あおぎんこ - 19/5/8(水) 14:38 -


	引用なし

	パスワード

▼マナさん：

すっかり遅くなってすみません。
ご教示ありがとうございます。
ご提示いただいたコードを試してみたところ、ばっちりできました。

ファイル分割のあとなので　変数rを使用しなくてもうまくいきました。
でも.Duplicateで複製する方法があるのですね。勉強になりました。

それと　s = r.Cells(1).Next.Range.Textで次のセルのテキストを取得
したときに *が末尾に入ることや、*が2文字となることも今回勉強にな
りました。

今回分割したファイルを配布し、また回収して1つのファイルに結合する
予定です。
こちらは今コードを書いている途中です。
自力で頑張りますが、つまづいたときにはまた質問をさせてください。
どうぞよろしくお願いいたします。

>こんな感じでできると思います。
>
>Sub test()
>　　Dim myPage As Range
>　　Dim r As Range
>　　Dim s As String
>
>　　Set myPage = ActiveDocument.Range
>　　Set r = myPage.Duplicate
>
>　　With r.Find
>　　　　.Text = "番号"
>　　　　If .Execute Then
>　　　　　　If r.Information(wdWithInTable) Then
>　　　　　　　　s = r.Cells(1).Next.Range.Text
>　　　　　　　　s = Left(s, Len(s) - 2)
>　　　　　　End If
>　　　　End If
>　　End With
>
>　　MsgBox s
>
>　　myPage.Select
>
>End Sub
>
>
>この操作が、ファイル分割の後で
>myPage の範囲が変わってもよいのであれば
>変数 r を使う必要ないです。

・ツリー全体表示


	【875】Re:ファイル分割

マナ - 19/4/26(金) 18:06 -


	引用なし

	パスワード

▼あおぎんこさん：

こんな感じでできると思います。

Sub test()
　　Dim myPage As Range
　　Dim r As Range
　　Dim s As String

　　Set myPage = ActiveDocument.Range
　　Set r = myPage.Duplicate

　　With r.Find
　　　　.Text = "番号"
　　　　If .Execute Then
　　　　　　If r.Information(wdWithInTable) Then
　　　　　　　　s = r.Cells(1).Next.Range.Text
　　　　　　　　s = Left(s, Len(s) - 2)
　　　　　　End If
　　　　End If
　　End With

　　MsgBox s

　　myPage.Select

End Sub

この操作が、ファイル分割の後で
myPage の範囲が変わってもよいのであれば
変数 r を使う必要ないです。

　　

・ツリー全体表示


	【874】Re:ファイル分割

あおぎんこ - 19/4/26(金) 12:07 -


	引用なし

	パスワード

▼マナさん：

さっそく追加質問をさせてください。

ファイルを保存するときに、分割元ファイルにある文字をファイル名にしたいと考えています。

使用したい文字の位置は一定ではないのですが、必ず「番号」という文字があるセルの次のセルに入っているので、
「番号」を検索し、右に一つタブ移動し取得した文字列をファイル名の変数に格納という方法で何とか取得できないかと考えているのですが
検索はできるのですが、見つかった個所を選択するというのができずにいます。

myPage内に必ず1つ「番号」はあるので、myPageの範囲確定後に
検索文字列を赤で表示するコードを参考に下記のように記述しています。

with myPage.Find
.text="番号"
Do While .Execute
myPage.HighlightColorIndex= wdRed
Loop
End With

これで赤く表示されるのですが、カーソルは動いていないので、
検索文字列に一つ右というのがうまくいきません。
検索文字にカーソルを持っていきたいのですが、方法がよくわかりません。
myPage.HighlightColorIndex= wdRed　をどのように変えたらいいのか。。
検索文字にカーソルが移動できたら、
その後は
Selection.MoveRight Unit:=wdCell
で右に一つカーソル移動し
その文字列をコピーすればいいのかなと思っております。（ここはまだコードを思いついていませんがなんとか）

もしくはファイル名をうまく取得できる方法がほかにありましたら、ご教示いただけると幸いです。

よろしくお願いいたします。

・ツリー全体表示


	【873】Re:ファイル分割

あおぎんこ - 19/4/26(金) 9:14 -


	引用なし

	パスワード

▼マナさん：
さっそくのご回答ありがとうございます。

>これだとどうなりますか
>Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=myPage

これだときちんと2ページずつ選択できました！

>
>動作確認のために、ほとんど同じですが、書き換えてみました。
>

そして書き換えてくださったコード。
同じようにしっかり分割できました！

今はレイアウトが違うので、新規ファイルは3ページになったりしてますけど、無事に2ページずつ分割できました。
これでページレイアウトを設定して、１ファイルずつ任意の名前をつけて保存できるように、コードを加えていきたいと思います。

またわからなくなったら質問させてください。

ありがとうございました。

・ツリー全体表示


	【872】Re:ファイル分割

マナ - 19/4/25(木) 21:31 -


	引用なし

	パスワード

▼あおぎんこさん：

これだとどうなりますか
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=myPage

動作確認のために、ほとんど同じですが、書き換えてみました。

Sub test()
　　Dim mySplit As Long
　　Dim doc As Document
　　Dim myTotalPage As Long
　　Dim myPage As Range
　　Dim r As Range
　　Dim k As Long

　　mySplit = 2

　　Set doc = ActiveDocument
　　
　　myTotalPage = doc.Range.Information(wdNumberOfPagesInDocument)

　　Set myPage = doc.Range(0, 0)
　　Set r = myPage
　　
　　k = 0

　　Do Until k > myTotalPage
　　　　k = k + mySplit
　　　　myPage.Start = r.End
　　　　If k >= myTotalPage Then
　　　　　　myPage.End = doc.Range.End
　　　　Else
　　　　　　Set r = r.GoTo(What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=k + 1)
　　　　　　myPage.End = r.Start - 1
　　　　End If
　　　　myPage.Copy
　　　　Documents.Add.Range.Paste
　　Loop

End Sub

・ツリー全体表示


	【871】Re:ファイル分割

あおぎんこ - 19/4/25(木) 19:17 -


	引用なし

	パスワード

▼マナさん：

レスポンスありがとうございます。

>具体的には、どうなるのでしょうか？

今のコードですと、i=2のときに　myPage=4 なのですが
３ページ目の頭に移動し、従って3ページ目の１ページ分しかコピーしません。
i=3のときmyPage=6 なのですが4ページ目の頭に移動し、4ページ目の1ページ分しかコピーしません。

文末がうまく取得できていないと思ったのは、作成された分割ファイルが型崩れしていたからですが、
.Range(myPageStart, myPageEnd).Copy　
の前に
.Range(myPageStart, myPageEnd).select
で選択範囲を明示してみたところ、
カーソルのあるページの末尾まできちんと選択されていましたので、こちらは問題なさそうです。きちんと確認しないまま投稿してしまい、申し訳ありません。

Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=myPage
↑このコードだと、myPageの数値にかかわらず、一つずつしか進まないようなのですがmypageのページ数に行くという意味ではないのでしょうね？
（すみません、Selection.GoToで検索してみたのですがいまいちどういう動きをするのか・・。）
指定ページに行くようなコードはあるのでしょうか？
検索の仕方もあるのでしょうが、なかなかこれというのが見つかりません。
ご教示いただけると幸いです。
よろしくお願いいたします。

・ツリー全体表示


	【870】Re:ファイル分割

マナ - 19/4/24(水) 21:50 -


	引用なし

	パスワード

▼あおぎんこさん：

>下記のコードでは、うまく２ページずつに分割できません。
>
>下記のコードで、分割の最終位置を取得しているのですが、これがうまくいって
>いないようで、最初の分割はうまくいくのですが、２番目からうまくいきません。

具体的には、どうなるのでしょうか？

>myPageEnd = .Bookmarks("\page").Range.End　
>は、アクティブなページの文末を取得していると思うのですが、
>このワードファイルが表で構成されているためか、うまく取得できていないようです。

こちらも、なぜそう思うのでしょうか。

myPageEnd = .Bookmarks("\page").Range.End -2

としたら、どうなりますか。

>　　myPageStart = myPageEnd

そのかわりに、こっちは、+2で。

　

・ツリー全体表示


	【869】ファイル分割

あおぎんこ - 19/4/24(水) 19:42 -


	引用なし

	パスワード

ページの多いワードファイルを２ページずつ分割したいと思い、下記のコードを見つけました。
ワードＶＢＡは今回初めてなので、意味を検索しながら試行錯誤中なのですが
下記のコードでは、うまく２ページずつに分割できません。

下記のコードで、分割の最終位置を取得しているのですが、これがうまくいって
いないようで、最初の分割はうまくいくのですが、２番目からうまくいきません。

myPageEnd = .Bookmarks("\page").Range.End　
は、アクティブなページの文末を取得していると思うのですが、
このワードファイルが表で構成されているためか、うまく取得できていないようです。

もう少し調べてみようと思いますが、検索をしてもあまり出てこないので
お詳しい方がいらっしゃれば、範囲指定の仕方についてヒントでもご教示いただけると助かります。
どうぞよろしくお願いいたします。

Sub 文書の分割()

　Dim mySplit As Variant　'分割後の文書あたりのページ数
　Dim myTotalPage As Integer　'分割対象の文書の総ページ数
　Dim i As Integer
　Dim iMax As Integer
　Dim actDoc As Document '分割対象の文書
　Dim newDoc As Document '分割後の文書
　Dim myPage As Integer
　Dim myPageStart As Long　
　Dim myPageEnd As Long
　
　'デフォルトの分割用のページ数
　Const myDefault As Integer = 2
　　
　'印刷レイアウトに変更
　ActiveWindow.View.Type = wdPrintView

　Set actDoc = ActiveDocument
　
　'総ページ数
　myTotalPage = actDoc.Range.Information(wdNumberOfPagesInDocument)
　
　'何ページごとに分割するのか、ページ数を入力
　Do
　　mySplit = InputBox("分割するページ数を入力してください。" & vbCr & _
　　　　　　　　　　　"総ページ数：" & myTotalPage, "文書の分割", myDefault)
　　'キャンセルの場合終了
　　If mySplit = vbNullString Then Exit Sub
　　'総ページ数以上の場合に終了
　　If mySplit >= myTotalPage Then Exit Sub
　Loop While IsNumeric(mySplit) = False
　　
　'分割数を算出
　If myTotalPage Mod mySplit > 0 Then
　　iMax = (myTotalPage \ mySplit) + 1
　Else
　　iMax = (myTotalPage \ mySplit)
　End If
　
　'分割する開始位置を代入（初期値）
　myPageStart = 0
　
　For i = 1 To iMax
　　
　　'分割対象の文書を選択
　　actDoc.Activate
　　
　　'分割を開始するページ番号
　　myPage = i * mySplit
　　
　　'カーソル位置を移動
　　Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=myPage
　　
　　'分割する範囲をコピー
　　With ActiveDocument
　　　If i <> iMax Then
　　　　'分割する最終位置を代入（最後の分割ではない場合）
　　　　myPageEnd = .Bookmarks("\page").Range.End
　　　Else
　　　　'分割する最終位置を代入（最後の分割の場合）
　　　　myPageEnd = .Range.End
　　　End If
　　　'範囲を指定してコピー
　　　.Range(myPageStart, myPageEnd).Copy
　　End With
　　
　　'新規文書の追加
　　Set newDoc = Documents.Add
　　
　　'貼り付け
　　newDoc.Range.Paste
　　
　　'次の分割の開始位置を代入
　　myPageStart = myPageEnd
　　
　　DoEvents
　　
　Next i
　
　'分割対象の文書の先頭にカーソルを移動
　With actDoc
　　.Activate
　　.Range(0, 0).Select
　End With
　
　Set actDoc = Nothing
　Set newDoc = Nothing
　
End Sub

・ツリー全体表示


	【868】Re:フォルダ内文書の一括処理

nishi

- 19/2/22(金) 9:10 -


	引用なし

	パスワード

亀マスターさま

早々のご回答をいただきありがとうございます。
返信が遅れて申し訳ございません。
ご察しのとおり、for Each～　がよくわかっていないし
教えていただいたサイトも既に訪れていますが
なかなか、上手くいかずこの質問箱様の
お力を頂ければとたどり着いた次第です。
教えていただいたサイトをもう一度やり直して勉強してみたいと思います。

ありがとうございました。

・ツリー全体表示


	【867】Re:フォルダ内文書の一括処理

亀マスター - 19/2/20(水) 18:51 -


	引用なし

	パスワード

１．指定したフォルダ内にあるWord文書を開く
２．書式設定を施す
３．保存して閉じる
４．Word文書がなくなるまで１～３を繰り返す

という手順が必要になりますが、VBAにおける繰り返し処理についての基本は理解されているでしょうか。
「For Each ○○ in △△」という記述を見て何のことかわからないというのであれば、VBAの基本をある程度勉強してからの方がいいのではないのかなと思います。

「それくらいわかってる」ということでしたら、以下のサイトが参考になると思われます。
ht tps://tonari-it.com/word-vba-document-open-close/

このサイトの説明ではフォントの設定だけをしていますが、その代わりに今回記録したマクロを当てはめれば、全ての文書に同じ処理をできます。
（マクロ記録をそのまま使うと無駄が多いのですが、動くことは動くと思いますので、どこがどう無駄なのかはそのうち勉強してみてください）

・ツリー全体表示


	【866】フォルダ内文書の一括処理

nishi - 19/2/19(火) 9:32 -


	引用なし

	パスワード

初めての質問です。
wordにマクロの記録で書式を設定しました。
デスクトップ上のフォルダ内にある複数のword文書を一括処理をさせたいのですが（文書名の決まりはありません。数は２０～３０文書）
マクロは下記に記します。Windows７、office standard 2010です。
ご教示よろしくお願いいたします。

Sub 書式マクロ3()
'
' 書式マクロ3 Macro
'
'
　　Selection.HomeKey Unit:=wdStory
　　Selection.EndKey Unit:=wdLine, Extend:=wdExtend
　　Selection.Font.Name = "ＭＳＰ明朝"
　　Selection.Font.Size = 16
　　Selection.Font.Bold = wdToggle
　　Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
　　Selection.EndKey Unit:=wdLine
　　Selection.TypeParagraph
　　Selection.Font.Size = 11
　　Selection.TypeParagraph
　　Selection.MoveRight Unit:=wdCharacter, Count:=1
　　Selection.EndKey Unit:=wdLine, Extend:=wdExtend
　　Selection.Font.Name = "ＭＳＰ明朝"
　　Selection.Font.Size = 12
　　Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
　　Selection.EndKey Unit:=wdLine
　　Selection.TypeParagraph
　　Selection.Font.Size = 11
　　Selection.MoveRight Unit:=wdCharacter, Count:=1
　　Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
　　Selection.EndKey Unit:=wdStory, Extend:=wdExtend
　　Selection.Font.Name = "ＭＳＰ明朝"
　　Selection.Font.Size = 11
　　Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
　　With Selection.PageSetup
　　　　.LineNumbering.Active = False
　　　　.Orientation = wdOrientPortrait
　　　　.TopMargin = MillimetersToPoints(35)
　　　　.BottomMargin = MillimetersToPoints(30)
　　　　.LeftMargin = MillimetersToPoints(30)
　　　　.RightMargin = MillimetersToPoints(30)
　　　　.Gutter = MillimetersToPoints(0)
　　　　.HeaderDistance = MillimetersToPoints(15)
　　　　.FooterDistance = MillimetersToPoints(17.5)
　　　　.PageWidth = MillimetersToPoints(210)
　　　　.PageHeight = MillimetersToPoints(297)
　　　　.FirstPageTray = wdPrinterDefaultBin
　　　　.OtherPagesTray = wdPrinterDefaultBin
　　　　.SectionStart = wdSectionNewPage
　　　　.OddAndEvenPagesHeaderFooter = False
　　　　.DifferentFirstPageHeaderFooter = False
　　　　.VerticalAlignment = wdAlignVerticalTop
　　　　.SuppressEndnotes = False
　　　　.MirrorMargins = False
　　　　.TwoPagesOnOne = False
　　　　.BookFoldPrinting = False
　　　　.BookFoldRevPrinting = False
　　　　.BookFoldPrintingSheets = 1
　　　　.GutterPos = wdGutterPosLeft
　　　　.LinesPage = 42
　　　　.LayoutMode = wdLayoutModeLineGrid
　　End With
End Sub

・ツリー全体表示


	【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) も半角ブランクが引っ付いたり、単語と見做されたり安定しない。

・ツリー全体表示


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

めめ - 18/9/13(木) 13:46 -


	引用なし

	パスワード

コレクションの先頭にだけ発生するようなので、wordのバグだった場合の対策 Sub test2() 　　With Selection 　　　　.Text = "マザーファーザーチャイルド" 　　　　Debug.Print "6:" & .Words(1) & ";" & .Words(2); ";" & .Words(3) & ";2番目以降の音引きはOK" 　　　　If .Words(1) = "ー " Then 　　　　　　Debug.Print "対策:" & Left(.Text, InStr(.Text, "ー")) 　　　　End If 　　End With End Sub 結果 6:ー ;ファーザー ;チャイルド;2番目以降の音引きはOK 対策:マザー Words(2)の末尾に半角ブランクがついていることに注意

・ツリー全体表示


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

めめ - 18/9/13(木) 12:28 -


	引用なし

	パスワード

Word2010 on Windows 7 32bitです。サンプル Sub test() 　　Selection.Text = "マザー" 　　Debug.Print "1:" & Selection.Words(1) & ";単語のみ" 　　Selection.Text = "マザー　" 　　Debug.Print "2:" & Selection.Words(1) & ";単語+全角スペース" 　　Selection.Text = "マザー " 　　Debug.Print "3:" & Selection.Words(1) & ";単語+半角スペース" 　　Selection.Text = "マザー　チャイルド" 　　Debug.Print "4:" & Selection.Words(1) & ";単語+全角スペース+単語" 　　Selection.Text = "マザーチャイルド" 　　Debug.Print "5:" & Selection.Words(1) & ";単語+半角スペース+単語" 　　Selection.Text = "チャイルドマザー" 　　Debug.Print "6:" & Selection.Words(1) & ";単語+半角スペース+単語" End Sub 結果 1:マザー;単語のみ 2:マザー;単語+全角スペース 3:マザー;単語+半角スペース 4:マザー　;単語+全角スペース+単語 5:ー ;単語+半角スペース+単語 6:チャイルド;単語+半角スペース+単語 5のケース(音引き+半角スペース)で期待する結果を得られないのですが、こちらの環境だけでしょうか？どなたか追試をお願いします。

・ツリー全体表示


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

2 / 44 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free