Getting Compile Error: User-defined type not defined when working to make an old 32-bit template into a Word 2012 64-bit template

Question

我有一个照片模板，可以从文件中抓取照片并将它们放在 word 文档中各自的框中。该文件曾经是一个 Word 2003 32 位文件，在我们的旧计算机中只能运行。

我已将文件转换为 64 位以便在我们的新计算机中使用，并将其另存为启用了字宏的模板。这消除了我遇到的一堆问题，但最后一点是......起初它显示 检测到不明确的名称 但在它关闭并重新启动后它开始显示 Compile错误：未定义用户定义类型 突出显示下面代码的第一行，经过大量研究后我找不到解决方案。请帮忙，我真的需要这个宏才能工作

Public Declare PtrSafe Function SHBrowseForFolder Lib "shell32.dll" (ByRef lpbi As BROWSEINFO) As Long*

Public Declare PtrSafe Function SHGetPathFromIDList Lib "shell32.dll" (ByVal pidList As Long, ByVal lpBuffer As String) As Long

'corrected
Public Declare PtrSafe Function SHGetSpecialFolderLocation Lib "shell32.dll" _
(ByVal hwndOwner As Long, ByVal nFolder As Long, ByRef pidl As Long) As Long



Private Type PROCESS_INFORMATION
hProcess As Long
hThread As Long
dwProcessID As Long
dwThreadId As Long
End Type


Private Declare PtrSafe Function WaitForSingleObject Lib "kernel32" (ByVal _
hHandle As Long, ByVal dwMilliseconds As Long) As Long

Private Declare PtrSafe Function CreateProcessA Lib "kernel32" (ByVal _
lpApplicationName As Long, ByVal lpCommandLine As String, ByVal _
lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, _
ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, _
ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As Long, _
lpStartupInfo As STARTUPINFO, lpProcessInformation As _
PROCESS_INFORMATION) As Long

Private Declare PtrSafe Function CloseHandle Lib "kernel32" (ByVal _
hObject As Long) As Long


Private Type FILETIME ' 8 Bytes
dwLowDateTime As Long
dwHighDateTime As Long
End Type

Answer 1

您似乎缺少 BROWSEINFO 的 Type 枚举，例如，请参见此处：

http://www.jkp-ads.com/Articles/apideclarations.asp

#If VBA7 Then
    Private Type BROWSEINFO
        hOwner As LongPtr
        pidlRoot As LongPtr
        pszDisplayName As String
        lpszTitle As String
        ulFlags As Long
        lpfn As LongPtr
        lParam As LongPtr
        iImage As Long
    End Type

    Private Declare PtrSafe Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" _
        (lpBrowseInfo As BROWSEINFO) As LongPtr
#Else
    Private Type BROWSEINFO
        hOwner As Long
        pidlRoot As Long
        pszDisplayName As String
        lpszTitle As String
        ulFlags As Long
        lpfn As Long
        lParam As Long
        iImage As Long
    End Type

    Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" _
        (lpBrowseInfo As BROWSEINFO) As Long
#End If
Private Const BIF_RETURNONLYFSDIRS = &H1

Getting Compile Error: User-defined type not defined when working to make an old 32-bit template into a Word 2012 64-bit template

Getting Compile Error: User-defined type not defined when working to make an old 32-bit template into a Word 2012 64-bit template

vba

templates

compiler-errors

32bit-64bit

ms-word