IA: AutoNum Field Values Disappear on HTML Export

ID: Q142332

The information in this article applies to:

Microsoft Internet Assistant for Word for Windows, versions 1.0, 1.0z
Microsoft Internet Assistant for Word for Windows 95, version 2.0z
Microsoft Word for Windows, versions 6.0a, 6.0c
Microsoft Word for Windows 95, version 7.0

SYMPTOMS

When you convert a Word document that contains either the AutoNum, AutoNumLgl, or AutoNumOut fields to an HTML document, the field results are not retained. All other field values are converted.

CAUSE

The AutoNum fields are deleted on export. Internet Assistant attempts to unlink the field on export. Since the AutoNum fields cannot be unlinked, they are deleted.

STATUS

Microsoft has confirmed this to be a problem in Microsoft Internet Assistant for Word, versions 1.0, 1.0z, 2.0z. We are researching this problem and will post new information here in the Microsoft Knowledge Base as it becomes available.

RESOLUTION

Use the following macro to replace all AutoNum, AutoNumLgl, or AutoNumOut fields with Sequence or Seq fields. Then, when you convert your document to HTML, the field values will be retained.

WARNING: ANY USE BY YOU OF THE CODE PROVIDED IN THIS ARTICLE IS AT YOUR OWN RISK. Microsoft provides this macro code "as is" without warranty of any kind, either express or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose.

Sub MAIN

EndOfDocument X = ViewFieldCodes() ViewFieldCodes 1 EditFind .Find = "^19 AUTONUM", .Direction = 1, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .Format = 0, .Wrap = 1, .FindAllWordForms = 0 While EditFindFound()

 EditBookmark .Name = "Test", .SortBy = 0, .Add
 CharRight 1
 InsertField .Field = "REF Test \* MERGEFORMAT"
 CharLeft 1, 1
 UpdateFields
 UnlinkFields
 CharLeft 1
 CharLeft 1, 1
 EditClear
 EditFind .Find = "^19 AUTONUM", .Direction = 1, .MatchCase = 0,
 .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .Format = 0,
 .Wrap = 1, .FindAllWordForms = 0

Wend EndOfDocument EditFind .Find = "^19AUTONUM", .Direction = 1, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .Format = 0, .Wrap = 1, .FindAllWordForms = 0 While EditFindFound()

 EditBookmark .Name = "Test", .SortBy = 0, .Add
 CharRight 1
 InsertField .Field = "REF Test \* MERGEFORMAT"
 CharLeft 1, 1
 UpdateFields
 UnlinkFields
 CharLeft 1
 CharLeft 1, 1
 EditClear
 EditFind .Find = "^19AUTONUM", .Direction = 1, .MatchCase = 0,
 .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .Format = 0,
 .Wrap = 1, .FindAllWordForms = 0

Wend ViewFieldCodes X

End Sub

KBCategory: kbusage buglist1.0 buglist1.0z buglist2.0z KBSubcategory: kbformat Additional query words: Internet assistant winword word6 word7 word95 number numbering disappear delete cnv conv htm html 1.0 2.0 1.0z 2.0z auto autonum autonumlgl autonumout iaword 6.0a 6.0c 7.0

Keywords          : kbwdinternet kbformat 
Version           : 1.0 1.0z 2.0z
Platform          : WINDOWS

Last Reviewed: January 22, 1999