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

質問
-
メール等にショートカットとして張り付けるため、開いているWordファイルのサーバーのアドレスをコピーするために、
プロパティを出して、アドレスをコピーする、そしてプロパティーを閉じる、
ということをよく行うのですが、
これをマクロで一発で行うことはできますでしょうか?
VBAの自動記録だと下記のようになり。コピーしている部分が全然記録できません。
初心者なものでコードが自分で作れません。
ご存知の方がいらっしゃいましたら教えていただけないでしょうか?
Sub アドレス取得()
' アドレス取得 Macro
Application.DisplayDocumentInformationPanel = True
End Sub
- 移動 Yubo. Zhang 2012年10月1日 9:57 (移動元:Windows 7 ソフトウェア)
2011年3月23日 7:21
すべての返信
-
あおぬー さん、
こんにちは。
フォーラム オペレーターの服部清次です。あおぬー さんがこちらの質問を投稿されてから少し経ちましたが、
Azulean さんの回答はご確認いただけましたでしょうか?今回、Azulean さんの回答が参考になるのではないかと思いましたので、
勝手ながら、私の方で [回答としてマーク] させていただきました。なお、こちらの TechNet フォーラムは IT Pro の方々による情報交換を目的としており、
また Office 関連の専用フォーラムがありません。
VBA 関連のご質問は、弊社が一般ユーザー向けに運営している別の Q&A サイト Answers にある
Office フォーラムの方が情報を得やすいかと思いますので、
次回ご質問の際にはぜひ Answers もご検討ください。
それでは、また。
__________________________________________________
日本マイクロソフト株式会社 フォーラム オペレーター 服部 清次2011年4月4日 4:08 -
服部清次様
ホームページご紹介ありがとうございます。次回からそちらに質問致します。
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