Cacher text dans word

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 792 fois - Téléchargée 56 fois

Commenter

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.

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

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de mask
S'inscrire maintenant

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.

Du même auteur (cs_Louis)