VBA, Fields.Count returns 1

Fields.Count returns 1

Author	Message
Bernd Sonderk?tte #1 / 3	Fields.Count returns 1 Hello, I have encountered the following problem: ActiveDocument.StoryRanges(wdTextFrameStory).Fields.Count returns 1, but the document contains more than 1 text field. Any idea? Thanks, Bernd
Fri, 12 Aug 2005 22:56:27 GMT

Dave Let #2 / 3	Fields.Count returns 1 Hi Bernd, You only counting the fields in one of Word's StoryRanges. You can use something like the following to get a more accurate count of all fields: Dim myStoryRange As Range Dim iFieldCount As Integer For Each myStoryRange In ActiveDocument.StoryRanges iFieldCount = iFieldCount + myStoryRange.Fields.Count Next myStoryRange MsgBox iFieldCount AFAIK, there are even some quirks with this. Have a look at the article "Using a macro to replace text where ever it appears in a document including Headers, Footers, Textboxes, etc." at http://www.mvps.org/word/FAQs/MacrosVBA/FindReplaceAllWithVBA.htm HTH Quote: > Hello, > I have encountered the following problem: > ActiveDocument.StoryRanges(wdTextFrameStory).Fields.Count > returns 1, but the document contains more than 1 text field. > Any idea? > Thanks, > Bernd
Fri, 12 Aug 2005 23:56:30 GMT

Bernd Sonderk?tte #3 / 3	Fields.Count returns 1 Dave, Thanks for your answer. I did not know that there is more than one text frame story in the document. So I cycle through them with the method NextStoryRange and now it works! Quote: > Hi Bernd, > You only counting the fields in one of Word's StoryRanges. You can use > something like the following to get a more accurate count of all fields: > Dim myStoryRange As Range > Dim iFieldCount As Integer > For Each myStoryRange In ActiveDocument.StoryRanges > iFieldCount = iFieldCount + myStoryRange.Fields.Count > Next myStoryRange > MsgBox iFieldCount > AFAIK, there are even some quirks with this. Have a look at the article > "Using a macro to replace text where ever it appears in a document including > Headers, Footers, Textboxes, etc." at > http://www.mvps.org/word/FAQs/MacrosVBA/FindReplaceAllWithVBA.htm > HTH > > Hello, > > I have encountered the following problem: > > ActiveDocument.StoryRanges(wdTextFrameStory).Fields.Count > > returns 1, but the document contains more than 1 text field. > > Any idea? > > Thanks, > > Bernd
Sat, 13 Aug 2005 00:29:35 GMT

Page 1 of 1

[ 3 post ]