word更新目录域宏命令

阅读更多

===============文档打开时执行=========================

Sub AutoOpen()
  Dim aStory As Range
  Dim aField As Field
     For Each aStory In ActiveDocument.StoryRanges
        For Each aField In aStory.Fields
           aField.Update
        Next aField
     Next aStory

End Sub

 

==============文档另存============================
Sub saveAsFile()
   Dim filePath As String

   Dim fileName As String

   Dim transFileName As String

   filePath = Application.ActiveDocument.Path

   transFileName = filePath+"\"+Left(ThisDocument.Name,Len(ThisDocument.Name)-4)+"docx"

   Application.DisplayAlerts=False

   ChDir filePath

           ActiveDocument.SaveAs2 fileName:=transFileName,FileFormat:= _

           wdFormatXMLDocument,LockCommnets:=False,Password:="",AddToRecentFiles _

           :=True, WritePassword:="",ReadOnlyRecommended:=False,EmbedTrueTypeFonts  _

          :=False,SaveNativePictureFormat:=False,SaveFormsData:=False, _ SaveAsAOCELetter _

          :=False,CompatibilityMode:=14
End Sub

===================java 调用vbscript==========================

public synchronized void handleVBS(String vbsPath,String wordPath){
          File vbsFile = new File(vbsPath);
          if(vbsFile.exists()){
                  vbsFile.delete();
          }
          try{
                vbsFile.createNewFile();
                Map map = new HashMap();
                map.put(0,"Set objWord = CreateObject(\"Word.Application\")");
                map.put(1," objWord.Visible = false");
                map.put(2,"Set objDocument = objWord.Documents.Open(\""
                                    +wordPath+"\")");
               map.put(3," objWord.ActiveDocument.Save");
               map.put(4," objWord.Application.Quit");
               map.put(5,"Set objWord = Nothing");
               String[] vbs = new String[6];
               for(int i =0;i