Bir Dizinde .Selection veya Değişken ile Çalışın?

Question

Ben tanımların bir dizin var: - gerçekten süper ahbap
Kriptonit demektir -

Superman (beri bir şey superman

Her Paragraph döngü istiyorum vb
sevmez demektir girişler endekste "Enter" ile ayrılır ve -'a kadar başlangıcının altından çizilir. Ancak, bir dizinle nasıl çalışılacağını anlayamıyorum. Dizini güncelleyebilirim (ActiveDocument.Indexes(1).Update), ancak dizinle nasıl çalışacağımı anlayamıyorum. Böyle bir şey düşünüyordum:

Sub underline_Index_Definitions() 
Dim myDoc As Word.Document 
Dim numParas& 
Dim rng As Word.Range 

Set myDoc = ActiveDocument 
Debug.Print "You have : " & myDoc.Indexes.Count & " indexes." 

numParas = myDoc.Indexes(1).Paragraphs.Count 
For Each par In Indexes(1) 
    'Select the text from the start, until a dash 

    ' blah blah blah 
Next par 

End With 

End Sub 

Ama tabii, bu hataları numParas çizgisinde ben bunu yapamam çünkü. "Text-benzeri" size vb Paragarphs, Sözcükler, görmek vermez baktığında bir şey - Ben de myDoc.Indexes(1).Select // With Selection ...

Answer 1

numParas = myDoc.Indexes(1).Range.Paragraphs.Count 

Word'de genellikle bu alırsınız deneyin yapamaz "bir şey" bir Range nesnesine sahiptir (genellikle yapar).

Index.Range öğesinin, muhtemelen tanımayacağınız ve bir döngüde ele alınması gereken üç ek Paragraf içerdiğini unutmayın.