Mrrrr's Forum (VIEW ONLY)
Un forum care ofera solutii pentru unele probleme legate in general de PC. Pe langa solutii, aici puteti gasi si alte lucruri interesante // A forum that offers solutions to some PC related issues. Besides these, here you can find more interesting stuff. 		Lista Forumurilor Pe Tematici
Mrrrr's Forum (VIEW ONLY) | Reguli | Inregistrare | Login

POZE MRRRR'S FORUM (VIEW ONLY)

Nu sunteti logat. 		Nou pe simpatie:
Diana2019 pe Simpatie.ro
Femeie
25 ani
Vaslui
cauta Barbat
28 - 80 ani
Mrrrr's Forum (VIEW ONLY) / Tutoriale si Ghiduri Utile // Tutorials and useful guides / [WORD] Field Updating on Saving Any Document / On Button Click Moderat de TRaP, TonyTzu
Autor
Mesaj Pagini: 1
TRaP
Moderator

Inregistrat: acum 6 ani
Postari: 795
When you click save, all fields will be updated:


Dim WithEvents TheApp As Word.Application

Private Sub Document_Open()
    Set TheApp = ThisDocument.Application
End Sub

Private Sub TheApp_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
    Doc.Fields.Update
End Sub
pus acum 6 ani
   
Mrrrr
AdMiN

Inregistrat: acum 18 ani
Postari: 2247
Make a button and link it to this:


Sub Update_All_Fields()

Dim oStory As Range
For Each oStory In ActiveDocument.StoryRanges
    oStory.Fields.Update
    If oStory.StoryType <> wdMainTextStory Then
        While Not (oStory.NextStoryRange Is Nothing)
            Set oStory = oStory.NextStoryRange
            oStory.Fields.Update
        Wend
    End If
Next oStory
Set oStory = Nothing

End Sub


_______________________________________
pus acum 5 ani
   
Pagini: 1  

Mergi la