Contenu du snippet
Un logiciel qui utilise Word for Windows 2000
pour ouvrir la fiche GrosText,
donner le nom GrosWord.doc à cette fiche,
et la fermer avec le mot de passe 'entrez'
Vous assurez que dans l'endroit du disque dur où vous travaillez,
il y a une fiche qui s'appelle GrosText.
( Voir CONCATÉNATION AVEC FSO )
Vous assurez aussi que la fiche GrosWord.doc n'existe pas déjà!
N'oubliez pas à la fin d'effacer GrosWord.doc et GrosText de votre disque dur.
Insérer le code dans la forme d'un nouveau projet VB6.
pour ouvrir la fiche GrosText,
donner le nom GrosWord.doc à cette fiche,
et la fermer avec le mot de passe 'entrez'
Vous assurez que dans l'endroit du disque dur où vous travaillez,
il y a une fiche qui s'appelle GrosText.
( Voir CONCATÉNATION AVEC FSO )
Vous assurez aussi que la fiche GrosWord.doc n'existe pas déjà!
N'oubliez pas à la fin d'effacer GrosWord.doc et GrosText de votre disque dur.
Insérer le code dans la forme d'un nouveau projet VB6.
Source / Exemple :
Option Explicit
Private Sub Form_Load()
CacherTextDansWord
End
End Sub
Private Sub CacherTextDansWord()
Dim wdA As Object, wdD As Object
Dim WkDir As String, Source As String, Destination As String
' Cherchez Word
On Error Resume Next
' Est-il déjà ouvert?
Set wdA = GetObject(, "Word.Application")
If Err = 429 Then
Err.Clear
' Non, alors le démarrer
Set wdA = CreateObject("Word.Application")
If Err = 429 Then
' Désolé, Word n'est pas disponible
MsgBox "Word n'est pas accessible"
Err.Clear
Exit Sub
End If
End If
' Recueillir l'endroit du disque dur où nous sommes
WkDir = App.Path
' Nom du document Destinataire
Destination = WkDir & "\" & "GrosWord.doc"
' S'assurer qu'il n'existe pas
If Dir$(Destination) <> "" Then
MsgBox Destination & " ne doit pas exister"
GoTo ErrEnd
End If
' Nom du document Source
Source = WkDir & "\" & "GrosText"
' Ouvrir la Source avec Word
Set wdD = wdA.Documents.Open(Source)
If wdD = Null Then
MsgBox "Il faut que la fiche 'GrosText' existe dans " & WkDir
GoTo ErrEnd
End If
' Créer un nouveau document Destinataire et le Protéger avec un mot de passe
wdD.SaveAs FileName:=Destination, FileFormat:=0, Password:="entrez"
' Fermer le document
wdD.Close
MsgBox "Le document " & Destination & " est créé"
ErrEnd:
' Terminer word
wdA.Quit
Set wdD = Nothing
Set wdA = Nothing
End Sub
8 juin 2002 à 09:27
22 juil. 2001 à 23:46
Ensuite les accents qui au début empêchaient tout accès au site personnel.
Eliminer les accents, chercher des nouveaux mots sans accents....
Et l'argot! Celui de Paname et le Canayen, c'est ben différent!
16 juil. 2001 à 10:19
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.