à¨¨à¨¾à¨² à¨à©±à¨ à¨ªà©°à¨¨à¨¾ à¨¬à¨°à©à¨ à¨ªà¨¾à¨ wdDoc.Characters.Last.InsertBreak Type:=wdPageBreak.

à¨¦à© à¨µà¨°à¨¤à©à¨ à¨à¨°à¨à© à¨à©±à¨ à¨¸à¨¾à¨°à¨£à© à¨¸à¨¼à¨¾à¨®à¨² à¨à¨°à© wdDoc.Tables.Add(Range:=wdDoc.Range, NumRows:=2, NumColumns:=lCol).

à¨¨à¨¾à¨² à¨ªà¨¹à¨¿à¨²à© à¨à¨¤à¨¾à¨° à¨¨à©à©° à¨¸à¨¿à¨°à¨²à©à¨ à¨¦à© à¨¤à©à¨° 'à¨¤à© à¨¸à©à©±à¨ à¨à¨°à© .Rows(1).HeadingFormat = True à¨à¨¤à© à¨à¨¸ à¨¨à©à©° à¨µà¨°à¨¤ à¨à© à¨¬à©à¨²à¨¡ à¨¬à¨£à¨¾à¨ .Rows(1).Range.Font.Bold = True.

à¨¨à¨¾à¨² à¨¦à¨¿à©±à¨ à¨¸à©à¨ à¨à¨°à© wdApp.Visible = True.

à¨¨à¨¾à¨² à¨à©±à¨ à¨¨à¨µà©à¨ à¨à¨¤à¨¾à¨° à¨à©à©à© If (r - startRow + 2) > .Rows.Count Then .Rows.Add.

à¨¨à¨¾à¨² à¨à©±à¨ à¨¨à¨µà¨¾à¨ à¨¦à¨¸à¨¤à¨¾à¨µà©à¨à¨¼ à¨¬à¨£à¨¾à¨ Set wdDoc = .Documents.Add.

VBA ਦੇ ਨਾਲ ਇੱਕ ਸਿੰਗਲ ਵਰਡ

Hugo Bertrand

ਸ਼ੁੱਕਰਵਾਰ, 19 ਜੁਲਾਈ 2024 7:12:31 ਬਾ.ਦੁ.

ਵਰਡ ਵਿੱਚ ਐਕਸਲ ਡੇਟਾ ਨੂੰ ਕੁਸ਼ਲਤਾ ਨਾਲ ਮਿਲਾਉਣਾ

ਵੱਖ-ਵੱਖ ਪਲੇਟਫਾਰਮਾਂ ਵਿੱਚ ਡੇਟਾ ਦਾ ਪ੍ਰਬੰਧਨ ਕਰਨਾ ਇੱਕ ਮੁਸ਼ਕਲ ਕੰਮ ਹੋ ਸਕਦਾ ਹੈ, ਖਾਸ ਕਰਕੇ ਜਦੋਂ ਤੁਹਾਨੂੰ ਇੱਕ ਵਰਡ ਦਸਤਾਵੇਜ਼ ਵਿੱਚ ਐਕਸਲ ਤੋਂ ਕਈ ਟੇਬਲਾਂ ਨੂੰ ਕੰਪਾਇਲ ਕਰਨ ਦੀ ਲੋੜ ਹੁੰਦੀ ਹੈ। VBA ਦੀ ਵਰਤੋਂ ਕਰਦੇ ਹੋਏ, ਤੁਸੀਂ ਇਸ ਪ੍ਰਕਿਰਿਆ ਨੂੰ ਸਵੈਚਲਿਤ ਕਰ ਸਕਦੇ ਹੋ, ਲੋੜੀਂਦੇ ਫਾਰਮੈਟ ਅਤੇ ਢਾਂਚੇ ਨੂੰ ਕਾਇਮ ਰੱਖਦੇ ਹੋਏ ਡੇਟਾ ਦੇ ਸਹਿਜ ਟ੍ਰਾਂਸਫਰ ਨੂੰ ਯਕੀਨੀ ਬਣਾ ਸਕਦੇ ਹੋ।

