IA: AutoNum Field Values Disappear on HTML Export
ID: 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 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
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
Version : WINDOWS:1.0,1.0z,2.0z,6.0a,6.0c,7.0
Platform : WINDOWS
Issue type :