Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2244 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [URGENT]Problème avec Normal.dot

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[URGENT]Problème avec Normal.dot

n°1440995
acorsa
Posté le 12-09-2006 à 14:46:11  profilanswer
 

Bonjour,  
Alors voilà je vous explique brièvement ce que fait mon programme: j'ai un bouton qui permet d'attribuer un style au mot sélectionné dans le document Word courant.
Donc je n'utilise qu'un style, pourtant lorsque j'utilise la fonction sur tout mon fichier et que je le converti en xml je vois apparaître des nouveaux styles genre: "monstyleChar" ou "monstyle0"...
Vous connaissez la raison de ce problème?
Bon je vous mets le code que j'utilise: Selection.Style = ThisDocument.Styles("monstyle" ) sachant qu'au préalable j'ai inséré le style dans le document Word.
S'il vous plaît aidez-moi!!!!


Message édité par acorsa le 13-09-2006 à 15:48:41
mood
Publicité
Posté le 12-09-2006 à 14:46:11  profilanswer
 

n°1441304
acorsa
Posté le 12-09-2006 à 17:53:53  profilanswer
 

Bon laissez tomber ce problème, j'en ai un bien plus important...
Alors j'ai fait une fonction qui cherche des fichiers word dans un répertoire bien précis et qui y insère un style:
 
Dim i As Integer
Dim fso As FileSystemObject
Dim fs As Folder
Dim f As file
Dim path As String
path = Application.NormalTemplate.path & "\Normal.dot"
 
Set fso = New FileSystemObject
Set fs = fso.GetFolder("C:\Key\PrepareFiles\" )
FileName = Dir("C:\Key\PrepareFiles\*.*" )
 
For i = 0 To fs.Files.Count + 1
    If FileName <> vbNullString Then
        Open FileName For Output As #1
        dest = "C:\Key\PrepareFiles\" & FileName
        Application.OrganizerCopy Source:=path, Destination:=dest, name:="termKey", Object:=wdOrganizerObjectStyles
        Close #1
        FileName = Dir
    End If
Next i
 
fin:
    Set f = Nothing
    Set fs = Nothing
    Set fso = Nothing
End Sub
 
Le problème c'est que je suis obligée de commenter la ligne  Application.OrganizerCopy Source:=path, Destination:=dest, name:="termKey", Object:=wdOrganizerObjectStyles à chaque dès que j'ai utilisé la fonction car sinon il me dit que le fichier Normal.dot est ouvert.  
Connaissez-vous la solution?


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [URGENT]Problème avec Normal.dot

 

Sujets relatifs
[Résolu] Problème avec count et distinct [C++] Probleme avec un exercice
Probleme dans un menu...[Résolu]Problème depuis que Register Globals est sur off
probleme combi ASP + vbscript[c#][1.1] Probleme WMI demande non valide
Problème avec vb range et boutonProblème avec Mysql et Show processlist
probleme avec la syntax "If not"Problème de calcul en double précision
Plus de sujets relatifs à : [URGENT]Problème avec Normal.dot


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR