locked
Word2007でプロパティのアドレスをVBAで取得する方法はありますか。 RRS feed

  • 質問

  • メール等にショートカットとして張り付けるため、開いているWordファイルのサーバーのアドレスをコピーするために、

    プロパティを出して、アドレスをコピーする、そしてプロパティーを閉じる、

    ということをよく行うのですが、

    これをマクロで一発で行うことはできますでしょうか?

    VBAの自動記録だと下記のようになり。コピーしている部分が全然記録できません。

    初心者なものでコードが自分で作れません。

    ご存知の方がいらっしゃいましたら教えていただけないでしょうか?

     

    Sub アドレス取得()

    ' アドレス取得 Macro

        Application.DisplayDocumentInformationPanel = True

    End Sub

    • 移動 Yubo. Zhang 2012年10月1日 9:57 (移動元:Windows 7 ソフトウェア)
    2011年3月23日 7:21

すべての返信

  • 今開いているドキュメントのフルパスがほしいなら Application.ActiveDocument.FullName あたりからとれませんか?

    # その後、クリップボードにコピーするようなコードを探して頂かないといけませんが。


    質問スレッドで解決した場合は、解決の参考になった投稿に対して「回答としてマーク」のボタンを押すことで、同じ問題に遭遇した別のユーザが役立つ投稿を見つけやすくなります。
    • 回答としてマーク 服部清次 2011年4月4日 4:03
    • 回答としてマークされていない あおぬー 2011年4月14日 5:19
    2011年3月23日 14:03
  • あおぬー さん、

    こんにちは。
    フォーラム オペレーターの服部清次です。

    あおぬー さんがこちらの質問を投稿されてから少し経ちましたが、
    Azulean さんの回答はご確認いただけましたでしょうか?

    今回、Azulean さんの回答が参考になるのではないかと思いましたので、
    勝手ながら、私の方で [回答としてマーク] させていただきました。

    なお、こちらの TechNet フォーラムは IT Pro の方々による情報交換を目的としており、
    また Office 関連の専用フォーラムがありません。
    VBA 関連のご質問は、弊社が一般ユーザー向けに運営している別の Q&A サイト Answers にある
    Office フォーラムの方が情報を得やすいかと思いますので、
    次回ご質問の際にはぜひ Answers もご検討ください。

    それでは、また。


    __________________________________________________
    日本マイクロソフト株式会社 フォーラム オペレーター 服部 清次

    2011年4月4日 4:08
  • 大変御礼が遅くなりまして申し訳ありません。一度試してみます。ありがとうございました。

    2011年4月12日 3:53
  • 服部清次様

    ホームページご紹介ありがとうございます。次回からそちらに質問致します。

     

    Azulean

    今回だけ、もしまだご覧になっていましたら教えていただけますでしょうか?

     

    教えていただいたコードから検索し、下記のコードだろう、と思い、実際Msgボックスにも出されるのを確認し、

    http://msdn.microsoft.com/ja-jp/library/dd596403(v=office.11).aspx

     

    取得したアドレスを、今開いているワードの行にコピペしようと、いろいろ試したのですが

    貼り付けるだけだとおもうのですが、デバックがかかりエラーになります。

    もし、可能でしたら、取得したアドレスを貼り付ける、あるいはコピーする方法を教えていただけないでしょうか?

     

    Sub PathNames()

     

        Dim strFullName As String

        strFullName = Application.ActiveDocument.FullName

    Selection.Copy

     

    End Sub

    2011年4月12日 5:56