ਇਹ ਲੇਖ ਇੱਕ VBA ਮੈਕਰੋ ਦੀ ਪੜਚੋਲ ਕਰਦਾ ਹੈ ਜੋ ਵਰਤਮਾਨ ਵਿੱਚ ਐਕਸਲ ਟੇਬਲ ਤੋਂ ਤਿੰਨ ਵੱਖਰੇ ਵਰਡ ਦਸਤਾਵੇਜ਼ ਬਣਾਉਂਦਾ ਹੈ। ਅਸੀਂ ਸਪਸ਼ਟਤਾ ਅਤੇ ਸੰਗਠਨ ਲਈ ਹਰੇਕ ਟੇਬਲ ਦੇ ਬਾਅਦ ਪੇਜ ਬ੍ਰੇਕ ਦੇ ਨਾਲ, ਇੱਕ ਸਿੰਗਲ ਵਰਡ ਡੌਕੂਮੈਂਟ ਵਿੱਚ ਸਾਰੀਆਂ ਟੇਬਲ ਬਣਾਉਣ ਲਈ ਕੋਡ ਨੂੰ ਕਿਵੇਂ ਸੰਸ਼ੋਧਿਤ ਕਰਨਾ ਹੈ ਇਸਦਾ ਪ੍ਰਦਰਸ਼ਨ ਕਰਾਂਗੇ।

ਹੁਕਮ	ਵਰਣਨ
Set wdApp = New Word.Application	ਵਰਡ ਐਪਲੀਕੇਸ਼ਨ ਦੀ ਇੱਕ ਨਵੀਂ ਉਦਾਹਰਣ ਸ਼ੁਰੂ ਕਰਦਾ ਹੈ।
wdDoc.Characters.Last.InsertBreak Type:=wdPageBreak	ਦਸਤਾਵੇਜ਼ ਦੇ ਅੰਤ ਵਿੱਚ ਇੱਕ ਪੰਨਾ ਬਰੇਕ ਸ਼ਾਮਲ ਕਰਦਾ ਹੈ।
.Rows(1).HeadingFormat = True	ਦੱਸਦਾ ਹੈ ਕਿ ਸਾਰਣੀ ਦੀ ਪਹਿਲੀ ਕਤਾਰ ਇੱਕ ਸਿਰਲੇਖ ਕਤਾਰ ਹੈ।
.Tables.Add(Range:=wdDoc.Range, NumRows:=2, NumColumns:=lCol)	ਖਾਸ ਕਤਾਰਾਂ ਅਤੇ ਕਾਲਮਾਂ ਦੇ ਨਾਲ Word ਦਸਤਾਵੇਜ਼ ਵਿੱਚ ਇੱਕ ਨਵੀਂ ਸਾਰਣੀ ਜੋੜਦਾ ਹੈ।
With wdTbl.Borders	ਟੇਬਲ ਦੇ ਅੰਦਰ ਅਤੇ ਬਾਹਰ ਲਾਈਨਾਂ ਲਈ ਬਾਰਡਰ ਸ਼ੈਲੀ ਸੈੱਟ ਕਰਦਾ ਹੈ।
wdApp.Visible = True	ਵਰਡ ਐਪਲੀਕੇਸ਼ਨ ਨੂੰ ਉਪਭੋਗਤਾ ਲਈ ਦ੍ਰਿਸ਼ਮਾਨ ਬਣਾਉਂਦਾ ਹੈ।
If (r - startRow + 2) >If (r - startRow + 2) > .Rows.Count Then .Rows.Add	ਜੇਕਰ ਮੌਜੂਦਾ ਕਤਾਰ ਮੌਜੂਦਾ ਕਤਾਰ ਗਿਣਤੀ ਤੋਂ ਵੱਧ ਜਾਂਦੀ ਹੈ ਤਾਂ ਸਾਰਣੀ ਵਿੱਚ ਇੱਕ ਨਵੀਂ ਕਤਾਰ ਜੋੜਦਾ ਹੈ।
Set wdDoc = .Documents.Add	ਵਰਡ ਐਪਲੀਕੇਸ਼ਨ ਵਿੱਚ ਇੱਕ ਨਵਾਂ ਦਸਤਾਵੇਜ਼ ਬਣਾਉਂਦਾ ਹੈ।

ਟੇਬਲਾਂ ਨੂੰ ਜੋੜਨ ਲਈ VBA ਮੈਕਰੋ ਨੂੰ ਸਮਝਣਾ

