檢視 Word VBA/利阿賀拿 的原始碼
←
Word VBA/利阿賀拿
前往:
導覽
,
搜尋
由於下列原因,您沒有權限進行 編輯此頁面 的動作:
您請求的操作只有這個群組的使用者能使用:
使用者
您可以檢視並複製此頁面的原始碼。
__TOC__ =英文斷字= <pre> Option Explicit Public Sub extractWordFromDocument() Dim myDoc As Document Dim newDoc As Document Dim char As Variant Dim word As Variant Dim para As Variant Dim periodFound As Boolean Dim charSaved As String Dim lfON As Boolean Dim cntLink As Integer Dim i As Integer Set myDoc = Documents("文件1") '執行前,請確認英文文稿的 Word 檔名 Set newDoc = Documents.Add ename = newDoc.Name cntLink = myDoc.Hyperlinks.Count For i = cntLink To 1 Step -1 myDoc.Hyperlinks(i).Range.Delete Next For Each char In myDoc.Characters If Asc(char) < 65 Or (Asc(char) > 90 And Asc(char) < 97) Or Asc(char) > 122 Then If lfON Then Else newDoc.Content.InsertAfter Text:=vbCrLf lfON = True End If Else '文字 newDoc.Content.InsertAfter Text:=char lfON = False End If Next End Sub </pre> =英中斷句= <pre> Option Explicit Public cname As String Public ename As String Sub convertChineseToWiki() Dim myDoc As Document Dim newDoc As Document Dim char As Variant Dim word As Variant Dim para As Variant Dim periodFound As Boolean ' Dim openDoubleQuoteFound As Boolean '發現第一個雙引號 Dim charSaved As String Dim response As Integer Dim cntLink As Integer Dim i As Integer Set myDoc = Documents("文件1") '執行前,請確認中文文稿的 Word 檔名 Set newDoc = Documents.Add cname = newDoc.Name cntLink = myDoc.Hyperlinks.Count For i = cntLink To 1 Step -1 myDoc.Hyperlinks(i).Range.Delete Next charSaved = "" periodFound = False ' openDoubleQuoteFound = False newDoc.Content.InsertAfter Text:="<p class='chinese'>" For Each char In myDoc.Characters Select Case char Case vbCr, vbLf, Chr(11) '分行符號 If periodFound Then newDoc.Content.InsertAfter Text:=charSaved newDoc.Content.InsertAfter Text:="</p>" & vbCrLf '& vbCrLf newDoc.Content.InsertAfter Text:="<p class='chinese'>" periodFound = False ' Else ' newDoc.Content.InsertAfter Text:="</p>" & vbCrLf '& vbCrLf ' newDoc.Content.InsertAfter Text:="<p class='chinese'>" End If Case "。", ".", "!", "!", "?", "?", ";", ";" ', ";"斷句符號 charSaved = char '斷句符號暫存 periodFound = True Case "」", "』", ")", Chr(41384) '右引號 If periodFound Then newDoc.Content.InsertAfter Text:=charSaved newDoc.Content.InsertAfter Text:=char & "</p>" & vbCrLf '& vbCrLf newDoc.Content.InsertAfter Text:="<p class='chinese'>" periodFound = False Else newDoc.Content.InsertAfter Text:=char End If Case Else '其它文字或符號 If periodFound Then newDoc.Content.InsertAfter Text:=charSaved newDoc.Content.InsertAfter Text:="</p>" & vbCrLf '& vbCrLf newDoc.Content.InsertAfter Text:="<p class='chinese'>" newDoc.Content.InsertAfter Text:=char periodFound = False Else newDoc.Content.InsertAfter Text:=char End If End Select Next End Sub Sub convertEnglishToWiki() Dim myDoc As Document Dim newDoc As Document Dim char As Variant Dim word As Variant Dim para As Variant Dim periodFound As Boolean Dim charSaved As String Dim response As Integer Dim cntLink As Integer Dim i As Integer Set myDoc = Documents("文件1") '執行前,請確認英文文稿的 Word 檔名 Set newDoc = Documents.Add ename = newDoc.Name cntLink = myDoc.Hyperlinks.Count For i = cntLink To 1 Step -1 myDoc.Hyperlinks(i).Range.Delete Next charSaved = "" periodFound = False newDoc.Content.InsertAfter Text:="<p class='english'>" i = 1 For Each char In myDoc.Characters Select Case char Case vbCr, vbLf, Chr(11) '分行符號 If periodFound Then newDoc.Content.InsertAfter Text:=charSaved newDoc.Content.InsertAfter Text:="</p>" & vbCrLf '& vbCrLf newDoc.Content.InsertAfter Text:="<p class='english'>" periodFound = False ' Else ' newDoc.Content.InsertAfter Text:="</p>" & vbCrLf '& vbCrLf ' newDoc.Content.InsertAfter Text:="<p class='english'>" End If Case "." If (myDoc.Characters(i - 1) = ")" Or myDoc.Characters(i - 1) = Chr(41384)) Then '如果文章的第一個右括弧在第一個位置時,程式將無法執行,因為 i-1 超出範圍 charSaved = char '斷句符號暫存 periodFound = True Else If (Asc(myDoc.Characters(i - 2)) < 65) Or (Asc(myDoc.Characters(i - 2)) > 122) Then '如果文章的第一個句點在第二個位置時,程式將無法執行,因為 i-2 超出範圍 newDoc.Content.InsertAfter Text:=char Else charSaved = char '斷句符號暫存 periodFound = True End If End If Case "!", "?", ";" '斷句符號 charSaved = char '斷句符號暫存 periodFound = True Case ")", Chr(41384) '右引號 If periodFound Then newDoc.Content.InsertAfter Text:=charSaved newDoc.Content.InsertAfter Text:=char & "</p>" & vbCrLf '& vbCrLf newDoc.Content.InsertAfter Text:="<p class='english'>" periodFound = False Else newDoc.Content.InsertAfter Text:=char End If Case Else '其它文字或符號 If periodFound Then newDoc.Content.InsertAfter Text:=charSaved newDoc.Content.InsertAfter Text:="</p>" & vbCrLf '& vbCrLf newDoc.Content.InsertAfter Text:="<p class='english'>" newDoc.Content.InsertAfter Text:=char periodFound = False Else newDoc.Content.InsertAfter Text:=char End If End Select i = i + 1 Next End Sub </pre>
返回至
Word VBA/利阿賀拿
。
導覽選單
個人工具
登入
命名空間
頁面
討論
變體
檢視
閱讀
檢視原始碼
檢視歷史
更多
搜尋
導覽
首頁
自立:本站的主題
(健康|教育|就業|家庭儲藏|財務|靈性力量)
熱門連結
Zoom
摩爾門經中英逐句對照
竹北教堂福音研習班
Google 翻譯
Yahoo字典
Yahoo字典文法標示
英文標點符號
摩爾門經的故事(英文)
來跟從我-舊約
Come, Follow Me - Old Testament
中文聖經(舊約和新約)
英文聖經(舊約)
HSLTeacher
Yu's English
台灣測驗中心工具
Sentence clause structure
英文五大句型
介詞
EnglishConnect123
落實福音生活
數獨自動解題教材
秤12顆球教材
兩羊一車
英打練習
新科技-福音與英文
福音與英文FB
Quizlet操作訓練影片
特別收藏-英中對照
總會大會-英中對照
來跟從我-英中對照
利阿賀拿-英中對照
鞏固青年-英中對照
朋友-英中對照
ELA(KhanAcademy)-英中對照
摩爾門經的故事
英文初學者教法
費波那契精熟法
經文與福音原則
福音進修班簡報檔
312 專案:鞏固家庭
家譜
家庭資源(中文)
家庭資源(英文)
調校中文語文
福音與英文讀書會各平台
福音與英文讀書會
Facebook社團
青少年追求卓越各平台
Facebook社團
Google部落格
Google協作平台
本站主要贊助者
心克剛共學網 Wiki
心克剛共學網 Site
心克剛共學網 FB
心克剛共學網 Blogger
心克剛共學網班級
新生作業流程
HSL20A0
HSL20C2
HSL20D3
HSL20E4
HSL20G6
HSL20H7
均一教育平台
Khan Academy
Scratch
GeoGebra
Wolfram Alpha
Google App
教練備忘
每週精選
黑狗的家
高中數學學科中心
常用工具
英語文
英文初學者教材
本站志工團隊
尤黎明(本站管理者)
蕭昶欣(本站管理者)
江東愷(本站管理者)
張曦云(本站管理者)
張騉翔(本站管理者)
廖瑞鳳(家譜)
陳惠芳(簡報檔)
鄔采家(簡報檔)
林蓁蓁(簡報檔)
劉宇森(Quizlet)
周語晟(Quizlet)
黃翰洋(Quizlet)
王金鳳(Quizlet)
梁述芬(福音與英文)
鄧毓軒(福音與英文)
黃寶儀(福音與英文)
施宥均(福音與英文)
林孟毅(福音與英文)
林志豪(福音與英文)
郭怡君(福音與英文)
許若亞(福音與英文)
黃憶嵐(福音與英文)
張美紅(福音與英文)
曾文典(福音與英文)
相關法規
教育法規
國中教育會考
學科能力測驗
高中英文參考詞彙表
工具
連結至此的頁面
相關變更
特殊頁面
頁面資訊