满文拉丁转写转换传统满文的宏代码（适用word2007），方便...

水做的绳子

With Selection.Find
        .Forward = False
        .Text = "k'"
        .Replacement.Text = ChrW(&H183A)
        .Execute Replace:=wdReplaceAll
    End With
   
       With Selection.Find
        .Forward = False
        .Text = "g'"
        .Replacement.Text = ChrW(&H186C)
        .Execute Replace:=wdReplaceAll
    End With
   
       With Selection.Find
        .Forward = False
        .Text = "h'"
        .Replacement.Text = ChrW(&H186D)
        .Execute Replace:=wdReplaceAll
    End With
   
    With Selection.Find
        .Forward = False
        .Text = "tsi"
        .Replacement.Text = ChrW(&H186E) + ChrW(&H185F)
        .Execute Replace:=wdReplaceAll
    End With
   
     With Selection.Find
        .Forward = False
        .Text = "ts'i"
        .Replacement.Text = ChrW(&H186E) + ChrW(&H185F)
        .Execute Replace:=wdReplaceAll
    End With
   
    With Selection.Find
        .Forward = False
        .Text = "ts'y"
        .Replacement.Text = ChrW(&H186E) + ChrW(&H185F)
        .Execute Replace:=wdReplaceAll
    End With
   
    With Selection.Find
        .Forward = False
        .Text = "ts'"
        .Replacement.Text = ChrW(&H186E)
        .Execute Replace:=wdReplaceAll
    End With
   
   
    With Selection.Find
        .Forward = False
        .Text = "dz"
        .Replacement.Text = ChrW(&H186F)
        .Execute Replace:=wdReplaceAll
    End With
   
    With Selection.Find
        .Forward = False
        .Text = "z"
        .Replacement.Text = ChrW(&H1870)
        .Execute Replace:=wdReplaceAll
    End With
   
     With Selection.Find
        .Forward = False
        .Text = ChrW(&H17E)
        .Replacement.Text = ChrW(&H1870)
        .Execute Replace:=wdReplaceAll
    End With
   
   
   
    With Selection.Find
        .Forward = False
        .Text = "sy"
        .Replacement.Text = ChrW(&H1830) + ChrW(&H185F)
        .Execute Replace:=wdReplaceAll
    End With
   
     With Selection.Find
        .Forward = False
        .Text = "c'y"
        .Replacement.Text = ChrW(&H1871) + ChrW(&H1873)
        .Execute Replace:=wdReplaceAll
    End With
   
    With Selection.Find
        .Forward = False
        .Text = "cy"
        .Replacement.Text = ChrW(&H1871) + ChrW(&H1873)
        .Execute Replace:=wdReplaceAll
    End With
   
    With Selection.Find
        .Forward = False
        .Text = "jy"
        .Replacement.Text = ChrW(&H1877) + ChrW(&H1873)
        .Execute Replace:=wdReplaceAll
    End With
    With Selection.Find
        .Forward = False
        .Text = "ng"
        .Replacement.Text = ChrW(&H1829)
        .Execute Replace:=wdReplaceAll
    End With
    With Selection.Find
        .Forward = False
        .Text = "a"
        .Replacement.Text = ChrW(&H1820)
        .Execute Replace:=wdReplaceAll
    End With
   
     With Selection.Find
        .Forward = False
        .Text = "b"
        .Replacement.Text = ChrW(&H182A)
        .Execute Replace:=wdReplaceAll
    End With
With Selection.Find
        .Forward = False
        .Text = "c"
        .Replacement.Text = ChrW(&H1834)
        .Execute Replace:=wdReplaceAll
    End With