ਪ੍ਰਦਾਨ ਕੀਤੀਆਂ ਗਈਆਂ ਸਕ੍ਰਿਪਟਾਂ ਦਿਖਾਉਂਦੀਆਂ ਹਨ ਕਿ VBA ਦੀ ਵਰਤੋਂ ਕਰਦੇ ਹੋਏ ਇੱਕ ਤੋਂ ਵੱਧ ਐਕਸਲ ਟੇਬਲਾਂ ਤੋਂ ਡੇਟਾ ਨੂੰ ਇੱਕ ਸਿੰਗਲ ਵਰਡ ਦਸਤਾਵੇਜ਼ ਵਿੱਚ ਟ੍ਰਾਂਸਫਰ ਕਰਨ ਦੀ ਪ੍ਰਕਿਰਿਆ ਨੂੰ ਕਿਵੇਂ ਸਵੈਚਲਿਤ ਕਰਨਾ ਹੈ। ਮੁੱਖ ਸਕ੍ਰਿਪਟ, Sub ConsolidateTablesInOneDocument(), ਨਾਲ ਵਰਡ ਐਪਲੀਕੇਸ਼ਨ ਦੀ ਇੱਕ ਨਵੀਂ ਉਦਾਹਰਣ ਸ਼ੁਰੂ ਕਰਦਾ ਹੈ Set wdApp = New Word.Application ਅਤੇ ਵਰਤ ਕੇ ਇੱਕ ਨਵਾਂ ਦਸਤਾਵੇਜ਼ ਬਣਾਉਂਦਾ ਹੈ Set wdDoc = .Documents.Add. ਇਹ ਐਕਸਲ ਵਿੱਚ ਉਹਨਾਂ ਕਤਾਰਾਂ ਦੀ ਪਛਾਣ ਕਰਦਾ ਹੈ ਜਿੱਥੇ ਟੇਬਲ ਖਾਲੀ ਸੈੱਲਾਂ ਦੀ ਜਾਂਚ ਕਰਕੇ ਖਤਮ ਹੁੰਦੇ ਹਨ ਅਤੇ ਇਹਨਾਂ ਸਥਿਤੀਆਂ ਨੂੰ ਵੇਰੀਏਬਲ ਵਿੱਚ ਸਟੋਰ ਕਰਦੇ ਹਨ First ਅਤੇ Second. ਇਹ ਸਕ੍ਰਿਪਟ ਨੂੰ ਇਹ ਜਾਣਨ ਦੀ ਆਗਿਆ ਦਿੰਦਾ ਹੈ ਕਿ ਹਰੇਕ ਸਾਰਣੀ ਕਿੱਥੇ ਖਤਮ ਹੁੰਦੀ ਹੈ ਅਤੇ ਸ਼ੁਰੂ ਹੁੰਦੀ ਹੈ। ਮੈਕਰੋ ਫਿਰ ਵਰਡ ਦੀ ਵਰਤੋਂ ਕਰਕੇ ਟੇਬਲ ਬਣਾਉਂਦਾ ਹੈ .Tables.Add(Range:=wdDoc.Range, NumRows:=2, NumColumns:=lCol) ਅਤੇ ਇਹਨਾਂ ਟੇਬਲਾਂ ਨੂੰ ਐਕਸਲ ਦੇ ਡੇਟਾ ਨਾਲ ਤਿਆਰ ਕਰਦਾ ਹੈ।

ਇਹ ਸੁਨਿਸ਼ਚਿਤ ਕਰਨ ਲਈ ਕਿ ਹਰੇਕ ਸਾਰਣੀ ਨੂੰ ਸਪਸ਼ਟ ਤੌਰ 'ਤੇ ਵੱਖ ਕੀਤਾ ਗਿਆ ਹੈ, ਸਕ੍ਰਿਪਟ ਹਰੇਕ ਸਾਰਣੀ ਦੀ ਵਰਤੋਂ ਕਰਨ ਤੋਂ ਬਾਅਦ ਇੱਕ ਪੰਨਾ ਬਰੇਕ ਸ਼ਾਮਲ ਕਰਦੀ ਹੈ wdDoc.Characters.Last.InsertBreak Type:=wdPageBreak. ਦ CreateTable ਹਰ ਟੇਬਲ ਨੂੰ ਬਣਾਉਣ ਅਤੇ ਫਾਰਮੈਟ ਕਰਨ ਲਈ ਸਬਰੂਟੀਨ ਨੂੰ ਤਿੰਨ ਵਾਰ ਬੁਲਾਇਆ ਜਾਂਦਾ ਹੈ। ਇਹ ਸਬਰੂਟੀਨ ਸਿਰਲੇਖਾਂ ਨੂੰ ਪਰਿਭਾਸ਼ਿਤ ਕਰਦਾ ਹੈ, ਕਤਾਰਾਂ ਅਤੇ ਕਾਲਮਾਂ ਨੂੰ ਤਿਆਰ ਕਰਦਾ ਹੈ, ਅਤੇ ਟੇਬਲਾਂ 'ਤੇ ਬਾਰਡਰ ਸਟਾਈਲ ਲਾਗੂ ਕਰਦਾ ਹੈ .Rows(1).Range.Font.Bold = True ਅਤੇ With wdTbl.Borders. ਅੰਤ ਵਿੱਚ, ਮੈਕਰੋ ਵਰਡ ਐਪਲੀਕੇਸ਼ਨ ਦੀ ਦਿੱਖ ਨੂੰ ਸਹੀ ਨਾਲ ਸੈੱਟ ਕਰਦਾ ਹੈ wdApp.Visible = True, ਇਹ ਯਕੀਨੀ ਬਣਾਉਣਾ ਕਿ ਉਪਭੋਗਤਾ ਤਿਆਰ ਕੀਤੇ ਦਸਤਾਵੇਜ਼ ਨੂੰ ਦੇਖ ਸਕਦਾ ਹੈ। ਇਹ ਪਹੁੰਚ ਸਪਸ਼ਟਤਾ ਅਤੇ ਫਾਰਮੈਟ ਨੂੰ ਕਾਇਮ ਰੱਖਦੇ ਹੋਏ, ਐਕਸਲ ਤੋਂ ਕਈ ਟੇਬਲਾਂ ਨੂੰ ਇੱਕ ਸਿੰਗਲ ਵਰਡ ਡੌਕੂਮੈਂਟ ਵਿੱਚ ਪ੍ਰਭਾਵਸ਼ਾਲੀ ਢੰਗ ਨਾਲ ਜੋੜਦੀ ਹੈ।

