PtrSafe 64bit vs 32bit APIs in VBA (Excel, Word, PowerPoint, Outlook) example

PtrSafe

The PtrSafe attribute indicates to the VBA compiler that the Declare statement is targeted for the 64–bit version of Office. Without this attribute, using the Declare statement in a 64–bit system will result in a compile-time error.

Conversion and Types

PtrSafe: Shows that the Declare statement is compatible with 64-bits. This attribute is mandatory on 64-bit systems.
LongPtr: Variable data type which is a 4-bytes data type on 32-bit versions and an 8-byte data type on 64-bit versions of Microsoft Office. This is the recommended way of declaring a pointer or a handle for new code but also for legacy code if it has to run in the 64-bit version of Office. It is only supported in the VBA 7 runtime on 32-bit and 64-bit. Note that you can assign numeric values to it but not numeric types.
LongPtr: An 8-byte data type which is available only in 64-bit versions of Microsoft Office. You can assign numeric values but not numeric types (to avoid truncation).
CLngPtr: Converts a simple expression to a LongPtr data type.
CLngLng: Converts a simple expression to a LongLong data type.
VarPtr: Variant converter. Returns a LongPtr on 64-bit versions, and a Long on 32-bit versions (4 bytes).
ObjPtr: Object converter. Returns a LongPtr on 64-bit versions, and a Long on 32-bit versions (4 bytes).
StrPtr: String converter. Returns a LongPtr on 64-bit versions, and a Long on 32-bit versions (4 bytes).

Declare code example

Private PtrSafe Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private PtrSafe Declare Function GetWindowText Lib "User32" Alias "GetWindowTextA" (ByVal hWnd As LongPtr, ByVal lpString As String, ByVal cch As LongPtr) As Long
Private PtrSafe Declare Function GetWindowTextLength Lib "User32" Alias "GetWindowTextLengthA" (ByVal hWnd As LongPtr) As Long
Private PtrSafe Declare Function GetWindow Lib "User32" (ByVal hWnd As LongPtr, ByVal wCmd As LongPtr) As Long
Private PtrSafe Declare Function IsWindowVisible Lib "User32" (ByVal hWnd As LongPtr) As Boolean

Compatible code example

#if Win64 then
	Private PtrSafe Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
	Private PtrSafe Declare Function GetWindowText Lib "User32" Alias "GetWindowTextA" (ByVal hWnd As LongPtr, ByVal lpString As String, ByVal cch As LongPtr) As Long
	Private PtrSafe Declare Function GetWindowTextLength Lib "User32" Alias "GetWindowTextLengthA" (ByVal hWnd As LongPtr) As Long
	Private PtrSafe Declare Function GetWindow Lib "User32" (ByVal hWnd As LongPtr, ByVal wCmd As LongPtr) As Long
	Private PtrSafe Declare Function IsWindowVisible Lib "User32" (ByVal hWnd As LongPtr) As Boolean
#else
	Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
	Private Declare Function GetWindowText Lib "User32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
	Private Declare Function GetWindowTextLength Lib "User32" Alias "GetWindowTextLengthA" (ByVal hWnd As Long) As Long
	Private Declare Function GetWindow Lib "User32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long
	Private Declare Function IsWindowVisible Lib "User32" (ByVal hWnd As Long) As Boolean
#end if

#if VBA7 then
	Private PtrSafe Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
	Private PtrSafe Declare Function GetWindowText Lib "User32" Alias "GetWindowTextA" (ByVal hWnd As LongPtr, ByVal lpString As String, ByVal cch As LongPtr) As Long
	Private PtrSafe Declare Function GetWindowTextLength Lib "User32" Alias "GetWindowTextLengthA" (ByVal hWnd As LongPtr) As Long
	Private PtrSafe Declare Function GetWindow Lib "User32" (ByVal hWnd As LongPtr, ByVal wCmd As LongPtr) As Long
	Private PtrSafe Declare Function IsWindowVisible Lib "User32" (ByVal hWnd As LongPtr) As Boolean
