Bonjour à tous,
Afin de modifier un document ms word, autrefois piloté par une application
ms access,
Je souhaiterai adapter les deux fonctions access suivante en ASP :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Sub Write1(wdApp As Word.Application, str As Variant, Tag As String) With wdApp If Len(str) <> 0 Then If wdApp.ActiveDocument.Bookmarks.Exists(Tag) Then .Selection.Goto What:=wdGoToBookmark, Name:=Tag .Selection.TypeText str End If End If End With End SubEt mon code asp est le suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Sub Write2(wdApp As Word.Application, str As Variant, Tag As String) Dim RangeBook As Word.Range If wdApp.ActiveDocument.Bookmarks.Exists(Tag) Then Set RangeBook = wdApp.ActiveDocument.Bookmarks(Tag).Range RangeBook.Text = str wdApp.ActiveDocument.Bookmarks.Add Tag, RangeBook End If End Sub
Dans la fonction Write1, le test if est validé car le signet existe bien dans mon document Word,
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 ' -------------------------------------------------- Function Write1(WordDoc, str, Tag) If Len(str) <> 0 Then If WordDoc.Bookmarks.Exists(Tag) Then WordDoc.Goto(wdGoToBookmark, , , Tag).Select WordDoc.TypeText str End If End If End Function ' -------------------------------------------------- Function Write2(WordDoc, str, Tag) Dim RangeBook If WordDoc.Bookmarks.Exists(Tag) Then Set RangeBook = WordDoc.Bookmarks(Tag).Range RangeBook.Text = str WordDoc.Bookmarks.Add Tag, RangeBook End If End Function ' --------------------------------------------------
mais en sortie j'ai l'erreur suivante :
Je pense que l'erreur doit venir d'une mauvaise utilisation de la méthode Goto(wdGoToBookmark, , , Tag), mais je n'en sais pas plus.Microsoft Word error '800a13ed'
Ce signet n'existe pas.
/31/web/31-asp/31-00/createDoc.asp, line 233
Si quelqu'un pouvait m'aider à résoudre ce problème.
Merci d'avance pour votre aide
Ajout des balises de code
Partager