ਇੱਕ ਸ਼ਬਦ ਦਸਤਾਵੇਜ਼ ਵਿੱਚ ਮਲਟੀਪਲ ਐਕਸਲ ਟੇਬਲਾਂ ਨੂੰ ਇਕੱਠਾ ਕਰਨਾ

ਇਹ ਸਕ੍ਰਿਪਟ ਦਰਸਾਉਂਦੀ ਹੈ ਕਿ ਐਕਸਲ ਵਿੱਚ VBA ਦੀ ਵਰਤੋਂ ਇੱਕ ਸਿੰਗਲ ਵਰਡ ਦਸਤਾਵੇਜ਼ ਵਿੱਚ ਕਈ ਟੇਬਲਾਂ ਨੂੰ ਜੋੜਨ ਲਈ ਕਿਵੇਂ ਕੀਤੀ ਜਾਂਦੀ ਹੈ, ਹਰੇਕ ਟੇਬਲ ਦੇ ਬਾਅਦ ਪੰਨਾ ਬਰੇਕਾਂ ਨਾਲ ਪੂਰਾ ਹੁੰਦਾ ਹੈ।

Sub ConsolidateTablesInOneDocument()
    Dim wdApp As New Word.Application
    Dim wdDoc As Word.Document
    Dim wdTbl As Word.Table
    Dim xlSht As Worksheet
    Dim lRow As Integer, lCol As Integer
    Dim r As Integer, c As Integer
    Dim Blanks As Integer, First As Integer, Second As Integer
    lRow = Sheets("Feedback Sheets").Range("A1000").End(xlUp).Row - 2
    Blanks = 0
    i = 1
    Do While i <= lRow
        Set rRng = Worksheets("Feedback Sheets").Range("A" & i)
        If IsEmpty(rRng.Value) Then
            Blanks = Blanks + 1
            If Blanks = 1 Then First = i
            If Blanks = 2 Then Second = i
        End If
        i = i + 1
    Loop
    Set xlSht = ActiveSheet: lCol = 5
    With wdApp
        .Visible = True
        Set wdDoc = .Documents.Add
        Call CreateTable(wdDoc, xlSht, 1, First, lCol)
        wdDoc.Characters.Last.InsertBreak Type:=wdPageBreak
        Call CreateTable(wdDoc, xlSht, First + 1, Second, lCol)
        wdDoc.Characters.Last.InsertBreak Type:=wdPageBreak
        Call CreateTable(wdDoc, xlSht, Second + 1, lRow, lCol)
    End With
