PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV, WEBDEV e WINDEV Mobile

Inicio | Mensagens recentes | Conecte-se... |  | Português FR
Inicio → WINDEV 2024 → Classe cWord traduction d'une macro
Classe cWord traduction d'une macro
Iniciado por Meeus, jun., 23 2005 6:44 PM - 2 respostas
#1
Publicado em junho, 23 2005 - 6:44 PM
Qui peut traduire cette macro en une procedure pouvant être incorporé
dans la classe cWord ( exemple Windev )


If ActiveDocument.ProtectionType = wdNoProtection Then
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, _
NoReset:=True
Else
ActiveDocument.Unprotect Password:=""
End If

Merci d'avance
#2
Publicado em junho, 23 2005 - 11:46 PM
Cette fonction marche bien

Celà permet de gérer un formulaire word protégé et d'enlever sa protection afin de faire des copier - coller etc .....

il suffit de le protéger à nouveau après ces fonctions


// 2= Protégé
// -1=non protégé
IF :m_xWord>>ActiveDocument>>ProtectionType= 2 //wdNoProtection Then
:m_xWord>>ActiveDocument>>Unprotect()
END
#3
Publicado em junho, 24 2005 - 2:21 AM
Je vous conseille ce site
http://techsupt.winbatch.com/TS/T000001033F49.html…

Il m'a permis de répondre à ma question de savoir comment proteger ou pas un document

// 2= Protégé
// -1=non protégé
SI :m_xWord>>ActiveDocument>>ProtectionType= 2 //wdNoProtection Then
:m_xWord>>ActiveDocument>>Unprotect
SINON
:m_xWord>>ActiveDocument>>Protect(2,True)
// :m_xWord>>ActiveDocument>>Protect(Type:=wdAllowOnlyFormFields, NoReset:=True)
FIN
→ Voltar para WINDEV 2024