2020国产成人精品视频,性做久久久久久久久,亚洲国产成人久久综合一区,亚洲影院天堂中文av色

分享

word全角半角標(biāo)點(diǎn)符號(hào)互相轉(zhuǎn)換的詳細(xì)方法

 超越夢(mèng)想之上 2019-03-22

第一,使用word內(nèi)置的全半角轉(zhuǎn)換

  word中全角的標(biāo)點(diǎn)符號(hào)占兩個(gè)字節(jié),半角的標(biāo)點(diǎn)符號(hào)占一個(gè)字節(jié)。

  在word2010版提供了包括標(biāo)點(diǎn)符號(hào)、字母、數(shù)字綜合性的全角半角轉(zhuǎn)換。單擊開(kāi)始——更改大小寫(xiě)命令下面的“半角和全角”,如下圖所示:

word標(biāo)點(diǎn)符號(hào)轉(zhuǎn)換

  但此內(nèi)置功能有一個(gè)局限是,如果一個(gè)文檔同時(shí)有數(shù)字、字母和標(biāo)點(diǎn)符號(hào)混合,估計(jì)用起來(lái),就沒(méi)有預(yù)期想要的效果。

  比如筆者經(jīng)常需要處理網(wǎng)上的一些資料,往往是夾雜參合一些全角半角的標(biāo)點(diǎn)符號(hào),為了讓整篇文檔的標(biāo)點(diǎn)符號(hào)統(tǒng)一為全角或者是統(tǒng)一為半角,就需要進(jìn)行轉(zhuǎn)換。

  很多朋友的第一想法就是使用word內(nèi)置的功能,查找替換完成。其實(shí)這個(gè)方法也是很好的,只是相對(duì)繁瑣一點(diǎn)。所有的標(biāo)點(diǎn)符號(hào)差不多有27種左右,如果每種標(biāo)點(diǎn)符號(hào)都需要處理一次,就需要進(jìn)行27次查找替換。

  本文的最終目的是想介紹一個(gè)批量轉(zhuǎn)換標(biāo)點(diǎn)符號(hào)的宏來(lái)實(shí)現(xiàn)全半角轉(zhuǎn)換。

第二,全角標(biāo)點(diǎn)符號(hào)批量轉(zhuǎn)換為半角標(biāo)點(diǎn)符號(hào)

  操作方法如下:
  1.在word中,按ALT+F11組合鍵,打開(kāi)VBE編輯器,單擊插入——模塊,在右邊的代碼編輯窗口復(fù)制下面的代碼,并關(guān)閉VBE。
  2.回到word編輯界面,選中需要轉(zhuǎn)換的區(qū)域,然后單擊開(kāi)發(fā)工具——宏(或者按ALT+F8鍵),打開(kāi)“宏”對(duì)話框,選中“全角轉(zhuǎn)換為半角”宏,單擊“運(yùn)行”命令,即可一次性將選中區(qū)域的全角標(biāo)點(diǎn)符號(hào)批量轉(zhuǎn)換為半角標(biāo)點(diǎn)符號(hào)。

標(biāo)點(diǎn)符號(hào)全角半角

  下面是具體的VBA代碼,直接復(fù)制粘貼sub 至end sub結(jié)束的所有代碼。

Sub 全角轉(zhuǎn)換為半角()
    '使用前需先選中要替換的區(qū)域
    Dim fullshape, halfshape As String, i As Integer '定義fullshape(全角)、halfshape(半角)為字符串型,i為整數(shù)型
    fullshape = ",。?“”‘’?。海?quot;
    halfshape = ",.?""''!:;"
    For i = 1 To 10 '循環(huán)10次
    With Selection.Find
    .Text = Mid(fullshape, i, 1) 'mid函數(shù):返回文本字符串中從指定位置開(kāi)始的特定數(shù)目的字符,每次取一個(gè)標(biāo)點(diǎn)符號(hào)
    .Replacement.Text = Mid(halfshape, i, 1) '將用于替換的相應(yīng)位置的半角標(biāo)點(diǎn)符號(hào)
    .Format = False '保留替換前的字符格式
    .Execute Replace:=wdReplaceAll '用半角標(biāo)點(diǎn)替換全角標(biāo)點(diǎn)
    End With
    Next i
    End Sub

