Discussion :

[thais781]

Bonjour,

J'ai dans mon doc Word une petite fonction qui permet de mettre a jour un signet.
Ci-dessous la function :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub UpdateBookmark(BookmarkToUpdate As String, TextToUse As String)
    Dim BMRange As Range
    Set BMRange = ActiveDocument.Bookmarks(BookmarkToUpdate).Range
    BMRange.Text = TextToUse
    ActiveDocument.Bookmarks.Add BookmarkToUpdate, BMRange
End Sub

Et bing l'erreur : "Erreur de Compilation : Erreur de syntaxe"
Puis l’aperçu de la ou ca plante .....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub TmpDDE()
    
                Dim BMRange As Range
                Set BMRange = ActiveDocument.Bookmarks("DDDDD").Range
                BMRange.Text = _
        "Le Mistral, grand absent des discussions franco-russes. Ce devait être l'un des fils rouges de ce sommet du G20 à Brisbane pour la France. Entre le réchauffement climatique et la situation ukrainienne, François Hollande devait aussi gérer le dossier des contrats de navires Mistral à la Russie. Des navires de guerre que la France s'était engagée à livrer à Moscou en 2011. Sauf que depuis, les ingérences russes dans l'est de l'Ukraine et les positions diplomatiques ambivalentes du Kremlin ont réveillé les réticences de Paris. Le Mistral, grand absent des discussions franco-russes. Ce devait être l'un des fils rouges de ce sommet du G20 à Brisbane pour la France. Entre le réchauffement climatique et la situation ukrainienne, François Hollande devait aussi gérer le dossier des contrats de navires Mistral à la Russie. Des navires de guerre que la France s'était engagée à livrer à Moscou en 2011. Sauf que depuis, les ingérences russes dans l'est de l'Ukraine et les positions diplomatiques ambivalente" & _

        "s du Kremlin ont réveillé les réticences de Paris."
                ActiveDocument.Bookmarks.Add "DDDDD", BMRange
End Sub

Je pense que la taille de ma string est trop longue, mais comment gérer cela

Une idée ? Merci d'avance

Thais

[clementmarcotte]

Bonjour,

J'ai dans mon doc Word une petite fonction qui permet de mettre a jour un signet.
Ci-dessous la function :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub UpdateBookmark(BookmarkToUpdate As String, TextToUse As String)
    Dim BMRange As Range
    Set BMRange = ActiveDocument.Bookmarks(BookmarkToUpdate).Range
    BMRange.Text = TextToUse
    ActiveDocument.Bookmarks.Add BookmarkToUpdate, BMRange
End Sub

Et bing l'erreur : "Erreur de Compilation : Erreur de syntaxe"
Puis l’aperçu de la ou ca plante .....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub TmpDDE()
    
                Dim BMRange As Range
                Set BMRange = ActiveDocument.Bookmarks("DDDDD").Range
                BMRange.Text = _
        "Le Mistral, grand absent des discussions franco-russes. Ce devait être l'un des fils rouges de ce sommet du G20 à Brisbane pour la France. Entre le réchauffement climatique et la situation ukrainienne, François Hollande devait aussi gérer le dossier des contrats de navires Mistral à la Russie. Des navires de guerre que la France s'était engagée à livrer à Moscou en 2011. Sauf que depuis, les ingérences russes dans l'est de l'Ukraine et les positions diplomatiques ambivalentes du Kremlin ont réveillé les réticences de Paris. Le Mistral, grand absent des discussions franco-russes. Ce devait être l'un des fils rouges de ce sommet du G20 à Brisbane pour la France. Entre le réchauffement climatique et la situation ukrainienne, François Hollande devait aussi gérer le dossier des contrats de navires Mistral à la Russie. Des navires de guerre que la France s'était engagée à livrer à Moscou en 2011. Sauf que depuis, les ingérences russes dans l'est de l'Ukraine et les positions diplomatiques ambivalente" & _

        "s du Kremlin ont réveillé les réticences de Paris."
                ActiveDocument.Bookmarks.Add "DDDDD", BMRange
End Sub

Je pense que la taille de ma string est trop longue, mais comment gérer cela

Une idée ? Merci d'avance

Thais

À mon avis, tu n'aurais pas une erreur de syntaxe pour un texte trop long. Dans un premier temps, commence par enlever la ligne vide entre tes deux bouts de texte.

[Heureux-oli]

Salut,

Je pense que ton problème n'est pas une question de longueur.
Je viens d'essayer avec 5000 caractères et ça passe sans erreur.

Le conseil de kiki29 devrait apporter une solution à ton soucis.

[thais781]

Bonjour,

Merci pour votre aide.

J'ai fais un test, avec le texte ci-dessous, ca passe nickel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"Le Mistral, grand absent des discussions franco-russes. Ce devait être l'un des fils rouges de ce sommet du G20 à Brisbane pour la France. Entre le réchauffement climatique et la situation ukrainienne, François Hollande devait aussi gérer le dossier des contrats de navires Mistral à la Russie. Des navires de guerre que la France s'était engagée à livrer à Moscou en 2011. Sauf que depuis, les ingérences russes dans l'est de l'Ukraine et les positions diplomatiques ambivalentes du Kremlin ont réveillé les réticences de Paris. Le Mistral, grand absent des discussions franco-russes. Ce devait être l'un des fils rouges de ce sommet du G20 à Brisbane pour la France. Entre le réchauffement climatique et la situation ukrainienne, François Hollande devait aussi gérer le dossier des contrats de navires Mistral à la Russie. Des navires de guerre que la France s'était engagée à livrer à Moscou en 2011. Sauf que depuis, les ingérences russes dans l'est de l'Ukraine et les  positions positions positions 123"

Par contre, si je rajoute 1 caractère à la fin, ca bug

Point peut être important, ma fonction UpdateBookmark est appelé via un script externe : AppleScript
Pour info, mon code AppleScript permettant cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
on ModifyWordSignet(SignetName, Texte)
	tell application "Microsoft Word"
		activate
		tell active document
			«event MSWDdovb» "
			Dim BMRange As Range
			Set BMRange = ActiveDocument.Bookmarks(\"" & SignetName & "\").Range
			BMRange.Text = \"" & Texte & "\"
			ActiveDocument.Bookmarks.Add \"" & SignetName & "\", BMRange"
		end tell
	end tell
end ModifyWordSignet

[clementmarcotte]

Bonjour,

Bonjour,


Par contre, si je rajoute 1 caractère à la fin, ca bug

Ma boule de cristal est en panne. (Celles de Heureux-Oli et de Kiki29 , je ne sais pas.)

Il se passe quoi ?

[thais781]

Bonjour,

Et bien la meme chose que dans mon premier post, j'arrive dans la fonction TmpDDE avec le texte en rouge ....


Thais