Show and hide fields with default value when opening a Word document

[coeurdange57]

I have a word document with a button. When clicking this button a macro in word is executed for comparing and creating new word documents.
There are equally a label and a progressbar for showing the progress of the script, I try to hide these fields until that a click on the button is done. I would like equally to reset the value of these fields when I open the document and I don't know how to do that.

Could you please help with that?

My script:


Private Sub SummaryReportButton_Click()

'Initialize the progressbar
Dim k As Integer
Dim filesNumber As Integer
k = 0
Me.Label.Caption = "0% Completed"
Me.ProgressBar.Value = k

Dim objDocA As Word.Document
Dim objDocB As Word.Document
Dim objDocC As Word.Document

Dim objFSO As Scripting.FileSystemObject
Dim objFolderA As Scripting.Folder
Dim objFolderB As Scripting.Folder
Dim objFolderC As Scripting.Folder

Dim colFilesA As Scripting.Files
Dim objFileA As Scripting.File

Dim i As Integer
Dim j As Integer

Set objFSO = New FileSystemObject
Set objFolderA = objFSO.GetFolder(ChooseFolder("Choose the folder with the original documents", ThisDocument.Path))
Set objFolderB = objFSO.GetFolder(ChooseFolder("Choose the folder with revised documents", ThisDocument.Path))
Set objFolderC = objFSO.GetFolder(ChooseFolder("Choose the folder for the comparisons documents", ThisDocument.Path))

Set colFilesA = objFolderA.Files

'Turn off DisplayAlerts
Application.DisplayAlerts = wdAlertsNone

'Number of files in the folder
filesNumber = objFolderA.Files.Count

For Each objFileA In colFilesA

If objFileA.Name Like "*.docx" Then
Set objDocA = Documents.Open(objFolderA.Path & "\" & objFileA.Name)
Set objDocB = Documents.Open(objFolderB.Path & "\" & objFileA.Name)
Set objDocC = Application.CompareDocuments( _
OriginalDocument:=objDocA, _
RevisedDocument:=objDocB, _
Destination:=wdCompareDestinationNew)
objDocA.Close
objDocB.Close
On Error Resume Next
Kill objFolderC.Path & "\" & objFileA.Name
On Error GoTo 0

'Turn off DisplayAlerts
Application.DisplayAlerts = wdAlertsNone

objDocC.SaveAs FileName:=objFolderC.Path & "\" & objFileA.Name
Application.DisplayAlerts = wdAlertsNone
objDocC.Close SaveChanges:=True

End If

'Update the label and the progressbar
k = k + 1
Me.ProgressBar.Value = k * 100 / filesNumber
Me.Label.Caption = k * 100 / filesNumber & "% Completed"

Next objFileA

End Sub


Thanks in advance for your help.

[gmayor]

Save the document as a template are create new documents from it, then the problem of the field clearing doesn't arise.