• グループ文書
  職場の要請でMicrosoft WORDを使用してマニュアルを作っていたのですが、項目毎にファイルを分割しろと宣われる。
  印刷やメンテの事を考えると、1ファイルで管理すると言う事が非常に有用だと思うのだが…
  
  そんな時に「グループ文書」なる機能を発見!
  この機能を用いると、分割したファイルをあたかも1ファイルの様に編集する事が可能!!(^^)
  早速使ってみました(^^)
  
  …使えません(汗
  この機能の最大の弱点は、分割したファイルを絶対パスで管理している事。
  今回作成しているのはマニュアルなので、いろいろな人に配付するのです。
  そのときに、「このフォルダに置いてくださいね…」なんて説明が出来る分けもなく(汗
  
  仕方が無いのでWORD VBAの出番となりました。
  まず試してみたのは、グループ文書のリンクをVBAにて変更すると言う事。
  グループ文書のハイパーリンクの編集はWORDの入力から行う事はできないものですが、VBAなら変更出来ました!(^^)
  …が、ハイパーリンクを使ってサブ文書を開く事は出来るようになりましたが、グループ文書に挿入されているサブ文書として展開する事は出来ませんでした。
  どうやら、他の場所でファイルのパスを持っている模様…
  どこのパスを修正すれば良いか分からず、この方法はお蔵入り(汗
  
  では、グループ文書を開いたときに、グループ文書のパスと、サブ文書ファイル名だけを取得して、そのファイル名からグループ文書を再定義してやればいいのでは?
  …とこのVBAを作成してみました。
  該当のグループ文書を開いたときに、自動更新出来るようにOpenマクロとしてあります。
  サブ文書のみで構築されたファイルに有効です。
  一部のみサブ文書を使用しているものには使えません(メイン文書の内容を削除してしまうため)。
  
  
  尚、最初にサブ文書全体を選んで一括で削除しようとしましたが、何故かVBA中で「Selection.Delete」コマンドが動きませんでした。
  # 手入力による「DEL」キーは効くのに(;つД｀)
  そのため、一回グループ文書を展開した後に文書全体を削除しています。
  この時、グループ文書展開のエラーが発生し、ユーザーからのレスポンス待ちとなるのがいただけませんが、回避方法が分かりませんでした。
  いい方法がありましたら、ご教示下さい。
  
  
  
• WORD VBAソース(稼動確認WORD2000)

  Sub updateSubdocument()
      Dim URL(126) As String
      Dim i, linkCount, subdocCount As Integer
      Dim position As Integer
      Dim filepath As String
      
      linkCount = ActiveDocument.Hyperlinks.Count
      subdocCount = ActiveDocument.Subdocuments.Count
      filepath = ActiveDocument.Path
      For i = 1 To linkCount
          position = InStrRev(ActiveDocument.Hyperlinks(i).Address, "\")
          URL(i) = filepath & "\" & Right(ActiveDocument.Hyperlinks(i).Address, Len(ActiveDocument.Hyperlinks(i).Address) - position)
      Next i
      
      ActiveDocument.Subdocuments.Expanded = Not ActiveDocument.Subdocuments. _
          Expanded
      
      For Each Subdoc In ActiveDocument.Subdocuments
          If Subdoc.HasFile = True Then
              Subdoc.Delete
          Else
              MsgBox "このサブ文書は保存されていません。"
          End If
      Next Subdoc
      
      Selection.EndKey Unit:=wdStory
      Selection.WholeStory
      Selection.Delete
      ActiveDocument.ActiveWindow.View.Type = wdMasterView
      For i = 1 To linkCount
          ActiveDocument.Subdocuments.AddFromFile _
          Name:=URL(i)
      Next i
      If ActiveWindow.View.SplitSpecial = wdPaneNone Then
          ActiveWindow.ActivePane.View.Type = wdPrintView
      Else
          ActiveWindow.View.Type = wdPrintView
      End If
  End Sub
  Sub AutoOpen()
      Rtn = MsgBox("グループ文書の更新を行います" & Chr(13) & Chr(10) & _
      Chr(13) & Chr(10) & _
      "『サブ文書なしでグループ文書を開きますか?』" & Chr(13) & Chr(10) & _
      "のメッセージが表示された場合「はい(Y)」を選んでください", vbOKCancel, "グループ文書の更新")
      If Rtn = vbOK Then
          Call updateSubdocument
      Else
          '
      End If
  End Sub
  

  
  

posted at 2004/02/14