Word VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
8 / 306 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【879】VBAでできること／できないこと すちぶろん 19/6/13(木) 0:38 質問[未読]
【881】Re:VBAでできること／できないこと マナ 19/6/13(木) 21:52 発言[未読]
【882】Re:VBAでできること／できないこと すちぶろん 19/6/14(金) 6:51 お礼[未読]
【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
【882】Re:VBAでできること／できないこと
お礼  すちぶろん  - 19/6/14(金) 6:51 -
引用なし
パスワード
   ▼マナ さん：

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

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

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

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

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

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

質問させていただき、VBAに前向きになれました。
重ねてお礼申し上げます。ありがとうございます！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
8 / 306 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
206458
(SS)C-BOARD v3.8 is Free