End Sub
Sub CreateTable(wdDoc As Word.Document, xlSht As Worksheet, startRow As Integer, endRow As Integer, lCol As Integer)
    Dim wdTbl As Word.Table
    Dim r As Integer, c As Integer
    Set wdTbl = wdDoc.Tables.Add(Range:=wdDoc.Range, NumRows:=2, NumColumns:=lCol)
    With wdTbl
        .Rows(1).Range.Font.Bold = True
        .Rows(1).HeadingFormat = True
        .Cell(1, 1).Range.Text = "Header 1"
        If lCol > 1 Then .Cell(1, 2).Range.Text = "Header 2"
        If lCol > 2 Then .Cell(1, 3).Range.Text = "Header 3"
        For r = startRow To endRow
            If (r - startRow + 2) > .Rows.Count Then .Rows.Add
            For c = 1 To lCol
                .Cell(r - startRow + 2, c).Range.Text = xlSht.Cells(r, c).Text
            Next c
        Next r
    End With
    With wdTbl.Borders
        .InsideLineStyle = wdLineStyleSingle
        .OutsideLineStyle = wdLineStyleDouble
    End With
End Sub

VBA ਨਾਲ ਵਰਡ ਵਿੱਚ ਐਕਸਲ ਡੇਟਾ ਨੂੰ ਮਿਲਾਉਣਾ

ਇਹ ਸਕ੍ਰਿਪਟ ਇੱਕ ਐਕਸਲ ਸ਼ੀਟ ਤੋਂ ਟੇਬਲਾਂ ਨੂੰ ਇੱਕ ਸਿੰਗਲ ਵਰਡ ਦਸਤਾਵੇਜ਼ ਵਿੱਚ ਮਿਲਾਉਣ ਲਈ VBA ਨੂੰ ਨਿਯੁਕਤ ਕਰਦੀ ਹੈ, ਸਹੀ ਫਾਰਮੈਟਿੰਗ ਅਤੇ ਪੇਜ ਬ੍ਰੇਕ ਨੂੰ ਯਕੀਨੀ ਬਣਾਉਂਦਾ ਹੈ।

Sub MergeTablesIntoWord()
    Dim wdApp As New Word.Application
    Dim wdDoc As Word.Document
    Dim wdTbl As Word.Table
    Dim xlSht As Worksheet
    Dim lRow As Integer, lCol As Integer
    Dim r As Integer, c As Integer
    Dim Blanks As Integer, First As Integer, Second As Integer
    lRow = Sheets("Feedback Sheets").Range("A1000").End(xlUp).Row - 2
    Blanks = 0
    i = 1
    Do While i <= lRow
        Set rRng = Worksheets("Feedback Sheets").Range("A" & i)
        If IsEmpty(rRng.Value) Then
            Blanks = Blanks + 1
            If Blanks = 1 Then First = i
            If Blanks = 2 Then Second = i
        End If
        i = i + 1
    Loop
    Set xlSht = ActiveSheet: lCol = 5
    With wdApp
        .Visible = True
        Set wdDoc = .Documents.Add
        Set wdTbl = wdDoc.Tables.Add(Range:=wdDoc.Range, NumRows:=2, NumColumns:=lCol)
        PopulateTable wdTbl, xlSht, 1, First, lCol
        wdDoc.Characters.Last.InsertBreak Type:=wdPageBreak
        Set wdTbl = wdDoc.Tables.Add(Range:=wdDoc.Range, NumRows:=2, NumColumns:=lCol)
        PopulateTable wdTbl, xlSht, First + 1, Second, lCol
        wdDoc.Characters.Last.InsertBreak Type:=wdPageBreak
        Set wdTbl = wdDoc.Tables.Add(Range:=wdDoc.Range, NumRows:=2, NumColumns:=lCol)
        PopulateTable wdTbl, xlSht, Second + 1, lRow, lCol
    End With
End Sub
Sub PopulateTable(wdTbl As Word.Table, xlSht As Worksheet, startRow As Integer, endRow As Integer, lCol As Integer)
    Dim r As Integer, c As Integer
    With wdTbl
        .Rows(1).Range.Font.Bold = True
        .Rows(1).HeadingFormat = True
        .Cell(1, 1).Range.Text = "Header 1"
        If lCol > 1 Then .Cell(1, 2).Range.Text = "Header 2"
        If lCol > 2 Then .Cell(1, 3).Range.Text = "Header 3"
        For r = startRow To endRow
            If (r - startRow + 2) > .Rows.Count Then .Rows.Add
            For c = 1 To lCol
                .Cell(r - startRow + 2, c).Range.Text = xlSht.Cells(r, c).Text
            Next c
        Next r
    End With
    With wdTbl.Borders
        .InsideLineStyle = wdLineStyleSingle
        .OutsideLineStyle = wdLineStyleDouble
    End With
End Sub