第三,半角標(biāo)點(diǎn)符號(hào)批量轉(zhuǎn)換為全角標(biāo)點(diǎn)符號(hào)

  操作方法如下:
  1.在word中,按ALT+F11組合鍵,打開(kāi)VBE編輯器,單擊插入——模塊,在右邊的代碼編輯窗口復(fù)制下面的代碼,并關(guān)閉VBE。
  2.回到word,按ALT+F8鍵,打開(kāi)“宏”對(duì)話框,選中“半角標(biāo)點(diǎn)符號(hào)轉(zhuǎn)換為全角標(biāo)點(diǎn)符號(hào)”宏,單擊“運(yùn)行”命令,即可一次性將所有的半角標(biāo)點(diǎn)符號(hào)轉(zhuǎn)換為全角標(biāo)點(diǎn)符號(hào)。

Sub 半角標(biāo)點(diǎn)符號(hào)轉(zhuǎn)換為全角標(biāo)點(diǎn)符號(hào)()
'中英互譯文檔中將中文段落中的英文標(biāo)點(diǎn)符號(hào)替換為中文標(biāo)點(diǎn)符號(hào)
    Dim i As Paragraph, ChineseInterpunction() As Variant, EnglishInterpunction() As Variant
    Dim MyRange As Range, N As Byte
    '定義一個(gè)中文標(biāo)點(diǎn)的數(shù)組對(duì)象
    ChineseInterpunction = Array("。", ",", ";", ":", "?", "!", "……", "—", "~", "〔", "〕", "《", "》", "‘", "’", "“", "”")
    '定義一個(gè)英文標(biāo)點(diǎn)的數(shù)組對(duì)象
    EnglishInterpunction = Array(".", ",", ";", ":", "?", "!", "…", "-", "~", "(", ")", "<", ">", "'", "'", """", """")
    On Error Resume Next
    Application.ScreenUpdating = False    '關(guān)閉屏幕更新
    For Each i In ThisDocument.Paragraphs    '遍歷文檔每個(gè)段落
        If Asc(i.Range) < 0 Then    '如果段落首個(gè)字符為漢字(漢字字符的ASC<0)
            '定義一個(gè)RANGE對(duì)象
            For N = 0 To 13    '進(jìn)行14次循環(huán)
                Set MyRange = i.Range    '定義一個(gè)RANGE對(duì)象
                With MyRange.Find    '查找
                    .ClearFormatting    '清除查找格式
                    '查找相應(yīng)的英文標(biāo)點(diǎn),替換為對(duì)應(yīng)的中文標(biāo)點(diǎn)
                    .Execute findtext:=EnglishInterpunction(N), replacewith:=ChineseInterpunction(N), Replace:=wdReplaceAll
                End With
            Next
        End If
    Next
    Selection.HomeKey wdStory
    With Selection.Find
        .ClearFormatting    '清除查找格式
        .Text = """"    '查找"
        '如果查找成功并且在中文段落中,分別將其替換為“/”
        While .Execute
            If Asc(Selection.Paragraphs(1).Range) < 0 Then Selection.Text = "“"
            If .Execute And Asc(Selection.Paragraphs(1).Range) < 0 Then Selection.Text = "”"
        Wend
    End With
    Selection.HomeKey wdStory
    With Selection.Find
        .ClearFormatting    '清除查找格式
        .Text = "'"    '查找'
        While .Execute
            '如果查找成功并且在中文段落中,分別將其替換為‘/’
            If Asc(Selection.Paragraphs(1).Range) < 0 Then Selection.Text = "‘"
            If .Execute And Asc(Selection.Paragraphs(1).Range) < 0 Then Selection.Text = "’"
        Wend
    End With
    '恢復(fù)屏幕更新
    Application.ScreenUpdating = True
End Sub

    本站是提供個(gè)人知識(shí)管理的網(wǎng)絡(luò)存儲(chǔ)空間,所有內(nèi)容均由用戶發(fā)布,不代表本站觀點(diǎn)。請(qǐng)注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購(gòu)買(mǎi)等信息,謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請(qǐng)點(diǎn)擊一鍵舉報(bào)。
    轉(zhuǎn)藏 分享 獻(xiàn)花(0

    0條評(píng)論

    發(fā)表

    請(qǐng)遵守用戶 評(píng)論公約

    類(lèi)似文章 更多