Bugzilla – Attachment 115379 Details for
Bug 91074
FILEOPEN:RTF FILE OPEN ERROR
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
Macro code for converting letters to Turkish
turkish.txt (text/plain), 1.73 KB, created by
Burak Ural
on 2015-05-06 08:42:30 UTC
(
hide
)
Description:
Macro code for converting letters to Turkish
Filename:
MIME Type:
Creator:
Burak Ural
Created:
2015-05-06 08:42:30 UTC
Size:
1.73 KB
patch
obsolete
>Sub Main > oDocument = ThisComponent > If oDocument.SupportsService("com.sun.star.text.TextDocument") Then > Call doc() > > ElseIf oDocument.SupportsService("com.sun.star.sheet.SpreadsheetDocument")Then > Call xls() > End If >End Sub > >Sub DOC > Dim mBritishWords(5) As String > Dim mUSWords(5) As String > Dim n As Long > Dim oDocument As Object > Dim oReplace As Object > mBritishWords() = Array("y", "?", "?", "Y", "?", "?") > mUSWords() = Array("ı", "Ä", "Å", "Ä°", "Ä", "Å") > oDocument = ThisComponent > oReplace = oDocument.createReplaceDescriptor > oReplace.SearchCaseSensitive=True > For n = lbound(mBritishWords()) To ubound(mBritishWords()) > oReplace.Searchstring = mBritishWords(n) > oReplace.ReplaceString = mUSWords(n) > oDocument.replaceAll(oReplace) > Next n > Msgbox "DOC TürkçeleÅti!" >End Sub > >Sub XLS > Dim mBritishWords(5) As String > Dim mUSWords(5) As String > Dim n As Integer > Dim m as Integer > Dim oDocument As Object > Dim oSheets as Object > Dim oReplace As Object > Dim oCurSheet as Object > mBritishWords() = Array("y", "?", "?", "Y", "?", "?") > mUSWords() = Array("ı", "Ä", "Å", "Ä°", "Ä", "Å") > oDocument = ThisComponent > oSheets = oDocument.Sheets > ' The Replacedescriptor has to be created at one sheet > oReplace = oSheets(0).createReplaceDescriptor() > oReplace.SearchCaseSensitive=True > For m = 0 To oSheets.Count-1 > oCurSheet = oSheets(m) > For n = lbound(mBritishWords()) To ubound(mBritishWords()) > oReplace.Searchstring = mBritishWords(n) > oReplace.ReplaceString = mUSWords(n) > oCurSheet.ReplaceAll(oReplace) > Next n > Next m > Msgbox "XLS TürkçeleÅti!" >End Sub
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Raw
Actions:
View
Attachments on
bug 91074
:
115305
|
115307
|
115315
|
115316
|
115377
|
115379
|
115381
|
115382