Word vba - Comment puis-je stocker des valeurs de chaîne dans un module?

Question

le titre peut ne pas être approprié parce que je ne sais pas vraiment comment je devrais mettre ceci. J'ai un template où j'ai un module "Module1" et un code "ThisDocument". Module1 contient le code suivant pour récupérer les valeurs du registre. Je prends ces valeurs du code ThisDocument.

Ce que je veux, c'est déplacer le code de ThisDocument vers son propre module. Et être capable d'accéder aux valeurs de tous les autres modules ou sous-marins.

En ce moment, ThisDocument a un code qui ressemble un peu à ceci:

regPath = ReadIni(File, "Registry", "Path") 
regString = ReadIni(File, "Registry", "String") 
regStrFirstname = ReadIni(File, "Fields", "Firstname") 
regStrLastname = ReadIni(File, "Fields", "Lastname") 
regStrInitials = ReadIni(File, "Fields", "Initials") 
regStrFullname = ReadIni(File, "Fields", "Fullname") 

Ainsi, au lieu d'avoir ce code dans ThisDocument, je voudrais avoir ce code dans un module distinct et d'être en mesure d'accéder les valeurs de ThisDocument directement. De cette façon, je peux prendre les valeurs de, disons un formulaire aussi. Remplir les zones de texte avec les valeurs, etc.

Comment est-ce que je devrais faire ceci?

Module1 ressemble à ceci:

Private Declare Function GetPrivateProfileSection Lib "kernel32" Alias _ 
"GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, _ 
ByVal nSize As Long, ByVal lpFileName As String) As Long 

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias _ 
"GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, _ 
ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, _ 
ByVal lpFileName As String) As Long 

Private Declare Function WritePrivateProfileSection Lib "kernel32" Alias _ 
"WritePrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpString As String, _ 
ByVal lpFileName As String) As Long 

Private Declare Function WritePrivateProfileString Lib "kernel32" Alias _ 
"WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, _ 
ByVal lpString As Any, ByVal lpFileName As String) As Long 

'// INI CONTROLLING PROCEDURES 
'reads an Ini string 
Public Function ReadIni(Filename As String, Section As String, Key As String) As String 
Dim RetVal As String * 255, v As Long 
v = GetPrivateProfileString(Section, Key, "", RetVal, 255, Filename) 
ReadIni = Left(RetVal, v + 0) 
End Function 

'reads an Ini section 
Public Function ReadIniSection(Filename As String, Section As String) As String 
Dim RetVal As String * 255, v As Long 
v = GetPrivateProfileSection(Section, RetVal, 255, Filename) 
ReadIniSection = Left(RetVal, v + 0) 
End Function 

Answer 1

Faire les fonctions variables. Vous voulez essentiellement des variables globales accessibles partout. Le moyen de le faire est de capsuler les variables.

En Module1 (ou un nouveau module) ajouter:

Function regPath() 
     regPath = ReadIni(File, "Registry", "Path") 
End Function 

Hope it helps.

Si vous voulez être encore plus sophistiqué, vous pouvez travailler avec des objets.

Answer 2

Tout d'abord, je vous recommande de vous débarrasser des appels API et il suffit d'utiliser les fonctions de registre intégrées dans VBA de GetSetting, SaveSetting, GetAllSettings et DeleteSetting. Vous pouvez en apprendre plus à leur sujet ici: Maintain Custom Settings Using the Windows Registry. L'un des avantages immédiats de cela, outre le fait que c'est facile, est que si vous finissez par utiliser Word 2010 x64, vous n'avez pas à gérer deux ensembles d'appels d'API, un pour x64 et un pour x86.

Maintenant à votre question. Cela dépend si votre code va s'exécuter dans un modèle global ou par lui-même. Si c'est dans un template global, vous utiliserez une sous-routine dans n'importe quel module (comme Module1) appelé AutoExec - vous pouvez mettre tout ce que vous voulez dans ce sous-programme, comme l'initialisation des variables globales. Si ce n'est pas un modèle global (c'est-à-dire que vous allez l'ouvrir parfois et que vous ne voulez pas qu'il s'ouvre toujours lorsque vous démarrez Word), vous utiliserez à la place AutoOpen. Tout code dans AutoOpen s'exécutera automatiquement (en supposant que vous avez géré les paramètres de sécurité) lorsque votre document à extension macro est ouvert.

Vous pourriez avoir quelque chose comme ça dans Module1:

''# Put this at the top of the module 
Public regPath As String 
Public regString As String 
Public regStrFirstname As String 
Public regStrLastname As String 
Public regStrInitials As String 
Public regStrFullname As String 

Sub AutoOpen() 
    ''# Use your current API calls to the registry or the VBA calls to the registry (above) 
    regPath = ReadIni(File, "Registry", "Path") 
    regString = ReadIni(File, "Registry", "String") 
    regStrFirstname = ReadIni(File, "Fields", "Firstname") 
    regStrLastname = ReadIni(File, "Fields", "Lastname") 
    regStrInitials = ReadIni(File, "Fields", "Initials") 
    regStrFullname = ReadIni(File, "Fields", "Fullname") 
End Sub