working with WORD via Excel VBA : Running into Error 462: The remote server machine does

[gvreddyhr]

Hello

Thanks in advance for your kind support

I have been working with WORD via Excel VBA (mailmerge), I have been trying to open a word file programmatically in excel vba and adding/editing contents in it using bookmarks. However, I find that on alternate runs, I get the 'Error 462: The remote server does not exist" error. I researched a lot and understood this has something to do 'Unqualified references;.

However I don't understand how to correct the below snippet of code to qualified references? Can someone please help?

Also is there a positbility that I can protect the generated letter with password from macro, if yes can you guide me on it.


Option Explicit
Sub Generate_Letter()
Application.DisplayAlerts = False
Dim wd As Object
Dim wdocSource As Object
Dim strWorkbookName As String
Dim wdmain, wdtable As String

Dim clausea, clauseb, clausec As String
ActiveWorkbook.save

If Range("PSD_PL").Value = "" Or Range("Cont_TY").Value = "" _
Or Range("S_O_B").Value = "" Or Range("BO_PL").Value = "" Or Range("RL_PL").Value = "" _
Or Range("OF_PL").Value = "" Or Range("NCC_PL").Value = "" Then

MsgBox "Please fill in all the fileds", vbCritical
Exit Sub
End If

On Error Resume Next
Set wd = GetObject(, "Word.Application")
'If wd Is Nothing Then
If wd Is Nothing Then 'Word isn't already running
Set wd = CreateObject("Word.Application")
'Set wd = New Word.Application
End If
On Error GoTo 0
'On Error GoTo aa

wdmain = Range("T_Path").Value 'Actual Template Path
wdtable = "PLC"

Set wdocSource = wd.Documents.Open(wdmain)
strWorkbookName = ThisWorkbook.Path & "\" & ThisWorkbook.Name
wdocSource.MailMerge.MainDocumentType = wdFormLetters
wdocSource.MailMerge.OpenDataSource _
Name:=strWorkbookName, _
AddToRecentFiles:=False, _
Revert:=False, _
Format:=wdOpenFormatAuto, _
Connection:="Data Source=" & strWorkbookName & ";Mode=Read", _
SQLStatement:="SELECT * FROM [" & wdtable & "]"

'conditions if any--------------------


With wdocSource.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True

With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=False
End With

wd.Visible = True
wdocSource.Close savechanges:=False
Set wdocSource = Nothing
Set wd = Nothing


Application.DisplayAlerts = True

MsgBox "Please Save the Word File", vbInformation + vbOKOnly
End Sub

[xlnitwit]

Hi,

It appears your code is late bound but it requires several constants from the Word Object library. I suggest you add the following to the start of the code

Please Login or Register  to view this content.

In order to assign a password I believe you may add

Please Login or Register  to view this content.

after you have closed the merge source document.

[zbor]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

[cytop]

Also posted on Ozgrid

[zbor]

@gvreddyhr :
Your post does not comply with Rule 8 of our Forum RULES. Do not crosspost your question on multiple forums without including links here to the other threads on other forums.

Cross-posting is when you post the same question in other forums on the web. The last thing you want to do is waste people's time working on an issue you have already resolved elsewhere. We prefer that you not cross-post at all, but if you do (and it's unlikely to go unnoticed), you MUST provide a link (copy the url from the address bar in your browser) to the cross-post.

Expect cross-posted questions without a link to be closed and a message will be posted by the moderator explaining why. We are here to help so help us to help you!

Read this to understand why we ask you to do this, and then please edit your first post to include links to any and all cross-posts in any other forums (not just this site).


@cytop :
Thanks for notify. Since you already saw it please put also link so other members can check is it solved already

http://www.ozgrid.com/forum/showthread.php?t=201048