With Selection.Find
        .Forward = False
        .Text = "d"
        .Replacement.Text = ChrW(&H1869)
        .Execute Replace:=wdReplaceAll
    End With
    With Selection.Find
        .Forward = False
        .Text = "e"
        .Replacement.Text = ChrW(&H185D)
        .Execute Replace:=wdReplaceAll
    End With
    With Selection.Find
        .Forward = False
        .Text = "f"
        .Replacement.Text = ChrW(&H1876)
        .Execute Replace:=wdReplaceAll
    End With
   
    With Selection.Find
        .Forward = False
        .Text = "g"
        .Replacement.Text = ChrW(&H1864)
        .Execute Replace:=wdReplaceAll
    End With
    With Selection.Find
        .Forward = False
        .Text = "h"
        .Replacement.Text = ChrW(&H1865)
        .Execute Replace:=wdReplaceAll
    End With
   
    With Selection.Find
        .Forward = False
        .Text = " i "
        .Replacement.Text = " " & ChrW(8205) & ChrW(6259) & " "
        .Execute Replace:=wdReplaceAll
    End With
   
    With Selection.Find
        .Forward = False
        .Text = "i"
        .Replacement.Text = ChrW(&H1873)
        .Execute Replace:=wdReplaceAll
    End With
   
    With Selection.Find
        .Forward = False
        .Text = "j"
        .Replacement.Text = ChrW(&H1835)
        .Execute Replace:=wdReplaceAll
    End With
   
    With Selection.Find
        .Forward = False
        .Text = "k"
        .Replacement.Text = ChrW(&H1874)
        .Execute Replace:=wdReplaceAll
    End With
   
    With Selection.Find
        .Forward = False
        .Text = "l"
        .Replacement.Text = ChrW(&H182F)
        .Execute Replace:=wdReplaceAll
    End With
   
    With Selection.Find
        .Forward = False
        .Text = "m"
        .Replacement.Text = ChrW(&H182E)
        .Execute Replace:=wdReplaceAll
    End With
   
    With Selection.Find
        .Forward = False
        .Text = "n"
        .Replacement.Text = ChrW(&H1828)
        .Execute Replace:=wdReplaceAll
    End With
   
    With Selection.Find
        .Forward = False
        .Text = "o"
        .Replacement.Text = ChrW(&H1823)
        .Execute Replace:=wdReplaceAll
    End With
   
    With Selection.Find
        .Forward = False
        .Text = "p"
        .Replacement.Text = ChrW(&H1866)
        .Execute Replace:=wdReplaceAll
    End With
   
   
    With Selection.Find
        .Forward = False
        .Text = "r"
        .Replacement.Text = ChrW(&H1875)
        .Execute Replace:=wdReplaceAll
    End With
   
    With Selection.Find
        .Forward = False
        .Text = "s"
        .Replacement.Text = ChrW(&H1830)
        .Execute Replace:=wdReplaceAll
    End With
   
    With Selection.Find
        .Forward = False
        .Text = "t"
        .Replacement.Text = ChrW(&H1868)
        .Execute Replace:=wdReplaceAll
    End With
   
    With Selection.Find
        .Forward = False
        .Text = "u"
        .Replacement.Text = ChrW(&H1860)
        .Execute Replace:=wdReplaceAll
    End With
   
    With Selection.Find
        .Forward = False
        .Text = "v"
        .Replacement.Text = ChrW(&H1861)
        .Execute Replace:=wdReplaceAll
    End With
   
    With Selection.Find
        .Forward = False
        .Text = ChrW(&H16B)
        .Replacement.Text = ChrW(&H1861)
        .Execute Replace:=wdReplaceAll
    End With
   
    With Selection.Find
        .Forward = False
        .Text = "w"
        .Replacement.Text = ChrW(&H1838)
        .Execute Replace:=wdReplaceAll
    End With
   
    With Selection.Find
        .Forward = False
        .Text = "x"
        .Replacement.Text = ChrW(&H1867)
        .Execute Replace:=wdReplaceAll
    End With
   
    With Selection.Find
        .Forward = False
        .Text = ChrW(&H161)
        .Replacement.Text = ChrW(&H1867)
        .Execute Replace:=wdReplaceAll
    End With
   
   
    With Selection.Find
        .Forward = False
        .Text = "y"
        .Replacement.Text = ChrW(&H1836)
        .Execute Replace:=wdReplaceAll
    End With
   
       With Selection.Find
        .Forward = False
        .Text = ","
        .Replacement.Text = ChrW(&H1808)
        .Execute Replace:=wdReplaceAll
    End With
   
     With Selection.Find
        .Forward = False
        .Text = "."
        .Replacement.Text = ChrW(&H1809)
        .Execute Replace:=wdReplaceAll
    End With

问春无语

回复 水做的绳子 的帖子

绳子，你这么写会有人明白吗？

我去找找老帖子放上吧

sears