VBA ਨਾਲ ਵਰਡ ਵਿੱਚ ਟੇਬਲ ਬਣਾਉਣਾ ਅਤੇ ਫਾਰਮੈਟ ਕਰਨਾ

VBA ਦੀ ਵਰਤੋਂ ਕਰਦੇ ਹੋਏ Excel ਤੋਂ Word ਵਿੱਚ ਡੇਟਾ ਦੇ ਟ੍ਰਾਂਸਫਰ ਨੂੰ ਸਵੈਚਲਿਤ ਕਰਦੇ ਸਮੇਂ, ਇਹ ਸਮਝਣਾ ਮਹੱਤਵਪੂਰਨ ਹੁੰਦਾ ਹੈ ਕਿ ਟੇਬਲਾਂ ਨੂੰ ਪ੍ਰਭਾਵਸ਼ਾਲੀ ਢੰਗ ਨਾਲ ਕਿਵੇਂ ਪ੍ਰਬੰਧਿਤ ਅਤੇ ਫਾਰਮੈਟ ਕਰਨਾ ਹੈ। ਇੱਕ ਮੁੱਖ ਪਹਿਲੂ ਇਹ ਯਕੀਨੀ ਬਣਾ ਰਿਹਾ ਹੈ ਕਿ ਡੇਟਾ ਨੂੰ ਸਹੀ ਢੰਗ ਨਾਲ ਟ੍ਰਾਂਸਫਰ ਕੀਤਾ ਗਿਆ ਹੈ, ਢਾਂਚਾ ਅਤੇ ਪੜ੍ਹਨਯੋਗਤਾ ਦੋਵਾਂ ਨੂੰ ਕਾਇਮ ਰੱਖਦੇ ਹੋਏ. ਇਸ ਲਈ VBA ਕਮਾਂਡਾਂ ਨੂੰ ਸਮਝਣ ਦੀ ਲੋੜ ਹੁੰਦੀ ਹੈ ਜੋ ਸਾਰਣੀ ਬਣਾਉਣ, ਫਾਰਮੈਟਿੰਗ, ਅਤੇ ਪੇਜ ਬਰੇਕਾਂ ਨੂੰ ਸ਼ਾਮਲ ਕਰਨ ਨੂੰ ਨਿਯੰਤਰਿਤ ਕਰਦੇ ਹਨ। ਉਦਾਹਰਨ ਲਈ, ਹੁਕਮ Set wdTbl = wdDoc.Tables.Add(Range:=wdDoc.Range, NumRows:=2, NumColumns:=lCol) ਵਰਡ ਦਸਤਾਵੇਜ਼ ਵਿੱਚ ਇੱਕ ਨਵੀਂ ਸਾਰਣੀ ਜੋੜਨ ਲਈ ਵਰਤਿਆ ਜਾਂਦਾ ਹੈ, ਐਕਸਲ ਡੇਟਾ ਦੇ ਅਧਾਰ ਤੇ ਕਤਾਰਾਂ ਅਤੇ ਕਾਲਮਾਂ ਦੀ ਸੰਖਿਆ ਨੂੰ ਨਿਸ਼ਚਿਤ ਕਰਦੇ ਹੋਏ।

ਇੱਕ ਹੋਰ ਮਹੱਤਵਪੂਰਨ ਤੱਤ ਸਾਰਣੀ ਨੂੰ ਫਾਰਮੈਟ ਕਰਨਾ ਹੈ. ਕਮਾਂਡਾਂ ਜਿਵੇਂ ਕਿ .Rows(1).Range.Font.Bold = True ਪਹਿਲੀ ਕਤਾਰ ਨੂੰ ਬੋਲਡ ਬਣਾਓ, ਸਿਰਲੇਖਾਂ ਨੂੰ ਦਰਸਾਉਂਦੇ ਹੋਏ, ਜਦਕਿ wdTbl.Borders ਟੇਬਲ ਦੀਆਂ ਅੰਦਰਲੀਆਂ ਅਤੇ ਬਾਹਰਲੀਆਂ ਲਾਈਨਾਂ ਲਈ ਬਾਰਡਰ ਸਟਾਈਲ ਸੈੱਟ ਕਰਨ ਲਈ ਵਰਤਿਆ ਜਾਂਦਾ ਹੈ। ਇਸ ਤੋਂ ਇਲਾਵਾ, ਇਹ ਯਕੀਨੀ ਬਣਾਉਣ ਲਈ ਪੇਜ ਬ੍ਰੇਕ ਸ਼ਾਮਲ ਕਰਨਾ ਜ਼ਰੂਰੀ ਹੈ ਕਿ ਹਰੇਕ ਸਾਰਣੀ ਇੱਕ ਵੱਖਰੇ ਪੰਨੇ 'ਤੇ ਦਿਖਾਈ ਦਿੰਦੀ ਹੈ, ਜੋ ਕਿ ਵਰਤ ਕੇ ਕੀਤਾ ਜਾਂਦਾ ਹੈ wdDoc.Characters.Last.InsertBreak Type:=wdPageBreak. ਇਹ ਕਮਾਂਡਾਂ ਸਮੂਹਿਕ ਤੌਰ 'ਤੇ ਇਹ ਸੁਨਿਸ਼ਚਿਤ ਕਰਦੀਆਂ ਹਨ ਕਿ ਅੰਤਿਮ ਦਸਤਾਵੇਜ਼ ਚੰਗੀ ਤਰ੍ਹਾਂ ਸੰਗਠਿਤ ਅਤੇ ਪੇਸ਼ੇਵਰ ਤੌਰ 'ਤੇ ਫਾਰਮੈਟ ਕੀਤਾ ਗਿਆ ਹੈ।

