OpenOffice এ স্বয়ংক্রিয় লিঙ্ক তৈরি করা হচ্ছে

ওপেন অফিসের জন্য কোন ম্যাক্রো আছে যা নির্দিষ্ট শব্দগুলিকে স্বয়ংক্রিয়ভাবে হাইপারলিঙ্কগুলি দিয়ে প্রতিস্থাপিত করতে সক্ষম করে?

প্রতিবার আমি যখন OpenOffice এ "google" শব্দটি টাইপ করি, আমি শব্দটি হাইপারলিঙ্ক হতে চাই http://www.google.com/

— Anderson Green
সূত্র

AFAIK আপনি ওওওকে হাইপারলিঙ্কের মাধ্যমে একটি শব্দটি অবিলম্বে প্রতিস্থাপন করতে দিচ্ছেন না (একটি ম্যাক্রো লেখার ব্যতীত), তবে আপনি অটো রিপ্লেস এবং URL স্বীকৃতি মিশ্রিত করে এটি অর্জন করতে পারেন:

আপনি একটি অটো রিপ্লেস নিয়ম প্রতিস্থাপন করতে পারে " GoogleWWW " দ্বারা " http://www.google.com "(টেক্সট হিসাবে);
দ্বিতীয় ধাপে, মেনু নির্বাচন করুন Format - & gt; দ্বারা AutoCorrect... - & gt; দ্বারা Apply OOo একটি হাইপারলিঙ্ক দ্বারা লিঙ্ক টেক্সট প্রতিস্থাপন করতে।

আমি প্রস্তাব করেছি " GoogleWWW "টেক্সটটি প্রতিস্থাপন করার জন্য, কারণ আপনি যদি কেবল" গুগল "ব্যবহার করেন, প্রতিস্থাপন করা হবে দ্বিতীয় সময় যখন হাইপারলিঙ্ক তৈরি হয়, এর ফলে একটি লিঙ্ক পাঠ্য দেখতে পারা যায় www.http://www.google.com.com।

সম্পাদনা করুন:

হাইপারলিঙ্ক দ্বারা ইচ্ছাকৃতভাবে নির্বাচিত পাঠ্যকে প্রতিস্থাপন করার জন্য এখানে একটি সহজ ম্যাক্রোর উত্স (যত্নের সাথে ব্যবহার করুন, এটি কেবল "ধারণাটির প্রমাণ" - উদাহরণস্বরূপ, নির্বাচিত পাঠ্যটিতে স্পেস রয়েছে কিনা তা পরীক্ষা করে না, ফলে ফলস্বরূপ লিঙ্কটি নির্দেশ করতে পারে একটি অবৈধ url):

sub ReplaceByHyperlink
    rem ----------------------------------------------------------------------
    rem define variables
    dim document   as object
    dim dispatcher as object
    dim oSelection, oRange as object
    dim strSelectedWord as String
    rem ----------------------------------------------------------------------
    rem get access to the document and grab first selection
    oSelection = ThisComponent.CurrentController.Selection
    oRange = oSelection(0)
    rem ----------------------------------------------------------------------
    rem rudimentary input check (selection available, text selected?)
    If Not (HasUnoInterfaces(oRange, "com.sun.star.text.XTextRange")) Then
        MsgBox "no text available"
        exit sub
    End if
    strSelectedWord = oRange.getString
    If Len(strSelectedWord) < 1 Then
        MsgBox "No Text selected"
        exit sub
    End if
    rem ----------------------------------------------------------------------
    rem ok, there's some text selected, let's transform it...
    document   = ThisComponent.CurrentController.Frame
    dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
    dim args1(4) as new com.sun.star.beans.PropertyValue
    args1(0).Name = "Hyperlink.Text"
    args1(0).Value = strSelectedWord
    args1(1).Name = "Hyperlink.URL"
    args1(1).Value = "http://www." + LCase(strSelectedWord) + ".com/"
    args1(2).Name = "Hyperlink.Target"
    args1(2).Value = ""
    args1(3).Name = "Hyperlink.Name"
    args1(3).Value = strSelectedWord
    args1(4).Name = "Hyperlink.Type"
    args1(4).Value = 1
    dispatcher.executeDispatch(document, ".uno:SetHyperlink", "", 0, args1())
end sub

আপনি ব্যবহার করে একটি কীবোর্ড শর্টকাট এই ম্যাক্রো বরাদ্দ করতে পারেন Tools - & gt; দ্বারা Customize - & gt; দ্বারা Keyboard, যাও শিফ্ট + + জন্য CTRL + + জি , উদাহরণ স্বরূপ. এই, উপায়, আপনি একটি সংজ্ঞায়িত করতে হবে না AutoCorrect নিয়ম.

— tohuwawohu
সূত্র

আমি এমন একটি ম্যাক্রো ব্যবহার করতে চাই যা এই ফাংশনটি সম্পাদন করতে পারে, যদি এমন ম্যাক্রো ইতিমধ্যে বিদ্যমান থাকে।

— Anderson Green

@AndersonGreen: আমি একটি ম্যাক্রো জন্য কিছু কোড যোগ করেছি।

— tohuwawohu

কোনও ফাংশন তৈরি করা কি সম্ভব যা কোনও পাঠ্যকে কোনও লিঙ্কে পরিবর্তন করবে? (আই। ই, সেটলিঙ্ক (গুগল, google.com ))

— Anderson Green

@AndersonGreen: অবশ্যই যে সম্ভব। আমি আমার উত্তরটি সংশোধন করেছি তাই ম্যাক্রো নির্বাচিত টেক্সটটিকে www তে পরিবর্তন করে। [নির্বাচন] .com হাইপারলিঙ্ক। তবে এটি আরো কিছু কাজ করতে হবে, যেহেতু হাইপারলিঙ্ক লক্ষ্যের অংশ হিসাবে এটি কোনও পাঠ্য গ্রহণ করে (উদাঃ স্পেসগুলি ইত্যাদি)। আপনি নির্বাচিত টেক্সট একটি বৈধ হোস্ট নাম কিনা চেক করতে পারেন।

— tohuwawohu