拉丁满文用的是穆林德夫满文转写法（ 注意不是金标用的拉丁转写方法）。根据的是穆林德夫1892年< A Manchu Grammar with Analysed Texts> 一书的转写法，请注意下表的说明,以免出现错误。
a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,r,s,t,u,w,y 各教材都一样
š (s上对勾，输入š或者x都可以)
ū (第六元音,输入ū 或者v都可以）
借词字母k' (注意是是半角字符，也就是英文标点，在搜狗拼音里要选英文标点）
g'; (同上)
h' (同上)
ts' (同上)
ts(只和i拼写,注意是ts不是ts'，不少教材都有印刷错误.为了和各教材兼容,tsi也可以输入为 ts'i, ts'y)
ž (z上一个对勾，输入ž 和z都可以）
sy (表示的是一个音节"思",不是字母)
c'y (注意应该是c'y不是cy，不少教材都有印刷错误，注意是是半角字符,表示的是一个音节"吃",为了和各个教材兼容,输入c'y或者cy都可以)
jy(表示的是一个音节"之")
标点符号    , (逗号,要选英文标点)   . (句号,要选英文标点)


广略贝勒 2009/9/16 19:53

详细步骤
1、创建 宏 。打开word2007，“视图”-查看宏，输入宏名（任意设，下设为“满文”），然后点“创建”，如图~

2、复制楼上sears提供的代码，粘贴到新创建的 宏 中，然后保存。如图~

3、回到word文档，打出想要转化的转写（以 manju i abka为例），选中，如图~

4、选中转写之后，再选择任意一个daicing字体，如图~

5、选择字体以后，按 Alt+F8，出现步骤1的截图内容，这时候点击“运行”，就可以转换成满文了~附图~


问春无语 2009/4/9 12:27

转换的速度因计算机的状况各异，我转换一篇90页的文章大概2-3分钟左右。

sears

回复 sears 的帖子

附件中分别是：

1.拉丁转写到锡伯文的自动转换宏代码 （适用于word2007)


2.拉丁转写到传统满文的自动转换宏代码 （适用于excel)
Excel和word比较起来,有以下几个优点.
1 Excel2003 就能正确显示圈点满文,而word2003不成,得word2007才能正确显示.
2 Excel下可以自由调整字的旋转角度,可以把每个词都立起来.做成好看的词典形式.
3 Excel里可以在每个单词旁边一列插入一个随机数(公式列表里有),然后让随机数排序,这样就实现了单词的随机排列,方便背单词用.

使用方法和word里面一样,工具-宏-录制一个新宏,然后编辑这个宏,把附件里的文本拷到这个宏里面,保存.
选定要转换的满文拉丁转写部分,运行宏就可以了.

问春无语

这是以前满洲天空的旧帖子，但是非常有价值，故在此重发。

诸申巴图鲁

技术帝V5

wsmon

可以用自定义的命令，把这个宏设置到Word 2007的工具栏上；选定转换内容后，即可最直观地一键完成转换。

贴上一张截图吧——

天佑海东青

找不到dacing字体啊，似乎那个站上只有输入法。开启蒙古文支持后，撰写出来的单词是断开的，还有杏黄的底色

问春无语

回复 天佑海东青 的帖子

如果你是刚刚到daicing的网站下载的，那么字体是打包在输入法里的。如果是以前下载的要再自己复制字体。

另外，你要确定自己使用的是word2007。其他版本的是会出现断字现象。

orinjakun

大爱无私啊

535160991

各种顶啊~~~给力

ilariuju

各位满洲的达人们，你们辛苦了！你们是满洲文化复兴的功臣。

ilariuju

回复 sears 的帖子

怎么把附件里的文本拷到这个宏里面呀？谢谢

sears

ilariuju 发表于 2012-2-3 20:17
回复 sears 的帖子

怎么把附件里的文本拷到这个宏里面呀？谢谢

就是直接把文本内容复制粘贴

lnbxzhao

回复 水做的绳子 的帖子

改2003下的更多

千江月

回复 sears 的帖子

非常感谢！！

追梦无悔

我先表示很迷茫。。。看不太懂。。。。

问春无语

追梦无悔 发表于 2012-4-15 23:15
我先表示很迷茫。。。看不太懂。。。。

就是在word2007中把上面那段程序录制到宏里，就可以从拉丁转写转换成满文。速度很快，准确率也高。只要转写是正确的，满文就不会有错。

追梦无悔

问春无语 发表于 2012-6-19 18:23
就是在word2007中把上面那段程序录制到宏里，就可以从拉丁转写转换成满文。速度很快，准确率也高。只要转 ...

先谢谢了。。改天试一下。。。