এক্সেল VBA দিয়ে শব্দে ডেটা টেবিল লোড করা হচ্ছে: দুটি বুকমার্ক এবং পেস্টিংয়ের মধ্যে বিন্যাস নির্বাচন করা হচ্ছে

Question

এক্সেল এবং ওয়ার্ড 2013 এ & amp; জানালা 8:

মূলত, আমি একটি এক্সেল টেমপ্লেট আছে যে আমি একটি শব্দ টেমপ্লেট আপডেট করতে চান। আমার ওয়ার্ডে প্রায় ২0 টি টেবিল আছে, যা প্রফর্ম্যাটেড এবং আমি এক্সেলগুলিতে তাদের সংশ্লিষ্ট কলামগুলি থেকে সেই কলামগুলি আপডেট করতে চাই, কিন্তু VBA এবং শব্দ টেবিলগুলির সাথে কাজ করা খুব কঠিন সময় ছিল।

এক্সেলের একটি পরিসর অনুলিপি করার চেষ্টা করে, দুটি বুকমার্কের মধ্যে নির্বাচন করে শব্দটিতে সংশ্লিষ্ট পরিসীমা নির্বাচন করুন এবং তথ্যটি পেস্ট করুন। আমি একটি রান টাইম ত্রুটি '438' পাই: বস্তু এই সম্পত্তি বা পদ্ধতি সমর্থন করে না

আমি মনে করি এটি সম্ভবত এই কার্যটি সম্পন্ন করার জন্য আদর্শ কৌশল নয়, তাই যদি আপনি কোড সহ আরও ভাল কৌশল প্রস্তাব করতে পারেন তবে আমি এটির জন্য কৃতজ্ঞ থাকব।

Sub PopulateColumninWord()

Dim wdApp As Word.Application
Dim wdDoc As Document

Set wdApp = GetObject(, "Word.Application")
Set wdDoc = wdApp.ActiveDocument

Set rngStart = ActiveDocument.Bookmarks("Start").Range
Set rngEnd = ActiveDocument.Bookmarks("End").Range

ActiveSheet.Range("C2:C19").Select
Selection.Copy

With wdDoc
    .Range(rngStart.Start, rngEnd.End).Select
    .PasteAndFormat
End With

Set wdApp = Nothing
Set wdDoc = Nothing

End Sub

Comments

আপনি এক্সেল বা শব্দ এই কোড চলমান হয়? আপনি ঠিক কি নিশ্চিত না "আমার একটি এক্সেল টেমপ্লেট আছে যা আমি একটি শব্দ টেমপ্লেটে আপডেট করতে চাই" । কলামটি Word এ লিঙ্ক হিসাবে পেস্ট করার চেষ্টা করেছেন তাই যখন কলামটি Excel এ আপডেট করা হয়, তখন এটি Word এ রিফ্রেশ করা যেতে পারে?

— CharlieRB

@ কার্লিআরবি তার কোড এক্সেলে রান। এবং একটি শব্দ উদাহরণ খোলা এবং এক্সেল VBA মধ্যে থেকে রেফারেন্স করা হয়। শব্দ ডক নামকরণ 2 বুকমার্ক আছে start এবং end

— nixda

Answer 1

এই উদাহরণ কোষ অনুলিপি করা হবে A1:A2 এক্সেল থেকে শব্দ

ব্যবহার বুকমার্ক

Sub PopulateColumninWord()

    Dim wdApp  As Object
    Set wdApp = GetObject(, "Word.Application")
    Set wdDoc = wdApp.ActiveDocument

    'Read in position of two bookmarks named START and END
    Set rngStart = wdDoc.Bookmarks("Start").Range
    Set rngEnd = wdDoc.Bookmarks("End").Range

    'Copy range from Excel to Word
    ThisWorkbook.Sheets(1).Range("A1:A2").Copy
    wdDoc.Range(rngStart.End + 1, rngEnd.Start - 1).PasteAndFormat (22)

    Set wdApp = Nothing
    Set wdDoc = Nothing

End Sub

শব্দ টেবিল ব্যবহার করে

Sub PopulateColumninWord()

    Dim wdApp  As Object
    Set wdApp = GetObject(, "Word.Application")
    Set wdDoc = wdApp.ActiveDocument

    'Copy range from Excel to Word
    ThisWorkbook.Sheets(1).Range("A1:A2").Copy
    wdDoc.Range(wdDoc.Tables(1).Cell(1, 1).Range.Start, _
                wdDoc.Tables(1).Cell(2, 1).Range.End).PasteAndFormat (22)

    'Copy single cell from Excel to Word
    ThisWorkbook.Sheets(1).Cells(1, 2).Copy
    wdDoc.Tables(1).Cell(1, 2).Range.PasteAndFormat (22)

    Set wdApp = Nothing
    Set wdDoc = Nothing

End Sub

দরকারী আরও লিঙ্ক

• http://msdn.microsoft.com/en-us/library/office/ff844915(v=office.15).aspx
• http://www.java2s.com/Code/VBA-Excel-Access-Word/Word/SelectingaRangeofCells.htm

Comments

সামান্য সমস্যা। আমি শব্দ একটি preformatted টেবিল ভরাট করার চেষ্টা করছি। এই উদাহরণে, এটি একটি 3 কলামের টেবিল, যা C1 & amp; এর বুকমার্কগুলির সাথে রয়েছে। C18। আমি তৃতীয় কলাম পূরণ করতে চান। এই ম্যাক্রোটি চালানোর সময়, এটি টেবিলে সমস্ত ঘর প্রতিস্থাপন করে। সম্পূর্ণ কলাম আপডেট বুকমার্ক ব্যবহার করার চেয়ে একটি ভাল উপায় আছে?

— Capacete

@Capacete আপনি কি দয়া করে একটি এক্সেল এবং ওয়ার্ড উদাহরণ ফাইল আপলোড করতে পারেন www.ge.tt এবং লিঙ্ক শেয়ার করুন?

— nixda

এখানে লিঙ্কটি রয়েছে: ge.tt/47OhFd62?c

— Capacete

@ কাপাপেটে আমি বুঝতে পারছি না আপনি টেবিল ব্যবহার করছেন। যেহেতু, এটি একটি নির্দিষ্ট লক্ষ্য করা অনেক সহজ কোষ শব্দে. আপনার যা জানা দরকার তা হল সঠিক টেবিল নাম বা সংখ্যা এবং কোন কোষ আছে

— nixda

AAAMMAZING !!!! আমি এটা এত সহজ ছিল জানতাম, আমি আগে টেবিল মধ্যে pasting সঙ্গে কিছু মূঢ় সমস্যা মধ্যে চলমান ছিল। যাইহোক, আপনাকে ধন্যবাদ !!!!!!

— Capacete