Visual Basic

smutukundu wrote:

You can send the code to

strIPAddress = "192.168.1.141"
strsubnetMask(0) = "255.255.255.0"
strGateway(0) = "192.168.1.1"
strGatewayMetric(0) = 1

For Each objNetAdapter In colNetAdapters
    errEnable = objNetAdapter.EnableStatic(strIPAddress, strsubnetMask)
    errGateways = objNetAdapter.SetGateways(strGateway, strGatewayMetric)
Next

Dim ipAddresses() As String = {"192.168.0.1"}

"Provider=Microsoft.Jet.OleDB.4.0;Data Source=" & Application.StartupPath & "\File.mdb"

Provider=Microsoft.Jet.OleDB.4.0;Data Source={0}

Public Shared Function GetConnectionString() As String
    Dim configString As String = My.Settings.ConnectionString
 
    ' Replace the {0} with the value from StartupPath.
    ' As a side, you can either pass in the filename of the database, or retrieve that
    ' from a setting in the config file also.
    Return String.Format(configString, Path.Combine(Application.StartupPath, "File.mdb"))
End Function

Trupti Mehta wrote:

I am wondering how can I do it - If i save the letter in a doc file, then how to perform the mail merge thing. Usualy mal merge in word has <<firstname>> ... such tags & data is set for those tags & process is done. How can and how sould I perform the activities.

Trupti Mehta wrote:

How do I insert such tags and make that template ready for mail merging?

Trupti Mehta wrote:

I was wondering to just add the field values without tags.

Trupti Mehta wrote:

If user opens a file that has such tags, then, how do I manage it? As I will input field values.

Trupti Mehta wrote:

In case, To insert tags for later use, Word uses << >> in some other char. that these chars.

Trupti Mehta wrote:

If I am not wrong Rich text doesn't support .doc file.

Trupti Mehta wrote:

Can I perform Mail merge in RTF file using Wod with my application.

Dave Kreskowiak wrote:

Trupti Mehta wrote:
Can I perform Mail merge in RTF file using Wod with my application.


Again, I ask you, since you already have Word, why are you re-inventing the wheel?? Why not just do this whole thing in Word and forget coding a solution to a problem that already has a solution??

Trupti Mehta wrote:

Now what and how to do, can you please suggest me!

Dim text As String = "This is some text <<withAtag>> in it!"
Dim data As String = "with a tag replaced"
Dim mergedText As String = text.Replace("<<withAtag>>", data)

<br />
    Private Sub PerformMailMerge()<br />
        Dim wApp As New Word.Application<br />
        Dim wDoc As Word.Document<br />
        Dim wMailMerge As Word.MailMerge<br />
<br />
        wDoc = wApp.Documents.Open(Me.CapFileName)<br />
        wApp.Visible = True<br />
<br />
        wMailMerge = wDoc.MailMerge()<br />
        wMailMerge.CreateDataSource(mDs)<br />
<br />
        Dim i As Integer<br />
        Dim str As String = ""<br />
        Dim addThe As Boolean<br />
<br />
        Dim row As DataRow<br />
        For i = 0 To mDs.Tables(0).Rows().Count() - 1<br />
            MsgBox("Row of " + myDG.Rows(i).Cells(1).ToString())<br />
            If (myDG.Rows(i).Cells("Select").Selected() = True) Then<br />
                row = mDs.Tables(0).Rows(i)<br />
                str = row.Item("name").ToString()<br />
                ' If name is not present, refer to The Propriertor<br />
                If (String.IsNullOrEmpty(str)) Then<br />
                    'Replace("<<Title>>", "The")<br />
                    'Replace("<<ContactName>>", "Propriertor")<br />
                    addThe = True<br />
                Else<br />
                    'Replace("<<Title>>", row.Item("namePrefix").ToString())<br />
                    'Replace("<<ContactName>>", row.Item("name").ToString())<br />
                    addThe = False<br />
                End If<br />
<br />
                'Replace("<<CompanyName>>", row.Item("CompanyName").ToString())<br />
                'Replace("<<Add1>>", row.Item("Add1").ToString())<br />
                'Replace("<<Add2>>", row.Item("Add2").ToString())<br />
                'Replace("<<Add3>>", row.Item("Add3").ToString())<br />
                'Replace("<<City>>", row.Item("City").ToString())<br />
                'Replace("<<County>>", row.Item("County").ToString())<br />
                'Replace("<<Code>>", row.Item("Code").ToString())<br />
<br />
                'Replace("<<Date>>", Date.Today)<br />
                MsgBox("Added The " + addThe + " Or Name to " + row.Item("CompanyName").ToString())<br />
            End If<br />
        Next<br />
<br />
        ' Perform Mail Merge<br />
        wDoc.MailMerge.Destination = Word.WdMailMergeDestination.wdSendToNewDocument<br />
        wDoc.MailMerge.Execute()<br />
<br />
        ' Close the original letter<br />
        'wDoc.Saved = True<br />
        'wDoc.Close()<br />
<br />
        '' Release References<br />
        'wApp = Nothing<br />
        'wDoc = Nothing<br />
        'wMailMerge = Nothing<br />
    End Sub<br />

Dim row As DataRow
For i = 0 To mDs.Tables(0).Rows().Count() - 1
    MsgBox("Row of " + myDG.Rows(i).Cells(1).ToString())
    If (myDG.Rows(i).Cells("Select").Selected() = True) Then
    ...

mDs.Tables(0).Rows(i)

<br />
row = mDs.Tables(0).Rows(i)<br />
.....<br />
'Replace("<<Title>>", row.Item("namePrefix").ToString())<br />

Trupti Mehta wrote:

I mentioned clearly, that letters will be used later to perform mail merge.As you had advised to put any sort of tag in rtb, so i inserted <<companyname>> type of tag. My Q.

Trupti Mehta wrote:

from start is this only, how will I change this text to perform mail merge.

Trupti Mehta wrote:

I had always heard from you, that Mail Merge part is very simple and easy, but how it was in my case, I never got an idea for that.

Trupti Mehta wrote:

Code checks for Selected records from the datagrid which displays all records of the dataset. So, even after dataset, records are filtered by selected (Checkbox) or not.

Trupti Mehta wrote:

4. Do Mail Merge on selected letter to selected custoemrs ?????

Database:
    FirstName    LastName    Address
     Joe          Schmo      123 Anywhere
 
Document:
    Hi <<FirstName>>!  You're at <<Address>>!

Dim documentText As String = RTB1.RTF.Replace(tag, fieldData)