Word (VBA)

Word VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows XP全般 : Word 2003)
表セル内の段落番号の取得
投稿日時: 17/02/17 12:00:58
投稿者: nac

段落番号の取得方法なのですが、
i = ActiveDocument.Range(0, Selection.End).Paragraphs.Count
MsgBox i
 
上記を下記のような感じで表セル内で使えるようにできませんか?
 
Set mycel = Selection.Tables(1).Cells(1)
i = mycel.Range(0, Selection.End).Paragraphs.Count
MsgBox i
 
よろしくお願いします。

回答
投稿日時: 17/02/17 14:04:52
投稿者: sk

引用:
Set mycel = Selection.Tables(1).Cells(1)
i = mycel.Range(0, Selection.End).Paragraphs.Count
MsgBox i

Set mycel = ActiveDocument.Tables(1).Cell(1, 1)
i = mycel.Range.Paragraphs.Count
MsgBox i
 
引用:
段落番号の取得方法なのですが、

厳密に言えば「段落番号」(それぞれの段落がセル内における何番目の段落であるか)ではなく
「段落の数」( 1 つのセルの中に段落が何個あるか)ですが。

回答
投稿日時: 17/02/17 14:31:18
投稿者: んなっと

現在選択している部分の、「セルの先頭」から数えた段落番号でしょうか。
 
  Dim r As Range
  Set r = Selection.Range
  r.SetRange Selection.Cells(1).Range.Start, r.End
  MsgBox r.Paragraphs.Count

投稿日時: 17/02/17 17:49:25
投稿者: nac

skさん
んなっとさん
 
いつも、ありがとうございます。
私の説明に問題がありました。
何番目の段落かという意味でした。すみません。
 
セルのsetの仕方が変だったのですね。
解決しました。
ありがとうございました。