Q142332

• 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 :