वर्ड वीबीए मैक्रोज़ - टेबल्स: एक्सेल से जोड़ें, चुनें, लूप करें, सम्मिलित करें

Word दस्तावेज़ में तालिका जोड़ें

यह साधारण मैक्रो आपके Word दस्तावेज़ में एक तालिका जोड़ देगा:

सब वेरीसिंपलटेबलएड () डिम ओटेबल टेबल सेट के रूप में ओटेबल = एक्टिव डॉक्यूमेंट।टेबल्स। ऐड (रेंज: = सिलेक्शन। रेंज, न्यूमरो: = 3, न्यूम कॉलम: = 3) एंड सब

Word में तालिका का चयन करें

यह मैक्रो सक्रिय Word दस्तावेज़ में पहली तालिका का चयन करेगा:

Sub SelectTable() 'सक्रिय दस्तावेज़ में पहली तालिका का चयन करता है यदि ActiveDocument.Tables.Count> 0 फिर' त्रुटियों से बचने के लिए हम जांचते हैं कि सक्रिय दस्तावेज़ ActiveDocument.Tables(1) में कोई तालिका मौजूद है या नहीं। अंत का चयन करें यदि उप समाप्त हो

एक तालिका में सभी कक्षों के माध्यम से लूप

यह VBA मैक्रो एक तालिका में सभी कक्षों के माध्यम से लूप करेगा, सेल की संख्या को सेल में लिखेगा:

सब टेबलसाइक्लिंग () 'टेबल में सभी सेल्स के माध्यम से लूप डिम एनकाउंटर अस लॉन्ग' यह सभी टेबल सेल में लिखा जाएगा, टेबल डिम ओटेबल के रूप में डिम ओटेबल सेल एक्टिव डॉक्यूमेंट के रूप में रो डिम ओसेल के रूप में। रेंज। इंसर्टपैराग्राफआफ्टर 'बस नए पैरा को डॉक्टर के अंत में बनाता है। , तालिका यहां बनाई जाएगी सेट oTable = ActiveDocument.Tables.Add(Range:=ActiveDocument.Paragraphs.Last.Range, NumRows:=3, NumColumns:=3) 'तालिका बनाएं और इसे oTable में प्रत्येक oRow के लिए वेरिएबल में असाइन करें। पंक्तियों का बाहरी लूप पंक्तियों के माध्यम से जाता है प्रत्येक ओसेल के लिए oRow में। सेल 'आंतरिक लूप nCounter = nCounter + 1' काउंटर को बढ़ाता है oCell.Range.Text = nCounter 'सेल के लिए काउंटर लिखता है अगला ओसेल अगला ओ' सेल से प्रदर्शित परिणाम दूसरी पंक्ति में दूसरा कॉलम मंद strTemp स्ट्रिंग के रूप में strTemp = oTable.Cell(2, 2).Range.Text MsgBox strTemp End Sub

एक्सेल फाइल से वर्ड टेबल बनाएं

यह वीबीए उदाहरण एक्सेल फ़ाइल से एक टेबल बनायेगा:

उप MakeTablefromExcelFile() 'उन्नत डिम oExcelApp, oExcelWorkbook, oExcelWorksheet, oExcelRange Dim nNumOfRows जितनी लंबी डिम nNumOfCols, स्ट्रिंग डिम ओटेबल के रूप में लंबी डिम strFile के रूप में तालिका के रूप में 'शब्द तालिका मंद या पंक्ति के रूप में पंक्ति' शब्द तालिका मंद oC जब तक, y जितने लंबे 'काउंटर फॉर लूप्स strFile = "c:\Users\Nenad\Desktop\BookSample.xlsx" 'वास्तविक पथ में परिवर्तन oExcelApp = CreateObject("Excel.Application") oExcelApp.Visible = True Set oExcelWorkbook = oExcelApp.Workbooks.Open(strFile) 'कार्यपुस्तिका खोलें और इसे चर सेट करें oExcelWorksheet = oExcelWorkbook.Worksheets(1) 'पहले वर्कशीट को वैरिएबल सेट oExcelRange = oExcelWorksheet.Range("A1:C8") nNumOfRows = oExcelRange.Rows. गणना nNumOfCols = oExcelRange.Columns.ActiveDocument.Range.InsertParagraph के बाद 'बस नए पैरा को दस्तावेज़ के अंत में बनाता है, यहाँ तालिका बनाई जाएगी oTable = ActiveDocument.Tables.Add(Range:=ActiveDocument.Paragraphs.Last.Range, NumRows.Add(Range:=ActiveDocument.Paragraphs.Last.Range, NumRows) सेट करें: =nNumOfRows, NumColumns:=nNumOfCols) 'क्रिएट' ई टेबल और इसे वेरिएबल '*** रियल डील में असाइन करें, टेबल यहां भर जाती है। .Value Next y Next x '*** oExcelWorkbook.Close False oExcelApp.Quit with oTable.Rows(1).Range 'अब हम अपनी टेबल पर कुछ सुंदरता लागू कर सकते हैं :) .Shading.Texture = wdTextureNone .Shading.ForegroundPatternColor = wdColorAutomatic .Shading.BackgroundPatternColor = wdColorYellow End with End Sub