Word VBA質問箱 IV

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

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


11 / 866 ←次へ | 前へ→

【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

32 hits

【879】VBAでできること/できないこと すちぶろん 19/6/13(木) 0:38 質問[未読]
【880】Re:VBAでできること/できないこと マナ 19/6/13(木) 17:46 発言[未読]
【881】Re:VBAでできること/できないこと マナ 19/6/13(木) 21:52 発言[未読]
【882】Re:VBAでできること/できないこと すちぶろん 19/6/14(金) 6:51 お礼[未読]

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