মাইক্রোসফ্ট অফিস ২০১০ ডকুমেন্টের সমস্ত হাইপারলিংকের একটি তালিকা পাওয়া যাবে এমন কোনও পদ্ধতি আছে কি?
আমি ভাঙা লিঙ্কগুলির জন্য বৃহত সংখ্যক বড় নথি (ওয়ার্ড, এক্সেল এবং পাওয়ারপয়েন্ট ডকুমেন্টের একটি দখল ব্যাগ) যাচাই করার চেষ্টা করছি এবং আমার তালিকা রয়েছে কিনা তা যাচাই করতে বরং প্রতিটি নথির প্রতিটি লাইন পড়তে হবে না সমস্ত লিঙ্ক।
উত্তর:
এমএস ওয়ার্ডের জন্য,
Press Alt + F9 to display the fields
Ctrl + F to open the search box
Search: ^d hyperlink
Check "Highlight all items found ..."
Click on the Find All button
Close the dialog
Ctrl + C to copy everything that is highlighted
Open a new document and paste.
এক্সেলের জন্য,
Close all workbooks except the one you want to find the links in.
On the Edit menu, click Find.
Click Options.
In the Find what box, enter [.
In the Within box, click Workbook.
In the Look In box, click Formulas.
Click Find All.
In the box at the bottom, look in the Formula column for formulas that contain [.
To select the cell with a link, select the row in the box at the bottom.
Links are also commonly used in names, text boxes, or chart titles.
ওয়ার্ড ডকুমেন্টে সমস্ত হাইপারলিঙ্কগুলি তালিকাভুক্ত করতে:
Sub CheckLinks()
Set doc = ActiveDocument
Dim i
For i = 1 To doc.Hyperlinks.Count
Debug.Print doc.Hyperlinks(i).Address & " " & doc.Hyperlinks(i).SubAddress
Next
End Sub
আমি @ ব্যবহারকারী 228546- এর উত্তরটি সত্যিই সহায়ক পেয়েছি কারণ গ্রহণযোগ্য উত্তরের বিকল্পগুলি আমাকে দেখানোর জন্য আমার মাইক্রোসফ্ট ওয়ার্ডের (2013) সংস্করণটি পাইনি। তবে এটি সামান্য সংক্ষিপ্ত, এবং সমস্ত কিছু কাজ করার জন্য এটি ভিজুয়াল বেসিক ফর অ্যাপ্লিকেশনগুলির ( ভিবিএ ) একটি ভাল জ্ঞানের প্রয়োজন ।
এখানে একটি সামান্য পরিবর্তিত উত্তর যা ভিবিএ সম্পর্কে এত কিছু জানেন না এমন কিছু লোককে সহায়তা করতে পারে।
আপনার Alt+ টি ব্যবহার করে ভিবিএ সম্পাদকের কাছে যেতে হবে F11। ->উপরের অংশে "সন্নিবেশ" "মডিউল" ব্যবহার করুন , যা আপনাকে সম্পাদক উইন্ডো দেবে।
আমি আসলে একটি নতুন নথিতে উত্তোলিত হাইপারলিঙ্কগুলি সংরক্ষণ করতে যাচ্ছি, যা আমি সংরক্ষণ করব then
সম্পাদক উইন্ডোতে নিম্নলিখিত লিখুন (বা অনুলিপি / পেস্ট করুন)।
Sub GetLinksInNewDoc()
'
' Finds all hyperlinks (even with strange formats,
' as long as they're active)
' and displays them in a new document.
'
' Declare the types of our variables
Dim doc As Document
Dim newDoc As Document
Dim hlink As Hyperlink
' Use the script on the current document
Set doc = ActiveDocument
' Open a new document to put the link addresses into
Set newDoc = Documents.Add
' Loop through all the hyperlinks using the iterable hlink variable
With doc
For Each hlink In .Hyperlinks
' Switch into the new document
newDoc.Activate
' Put the Hyperlink Address in the new document
With Selection
.InsertAfter hlink.Address & " " & hlink.SubAddress
.InsertAfter vbNewLine
End With
Next hlink
End With
Set doc = Nothing
Set newDoc = Nothing
End Sub
হাইপারলিংক সহ আপনার নথিটি হাইলাইট করা মাইক্রোসফ্ট ওয়ার্ড নথি যা নিশ্চিত করুন। আপনার কোড সংরক্ষণ করুন। হয় চালানোর জন্য সবুজ তীরটিতে ক্লিক করুন, বা উপরের সরঞ্জামদণ্ড থেকে "রান" ->"রান সাব / ইউজারফর্ম" নির্বাচন করুন, বা টিপুনF5
নোট করুন যে আপনি পাঠ্যের একটি "ধূসর ভূত" পেতে পারেন যা শেষ পর্যন্ত নথিতে থাকবে - এর মতো কিছু
এখন, আপনি যদি সত্যিই কোনও TXTফাইলটিতে ইউআরএলগুলি সংরক্ষণ করতে চান , যা আমাকে এই প্রশ্নে পেয়েছে, তবে আপনার কোডটি হওয়া ব্যতীত আপনি একই পদ্ধতি ব্যবহার করতে পারেন
Sub GetLinksInTxtFile()
'
' Finds all hyperlinks (even with strange formats,
' as long as they're active)
' and outputs them to a TXT file.
' The TXT file will be written in the same directory
' as the original document
'
' Declare the types of our variables
Dim doc As Document
Dim hlink As Hyperlink
' Use the script on the current document
Set doc = ActiveDocument
' Get a text file ready to which you will write the URLs
' Some old-school BASIC
Open doc.Path & "\the_urls.txt" For Output As #1
' Loop through all the hyperlinks using the iterable hlink variable
With doc
For Each hlink In .Hyperlinks
Print #1, hlink.Address & " " & hlink.SubAddress
Next hlink
End With
Close #1
Set doc = Nothing
End Sub
আমি আসা করি এটা সাহায্য করবে.
আমার বোঝার জন্য উত্স , নতুন নথিতে অনুলিপি করার রূপরেখা।
একটি পাঠ্য ফাইলে লেখার উত্স (যা আমি মূলত এটি অনুসন্ধান করতে এসেছি)