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: Cezi 23 ani
| Femeie 23 ani Vaslui cauta Barbat 23 - 80 ani |
|
TRaP
Moderator
Inregistrat: acum 6 ani
Postari: 787
|
|
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 5 ani |
|
Mrrrr
AdMiN
Inregistrat: acum 17 ani
Postari: 2228
|
|
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 4 ani |
|