Your question, your audience. Choose who sees your identity—and your question—with question security.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
From novice to tech pro — start learning today.
On Error Resume Next
Set oWord = GetObject("", "Word.Application")
If Err.Number <> 0 Then
MsgBox "error getting word"
Exit Sub
End If
Then retreive or set the prop's like this:
Sub SetSummaryInfo ()
Dim dp As Object
Dim sTitle As String
If oWord.Documents.Count > 0 Then
Set dp = oWord.Dialogs(wdDialogFile
' Retrieve value of "Title" into a variable.
sTitle = dp.Title
' Set "Title" to a new value.
dp.Title = "My Title"
' Set the value without showing the dialog.
dp.Execute
' Save the changes
oWord.ActiveDocument.Save
End If
End Sub
Set oWord = Nothing
D'Mzzl!
RoverM