#else
	Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
	Private Declare Function GetWindowText Lib "User32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
	Private Declare Function GetWindowTextLength Lib "User32" Alias "GetWindowTextLengthA" (ByVal hWnd As Long) As Long
	Private Declare Function GetWindow Lib "User32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long
	Private Declare Function IsWindowVisible Lib "User32" (ByVal hWnd As Long) As Boolean
#end if

Share on Facebook

VBA Basic and Advanced Questions and Answers

Basic Q&A Q. VBA stands for? Ans: Visual Basic for Applications Q. What is VBA? Ans: VBA (Visual Basic for Applications) is a scripting language. It can be used to automate most of the Microsoft Office Applications like Excel, Word, PowerPoint, MS Access, Outlook etc. Q. Types of available modules in VBA VBA contains four […]

Export Generic Collection to PDF ASP.Net Core MVC

PDF Sometime you may in need to export data in PDF. Following code will use Syncfusion Package and give you ready made Table pushed from Generic collection. Put below code in Repository Put below code in Controller JavaScript Code Finally you can attach id to an element in html and in JavaScript on Document ready […]

Export Excel ASP.Net Core MVC

Excel Export Following Example helps you to export excel from database in a generic way using EPPlus library. Requirement EPPlus Nuget Package Code to Repository Supporting Method Code to Controller Code to JavaScript JavaScript Supporting Method You can hit ExportToExcel() call in document ready method in JavaScript document by pointing any id written in HTML […]

Save/Retrieve Session ASP.Net Core MVC

Session Plays a vital role while dealing with caching in your browser. ASP.Net Core offers Session caching fast and reliable way. Here is the practical example. Put following code anywhere in common class or Repository, it has two methods Generic in nature Add/Get. Add Method will allow you to cache object in Browser memory and […]

Number List in Word Document using C# code example

Number List Microsoft Word offers feature by which you can auto number your list in various formats. In this article we will write code to dynamically generate a numbered list in a document using C#. C# Code example Note: You have to add Microsoft Word Interop library as reference to enable Using statement or create […]

Sorting in Microsoft Word using VBA (Visual Basic for Applications)

Sorting Do you know, Microsoft Word has capability to perform sorting over a document. In this article we will write code to sort paragraphs in Alphabetical order using visual basic for applications code. Before code Code example Put above code in a module, Select number of paragraphs that you would like to sort in A-Z […]

EPPlus Open Office Xml Office solution using C#

EPPlus Is an open Office XML solution, highly useful library capable to manipulate Microsoft Excel similar to Introp APIs. Why EPPlus? As per Microsoft the solutions (Excel, Word, PowerPoint, Outlook etc) built for client architecture but what about Servers? Let’s take an example that I have recently faced and EPPlus helped me a lot here. […]

String vs StringBuilder C#.Net with code example

String C# class which offers capability to store any type of string data into a variable. Strings are immutable (non-modifiable) cause performance overhead because each time we modify a string it creates a copy of modified instance into the memory, hence, as a practice string should be avoided for large string operations. Following is the […]

Var vs. Dynamic C# with code example

Var vs. Dynamic C# offers variety with flavors to accomplish the task to the developers. var keyword defines a static nature which gets resolve at compile-time introduced in C# 3.0 where dynamic gets resolved at runtime introduced in C# 4.0. Var is a statically type variable, which means values of these variables gets decoded at […]

Multi-threading in C#.Net with step by step code example

Multi-threading Is a concept to execute multiple tasks or process simultaneously. Basically multi-threading enables paths to your application to execute multiple processes. Multi-threading can be achieved in C# using System.Threading name space which provides complete control over threading. Let’s write example code where we will execute two different methods to print numbers using loop and […]

PtrSafe 64bit vs 32bit APIs in VBA (Excel, Word, PowerPoint, Outlook) example

PtrSafe

Conversion and Types

Declare code example

Compatible code example

Leave a Reply Cancel reply

Sorting in Microsoft Word using VBA (Visual Basic for Applications)

Create a progress bar in Excel using VBA (Visual Basic for Applications)

Get Count of Cells based on Color Excel Add-in using VBA

Auto Reply in Outlook Add-in using VBA code example

Filter Meetings in Outlook Add-in using Visual Basic for Applications

RSS feed

Subscribe to our articles