contrib/diff-scripts/merge-doc.js

   1 // extensions: doc;docx;docm\r
   2 //\r
   3 // TortoiseSVN Merge script for Word Doc files\r
   4 //\r
   5 // Copyright (C) 2004-2008, 2011 the TortoiseSVN team\r
   6 // This file is distributed under the same license as TortoiseSVN\r
   7 //\r
   8 // Last commit by:\r
   9 // $Author$\r
  10 // $Date$\r
  11 // $Rev$\r
  12 //\r
  13 // Authors:\r
  14 // Dan Sheridan, 2008\r
  15 // Davide Orlandi and Hans-Emil Skogh, 2005\r
  16 // Richard Horton, 2011\r
  17 //\r
  18 \r
  19 var objArgs, num, sTheirDoc, sMyDoc, sBaseDoc, sMergedDoc,\r
  20     objScript, word, baseDoc, myDoc, theirDoc, WSHShell;\r
  21 \r
  22 // Microsoft Office versions for Microsoft Windows OS\r
  23 var vOffice2000 = 9;\r
  24 var vOffice2002 = 10;\r
  25 //var vOffice2003 = 11;\r
  26 var vOffice2007 = 12;\r
  27 var vOffice2010 = 14;\r
  28 // WdCompareTarget\r
  29 var wdCompareTargetSelected = 0;\r
  30 //var wdCompareTargetCurrent = 1;\r
  31 var wdCompareTargetNew = 2;\r
  32 var wdMergeTargetCurrent = 1;\r
  33 \r
  34 objArgs = WScript.Arguments;\r
  35 num = objArgs.length;\r
  36 if (num < 4)\r
  37 {\r
  38     WScript.Echo("Usage: [CScript | WScript] merge-doc.js merged.doc theirs.doc mine.doc base.doc");\r
  39     WScript.Quit(1);\r
  40 }\r
  41 \r
  42 sMergedDoc = objArgs(0);\r
  43 sTheirDoc = objArgs(1);\r
  44 sMyDoc = objArgs(2);\r
  45 sBaseDoc = objArgs(3);\r
  46 \r
  47 objScript = new ActiveXObject("Scripting.FileSystemObject");\r
  48 \r
  49 if (!objScript.FileExists(sTheirDoc))\r
  50 {\r
  51     WScript.Echo("File " + sTheirDoc + " does not exist.  Cannot compare the documents.", vbExclamation, "File not found");\r
  52     WScript.Quit(1);\r
  53 }\r
  54 \r
  55 if (!objScript.FileExists(sMergedDoc))\r
  56 {\r
  57     WScript.Echo("File " + sMergedDoc + " does not exist.  Cannot compare the documents.", vbExclamation, "File not found");\r
  58     WScript.Quit(1);\r
  59 }\r
  60 \r
  61 objScript = null;\r
  62 \r
  63 try\r
  64 {\r
  65     word = WScript.CreateObject("Word.Application");\r
  66 }\r
  67 catch (e)\r
  68 {\r
  69     WScript.Echo("You must have Microsoft Word installed to perform this operation.");\r
  70     WScript.Quit(1);\r
  71 }\r
  72 \r
  73 word.visible = true;\r
  74 \r
  75 // Open the base document\r
  76 baseDoc = word.Documents.Open(sTheirDoc);\r
  77 \r
  78 // Merge into the "My" document\r
  79 if (parseInt(word.Version, 10) < vOffice2000)\r
  80 {\r
  81     baseDoc.Compare(sMergedDoc);\r
  82 }\r
  83 else if (parseInt(word.Version, 10) < vOffice2007)\r
  84 {\r
  85     baseDoc.Compare(sMergedDoc, "Comparison", wdCompareTargetNew, true, true);\r
  86 }\r
  87 else if (parseInt(word.Version, 10) < vOffice2010)\r
  88 {\r
  89     baseDoc.Merge(sMergedDoc);\r
  90 }\r
  91 else\r
  92 {\r
  93     //2010 - handle slightly differently as the basic merge isn't that good\r
  94     //note this is designed specifically for svn 3 way merges, during the commit conflict resolution process\r
  95     theirDoc = baseDoc;\r
  96     baseDoc = word.Documents.Open(sBaseDoc);\r
  97     myDoc = word.Documents.Open(sMyDoc);\r
  98 \r
  99     baseDoc.Activate(); //required otherwise it compares the wrong docs !!!\r
 100     baseDoc.Compare(sTheirDoc, "theirs", wdCompareTargetSelected, true, true);\r
 101 \r
 102     baseDoc.Activate(); //required otherwise it compares the wrong docs !!!\r
 103     baseDoc.Compare(sMyDoc, "mine", wdCompareTargetSelected, true, true);\r
 104 \r
 105     //theirDoc.Save();\r
 106     //myDoc.Save();\r
 107     myDoc.Activate(); //required? just in case\r
 108     myDoc.Merge(sTheirDoc, wdMergeTargetCurrent);\r
 109 }\r
 110 \r
 111 // Show the merge result\r
 112 if (parseInt(word.Version, 10) < vOffice2007)\r
 113 {\r
 114     word.ActiveDocument.Windows(1).Visible = 1;\r
 115 }\r
 116 \r
 117 // Close the first document\r
 118 if ((parseInt(word.Version, 10) >= vOffice2002) && (parseInt(word.Version, 10) < vOffice2010))\r
 119 {\r
 120     baseDoc.Close();\r
 121 }\r
 122 \r
 123 // Show usage hint message\r
 124 WSHShell = WScript.CreateObject("WScript.Shell");\r
 125 if (WSHShell.Popup("You have to accept or reject the changes before\nsaving the document to prevent future problems.\n\nWould you like to see a help page on how to do this?", 0, "TSVN Word Merge", 4 + 64) === 6)\r
 126 {\r
 127     WSHShell.Run("http://office.microsoft.com/en-us/assistance/HP030823691033.aspx");\r
 128 }\r