注册表-安装路径-VBA

yuyvtul

    作一个程序，主要内容是Word模板和图片文件夹\TP\，在模板中有类似代码：
Private Sub Image01_Click()
    Options.PictureWrapType = wdWrapMergeTight
    Options.DefaultFilePath(Path:=wdPicturesPath) = "C:\HX\TP\1\"
    Dialogs(wdDialogInsertPicture).Show
End Sub

Sub 1()
    ActiveDocument.Shapes.AddPicture(Anchor:=Selection.Range, FileName:= _
    "C:\HX\TP\2\01.PNG", LinkToFile:=False, SaveWithDocument:=True). _
        WrapFormat.Type = wdWrapTight
    Options.PictureWrapType = wdWrapMergeTight
End Sub
    其中C:\HX\是程序安装的默认文件夹，用户可以自定，文件夹\TP\在安装文件夹的下面。
    安装文件夹的名称在注册表中有记录，例如：
    ①[HKEY_CURRENT_USER\Software\HX]；PATH为C:\HX\HX.EXE；
    ②[HKEY_LOCAL_MACHINE\SOFTWARE\HX]；PATH=C:\HX\HX.EXE"。
    其中“C:\HX\”是可变的(即用户自定的)。
    怎样修改以上代码，能从注册表中读出安装文件夹的路径，并在上面的代码中“赋值”，使代码能自动适应用户选择的路径？最好不用安装后修改的办法。

[此贴子已经被作者于2006-7-1 11:18:34编辑过]

yuyvtul

各位大侠：有没有办法解决这个问题啊？
不好意思，自己顶一下。

yuyvtul

Konggs兄、鑫11兄帮助，已经解决。谢谢