Word ਅਤੇ Excel ਲਈ VBA Macros ਬਾਰੇ ਅਕਸਰ ਪੁੱਛੇ ਜਾਂਦੇ ਸਵਾਲ

ਮੈਂ VBA ਦੀ ਵਰਤੋਂ ਕਰਕੇ ਇੱਕ ਨਵਾਂ ਵਰਡ ਐਪਲੀਕੇਸ਼ਨ ਕਿਵੇਂ ਸ਼ੁਰੂ ਕਰਾਂ?
ਵਰਤੋ Set wdApp = New Word.Application ਵਰਡ ਐਪਲੀਕੇਸ਼ਨ ਦੀ ਇੱਕ ਨਵੀਂ ਉਦਾਹਰਣ ਸ਼ੁਰੂ ਕਰਨ ਲਈ।
ਮੈਂ VBA ਦੀ ਵਰਤੋਂ ਕਰਦੇ ਹੋਏ ਇੱਕ ਵਰਡ ਦਸਤਾਵੇਜ਼ ਵਿੱਚ ਪੇਜ ਬ੍ਰੇਕ ਕਿਵੇਂ ਸ਼ਾਮਲ ਕਰ ਸਕਦਾ ਹਾਂ?
ਨਾਲ ਇੱਕ ਪੰਨਾ ਬਰੇਕ ਪਾਓ wdDoc.Characters.Last.InsertBreak Type:=wdPageBreak.
ਮੈਂ VBA ਦੀ ਵਰਤੋਂ ਕਰਦੇ ਹੋਏ ਇੱਕ ਵਰਡ ਦਸਤਾਵੇਜ਼ ਵਿੱਚ ਇੱਕ ਟੇਬਲ ਕਿਵੇਂ ਜੋੜ ਸਕਦਾ ਹਾਂ?
ਦੀ ਵਰਤੋਂ ਕਰਕੇ ਇੱਕ ਸਾਰਣੀ ਸ਼ਾਮਲ ਕਰੋ wdDoc.Tables.Add(Range:=wdDoc.Range, NumRows:=2, NumColumns:=lCol).
ਮੈਂ ਟੇਬਲ ਦੀ ਪਹਿਲੀ ਕਤਾਰ ਨੂੰ ਸਿਰਲੇਖ ਦੇ ਰੂਪ ਵਿੱਚ ਕਿਵੇਂ ਫਾਰਮੈਟ ਕਰ ਸਕਦਾ ਹਾਂ?
ਨਾਲ ਪਹਿਲੀ ਕਤਾਰ ਨੂੰ ਸਿਰਲੇਖ ਦੇ ਤੌਰ 'ਤੇ ਸੈੱਟ ਕਰੋ .Rows(1).HeadingFormat = True ਅਤੇ ਇਸ ਨੂੰ ਵਰਤ ਕੇ ਬੋਲਡ ਬਣਾਓ .Rows(1).Range.Font.Bold = True.
ਮੈਂ VBA ਦੀ ਵਰਤੋਂ ਕਰਦੇ ਹੋਏ ਵਰਡ ਵਿੱਚ ਇੱਕ ਟੇਬਲ ਲਈ ਬਾਰਡਰ ਕਿਵੇਂ ਸੈਟ ਕਰਾਂ?
ਨਾਲ ਬਾਰਡਰ ਸੈੱਟ ਕਰੋ wdTbl.Borders, ਅੰਦਰ ਅਤੇ ਬਾਹਰ ਦੀਆਂ ਲਾਈਨਾਂ ਲਈ ਸਟਾਈਲ ਨਿਰਧਾਰਤ ਕਰਨਾ।
ਮੈਂ ਵਰਡ ਐਪਲੀਕੇਸ਼ਨ ਨੂੰ VBA ਵਿੱਚ ਉਪਭੋਗਤਾ ਨੂੰ ਕਿਵੇਂ ਦਿਸ ਸਕਦਾ ਹਾਂ?
ਨਾਲ ਦਿੱਖ ਸੈਟ ਕਰੋ wdApp.Visible = True.
ਜੇਕਰ ਮੌਜੂਦਾ ਕਤਾਰ ਮੌਜੂਦਾ ਕਤਾਰ ਗਿਣਤੀ ਤੋਂ ਵੱਧ ਜਾਂਦੀ ਹੈ ਤਾਂ ਸਾਰਣੀ ਵਿੱਚ ਨਵੀਂ ਕਤਾਰ ਜੋੜਨ ਲਈ ਕਿਹੜੀ ਕਮਾਂਡ ਵਰਤੀ ਜਾਂਦੀ ਹੈ?
ਨਾਲ ਇੱਕ ਨਵੀਂ ਕਤਾਰ ਜੋੜੋ If (r - startRow + 2) > .Rows.Count Then .Rows.Add.
ਮੈਂ VBA ਦੀ ਵਰਤੋਂ ਕਰਕੇ Word ਵਿੱਚ ਇੱਕ ਨਵਾਂ ਦਸਤਾਵੇਜ਼ ਕਿਵੇਂ ਬਣਾਵਾਂ?
ਨਾਲ ਇੱਕ ਨਵਾਂ ਦਸਤਾਵੇਜ਼ ਬਣਾਓ Set wdDoc = .Documents.Add.

