Bagaimana cara memasukkan nomor referensi non-Inggris di Office 2010?

2

Saya menggunakan Word 2010 (Professional Plus) pada mesin Win 7. Saya mengetik dokumen dalam bahasa Tibet, dan saya ingin nomor referensi (catatan kaki dan catatan akhir) juga dalam bahasa Tibet, tetapi tidak, mereka hanya dalam karakter bahasa Inggris (Arab). Saya memiliki masalah yang sama dengan nomor halaman, yang akan lebih baik jika ti bisa diperbaiki, tetapi nomor referensi adalah masalah yang lebih mendesak.

Saya menggunakan font unicode Tibet, dan sistem input pihak ketiga. Saya telah menginstal Tibet sebagai bahasa tambahan di Office dan saya juga menginstalnya sebagai bahasa dan keyboard di Windows, tetapi saya TIDAK menggunakan keyboard Windows Tibet. Namun, saya telah mencoba memasukkan referensi saat menggunakan keyboard Tibet Win7 dan masih memasukkan karakter Arab.

Bahasa default saya untuk komputer serta Office adalah Bahasa Inggris AS.

Saya tidak dapat menemukan bantuan online sama sekali, kebanyakan pertanyaan tentang karakter non-Inggris di Office tidak memiliki balasan. Bantuan apa pun akan dihargai. Terima kasih.

Gyalten
sumber
1
Yang terbaik yang dapat saya capai di sini adalah menggunakan opsi "tanda kustom" untuk menyisipkan setiap tanda secara manual. yaitu, saya tidak berpikir ada cara untuk mendapatkan penomoran catatan kaki otomatis, kecuali jika Anda memiliki font yang memiliki mesin terbang digit Tibet di kedua Unicode codepoints 0x30 - 0x39 (dan saya berasumsi bahwa digit Tibet bekerja dengan cara yang sama seperti "Digit Barat") atau seperangkat codepoint lain yang didukung Word. Anda dapat mencoba menentukan digit di panel kontrol Windows, dan perilaku digit di Opsi Word, tetapi AFAICS tidak ada kombinasi melakukan apa yang Anda inginkan. & apa yang terjadi ketika Anda mengirim dokumen?
Terima kasih. Saya memang menemukan satu font lama warisan Tibet (non-Unicode) yang menetapkan mesin terbang Tibet ke titik kode Unicode mesin terbang barat, yang berfungsi ... tetapi itu berarti setiap notasi harus diedit dengan tangan (dua kali, sekali di tubuh dan sekali dalam catatan). Kesulitannya adalah font lawas adalah ukuran yang aneh, sehingga font perlu diubah, ukurannya berubah, dan kemudian posisi garis menaikkan beberapa poin. Menjadi membosankan ketika catatan kaki berlari ke dalam tiga digit ... Kebosanan yang sama saat menggunakan opsi tanda kustom. Terima kasih atas sarannya. Saya berharap untuk cara yang lebih mudah ...
Gyalten
Saya juga berharap cara yang lebih mudah. Sayangnya, bahkan cara menampilkan set karakter nasional berarti bahwa kecuali jika Anda menggunakan titik kode mesin terbang yang benar-benar Anda butuhkan, sulit untuk menjamin bahwa pembaca dokumen Anda dengan pengaturan Windows dan Word yang berbeda akan melihat dokumen Anda sebagaimana dimaksud. (I dimaksudkan untuk mengejanya dalam komentar saya sebelumnya tetapi kehabisan sapce, dan waktu)

Jawaban:

0

Pendekatan lain adalah menggunakan VBA untuk mengganti semua referensi catatan kaki dengan urutan referensi menggunakan mesin terbang Tibet. Saya pikir yang berikut ini akan melakukan ini untuk catatan kaki, dengan asumsi bahwa Anda ingin setiap catatan kaki diberi nomor dengan cara ini, dan penomorannya terus menerus melalui seluruh dokumen. Tetapi jika Anda ingin melihat penomoran yang benar setiap saat, Anda harus menjalankan makro ini setiap kali Anda memasukkan, menghapus, atau membuat ulang catatan kaki.

Sub replaceFootnoteRefsbyTibetanSequence()
Dim fsource As Word.Footnote
Dim ftarget As Word.Footnote
Dim lng As Long
Dim rsource As Word.Range
Dim rtarget As Word.Range
With ActiveDocument
  For lng = 1 To .Footnotes.Count
    Set rtarget = .Footnotes(lng).Reference.Duplicate
    rtarget.Collapse Direction:=wdCollapseEnd
    Set ftarget = rtarget.Footnotes.Add(rtarget, strTibetan(lng))
    rtarget.Style = ActiveDocument.Styles(Word.WdBuiltinStyle.wdStyleFootnoteReference).NameLocal
    ftarget.Range.FormattedText = .Footnotes(lng).Range.FormattedText
    .Footnotes(lng).Delete
    Set ftarget = Nothing
    Set rtarget = Nothing
  Next
End With

End Sub

Function strTibetan(theNumber As Long) As String
Dim i As Integer
Dim s As String
s = ""
For i = 1 To Len(CStr(theNumber))
  s = s & ChrW(AscW(Mid(CStr(theNumber), i, 1)) - AscW("0") + &HF20)
Next
strTibetan = s
End Function

Sesuatu yang serupa pasti akan mungkin dengan catatan akhir. Hal-hal mungkin lebih sulit jika ada penomoran per halaman atau per bagian.


sumber
Terima kasih, bibadia, saya akan mencobanya. Pengetahuan VBA saya cukup buruk sehingga menulis ini sendiri membutuhkan lebih banyak waktu daripada mengubahnya dengan tangan, jadi terima kasih!
Gyalten
Hanya pembaruan - saya menyadari bahwa dari 215 catatan kaki, tersebar di antara 21 bagian, jumlahnya tidak terus menerus. Jadi itu berarti VBA tidak akan berfungsi. Namun, saya menemukan cara cepat dan mudah untuk mewujudkannya. Saya baru saja menemukan dan mengganti, dengan ^ f di bidang temukan dan ^ & di bidang ganti. Saya menentukan ukuran font untuk temuan yang memungkinkan saya untuk membedakan antara catatan kaki di tubuh dan catatan kaki yang sebenarnya di bagian bawah setiap halaman, dan kemudian saya menyesuaikan ukuran font dan font sesuai kebutuhan ... jadi saya bisa mengganti semuanya dengan hanya beberapa klik, kurang dari satu menit.
Gyalten