Microsoft KB Archive/142332

{|
 * width="100%"|

IA: AutoNum Field Values Disappear on HTML Export

 * }

Q142332

-

The information in this article applies to:


 * Microsoft Internet Assistant for Word, 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, 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 Additional query words: Internet assistant winword word6 word7 word95 number numbering disappear delete cnv conv htm html 1.0 2.0 1.0z auto autonum autonumlgl autonumout iaword 7.0

Keywords : kbwdinternet kbformat

Issue type :

Technology :