ਅੰਤਿਮ ਵਿਚਾਰ

VBA ਦੀ ਵਰਤੋਂ ਕਰਦੇ ਹੋਏ ਇੱਕ ਸਿੰਗਲ ਵਰਡ ਦਸਤਾਵੇਜ਼ ਵਿੱਚ ਮਲਟੀਪਲ ਐਕਸਲ ਟੇਬਲਾਂ ਨੂੰ ਜੋੜਨਾ ਡੇਟਾ ਟ੍ਰਾਂਸਫਰ ਅਤੇ ਫਾਰਮੈਟਿੰਗ ਦੀ ਪ੍ਰਕਿਰਿਆ ਨੂੰ ਸੁਚਾਰੂ ਬਣਾਉਂਦਾ ਹੈ। ਸਾਰਣੀ ਬਣਾਉਣ, ਫਾਰਮੈਟਿੰਗ, ਅਤੇ ਪੇਜ ਬ੍ਰੇਕ ਨੂੰ ਸਵੈਚਲਿਤ ਕਰਕੇ, ਮੈਕਰੋ ਇਹ ਯਕੀਨੀ ਬਣਾਉਂਦਾ ਹੈ ਕਿ ਅੰਤਿਮ ਦਸਤਾਵੇਜ਼ ਚੰਗੀ ਤਰ੍ਹਾਂ ਸੰਗਠਿਤ ਅਤੇ ਪੇਸ਼ੇਵਰ ਤੌਰ 'ਤੇ ਪੇਸ਼ ਕੀਤਾ ਗਿਆ ਹੈ। ਇਹ ਪਹੁੰਚ ਸਮੇਂ ਦੀ ਬਚਤ ਕਰਦੀ ਹੈ ਅਤੇ ਗਲਤੀਆਂ ਦੇ ਜੋਖਮ ਨੂੰ ਘਟਾਉਂਦੀ ਹੈ, ਇਸ ਨੂੰ ਵੱਖ-ਵੱਖ ਪਲੇਟਫਾਰਮਾਂ ਵਿੱਚ ਡੇਟਾ ਦੇ ਪ੍ਰਬੰਧਨ ਅਤੇ ਪੇਸ਼ ਕਰਨ ਲਈ ਇੱਕ ਕੁਸ਼ਲ ਹੱਲ ਬਣਾਉਂਦੀ ਹੈ।

VBA ਦੇ ਨਾਲ ਇੱਕ ਸਿੰਗਲ ਵਰਡ ਡੌਕੂਮੈਂਟ ਵਿੱਚ ਮਲਟੀਪਲ ਐਕਸਲ ਟੇਬਲ ਨੂੰ ਜੋੜਨਾ