Word VBA質問箱 IV

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

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


4 / 302 ツリー ←次へ | 前へ→

【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でできそうということで、
いただいた関数をヒントに
勉強を進めてみます!

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

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

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

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

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

4 / 302 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
202637
(SS)C-BOARD v3.8 is Free