ExcelからWORDのテンプレートファイルにハイパーリンクを貼る

質問

現在EXCELの各セルからWORDファイルにハイパーリンクを貼っています。

このWORDファイルを「.DOC」から「.DOT(テンプレート)」ファイルに変更したところ、「.DOT」ファイルが直接開いてしまいます。

通常、「.DOT」ファイルはダブルクリックで開くと、本体が開かないで、新規文書が開くのですが、EXCELで新規文書を開くようなハイパーリンクは設定できないのでしょうか？

わかる人がいたらご教授願います。

回答No.4

misatoanna

私の回答の意味は、次のようなことなのですが・・・・

まず、ご自分でお作りになったテンプレート(B.dot)をエクスプローラから
ダブルクリックすると、"文書１"として開きますよね。
これをそのまま "文書１.doc" として任意のフォルダに保存します。
ハイパーリンク先は、その "文書１.doc" にします。

お礼

ありがとうございます。
参考にさせていただきます。

回答No.3

misatoanna

> ご両人のやり方ですと、まっさらな新規文章ができてしまいます。
> ユーザテンプレートを基にした、新規文書を開きたいのです。

＃１の回答につきましてですが、
> B)文書1.doc という白紙の文書を保存しておき、それにリンクを張る。
で保存しておく文書を、ユーザテンプレートをダブルクリックして開く
文書に代えればよいのではないでしょうか。

補足

何度もありがとうございます。

その方法ですと、ユーザテンプレート自体が開いてしまいます。

私の表現力がなくて申し訳ないのですが、下記にもう一度まとめてみます。

今
Ａ．ＤＯＣ（通常のワードファイル)
Ｂ．ＤＯＴ（Ａ．ＤＯＣをテンプレートとしたもの)

の2つのファイルがあるとします。
これをエクスプローラ上から開くと。

Ａはそのまま開く。
Ｂは中身はＢであるが「新規文書」として開く。

ＢはＢ本体のコピーが開くイメージです。

ココまでは通常だと思います。

これをEXCEL等からハイパーリンクで開こうとすると。

Ａはそのまま開く。
ＢはＢ自体が開いてしまう。(テンプレートファイル自体)

先ほどと動きが違います。

これをどうにか、エクスプローラで開いたように
コピーを開くようにはできないでしょうか？

回答No.2

Wendy02

＞EXCELで新規文書を開くようなハイパーリンクは設定できないのでしょうか？
ということと、ハイパーリンクの目的とするところとは、意味が違ってきます。

ハイパーリンク様に、文字列の文字色を青にして下線でも入れて、ダミーを作り、同じシートのシートモジュール（画面下シート名のタブを右クリック－コードの表示）で、以下を貼り付けて、閉じれば、ダブルクリックで新規のWord文書が開きます。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim IDProcess As Long
　If Target.Address = "$A$1" Then　'設定する場所
　　Cancel = True
　　'Wordのプログラムファイルのある場所が違うようでしたら直してください。
　　IDProcess = Shell("C:\Program Files\Microsoft Office\Office\WINWORD.EXE", 1)
　　AppActivate IDProcess
　End If
End Sub

なお、オートメーション・オブジェクトを使う方法が簡単ですが、環境によって失敗することも多いようですので、ここでは割愛します。

補足

色々とご教授ありがとうございます。
私の書き方が悪かったのですが、ユーザテンプレートを基にした、新規文書を開きたいのです。

ご両人のやり方ですと、まっさらな新規文章ができてしまいます。

A.DOTというユーザテンプレートから、A.DOTを基にした新規文章を開くことはできないでしょうか？

回答No.1

misatoanna

A)Winword.exe　にリンクを張る。
　　　または
B)文書1.doc という白紙の文書を保存しておき、それにリンクを張る。

で、いかがでしょうか。
でも、A)の場合は警告メッセージが出ます。