word2010半形轉全形

㈠ word文檔中文標點全形半形轉換

word文檔中，將半形標點轉變成全形標點的步驟為：

1、打開word文檔，在菜單回欄選擇【開始】選項答，點擊【替換】；

3、半形標點成功轉變為全形標點。

㈡ 如何實現word2010中所有半形，全形符號互換

方法/步驟

許多職場人員在使用word進行文檔編輯時，總會遇到標點符號的問題。其中之回一就是文檔中答半形符號與全形符號混用，致使文檔規范度不夠。如何進行半形符號與全形符號的互換呢？是一次性全部符號互換，而非某一個符號的互換。
這里告訴大家一個非常簡便的方法。
步驟一：選擇所要替換的文字區域。如果文檔全部內容里半形、全形符號都互換的話，用CTRL+A全選。

步驟二：點擊「開始」標簽中左側的「Aa」項。點擊後，裡面有很多有用的小功能，實現大用途噢。

步驟三：如果要把半形換為全形，就點擊「全形」；反之，則點擊「半形」。
是不是非常簡單，趕緊體會一下吧。

看一下，替換後的效果哦。第一張全部標點符號為全形的，第二張標點符號全部為半形。
你發現不同點了嗎？全形的標點占空間多，以至於第二行多了一個字。

㈢ 如何將WORD中的很多全形文字改成半形文字…急用！謝謝前輩們…

如何將WORD中的很多全形文字改成半形文字

一、word 2007 中的改法：

1、打開word，選中文檔中需回要改寫的答內容，在「開始」菜單「字體」設置框中，單擊「Aa」。

三、通過」格式刷「轉換：方法是先手動把第一行的字元全變成半形字元，然後利用Word裡面的格式刷把其他刷一下。

㈣ 怎樣把word中的半形標點改為全形

word文檔中，將半形標點轉變成全形標點的步驟為：
1、打開word文檔，在菜單欄選擇【開始】選項，點擊【替換】；
2、在彈出的【查找與替換】窗口的【替換】中的【查找內容】處，輸入要替換的半形標點，在【替換為】處，輸入全形標點，點擊【全部替換】；
3、半形標點成功轉變為全形標點。

㈤ 怎樣把一篇Word文檔里的半形全部轉換成全形

這得用比如，要跟。分開來製作：

菜單上面編輯-查找和替換，在查找內容上輸入你要轉的比如說是半形「,」替換那輸入全形的「，」，再按全部替換即可。

㈥ word 中如何把半形的標點換成全形

不用一個一個的改，但是要一個一個地換。在「編輯」里找「替換」，在「查找內容」回里輸入半形標點（如，）答，在「替換為」里輸入相應的全形標點（如，），點擊「全部替換」，就把所有的半形「，」換為全形「，」了，然後再替換下一種標點。

㈦ 急！！！Word文章標點符號半形不能轉換全形

參考資料：

1、查找/替換所有標點符號；
在Word中無法實現一次性查找所有標點符號，所以需要只能一個一個的將半形標點替換為全形標點，英文常用標點符號一共17個，因此最多替17次就可以完成。

中文標點符號范圍(非全部):
"。" "，" "；" "：" "？" "！" "……" "—" "～" "〔" "〕" "《" "》" "『" "』" "「" "」"共17個

英文標點符號范圍(非全部),對應中文標點符號:
"." "," ";" ":" "?" "!" "…" "-" "~" "(" ")" "<" ">" "'" "'" """" """"
最後四個相當於' ' " "

2、將半形變為全形；
將所有文檔全部轉換為全形，Ctrl+A全選文檔，選擇菜單中的<格式>，<更改大小寫>，選中<全形>，即將所選中的半形字元轉換為全形。
再次a-z, A-Z轉為半形，需要26*2=52次

=====================================
上述兩法比較復雜，如果需要一次性轉換，可以使用Word中的宏工具來實現，如果需要，給我發信息，我有收集該工具。

該轉換工具代碼如下<轉自ExcelHome論壇，Word版塊"守柔"版主>，可以自動添加至Word中：
* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By I Love You_Word!@ExcelHome 2005-5-20 5:30:30
'僅測試於System: Windows NT Word: 10.0 Language: 2052
'^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Sub ()
'中英互譯文檔中將中文段落中的英文標點符號替換為中文標點符號
Dim i As Paragraph, ChineseInterpunction() As Variant, EnglishInterpunction() As Variant
Dim MyRange As Range, N As Byte
'定義一個中文標點的數組對象
ChineseInterpunction = Array("。", "，", "；", "：", "？", "！", "……", "—", "～", "〔", "〕", "《", "》", "『", "』", "「", "」")
'定義一個英文標點的數組對象
EnglishInterpunction = Array(".", ",", ";", ":", "?", "!", "…", "-", "~", "(", ")", "<", ">", "'", "'", """", """")
On Error Resume Next
Application.ScreenUpdating = False '關閉屏幕更新
For Each i In ThisDocument.Paragraphs '遍歷文檔每個段落
If Asc(i.Range) < 0 Then '如果段落首個字元為漢字(漢字字元的ASC<0)
'定義一個RANGE對象
For N = 0 To 13 '進行14次循環
Set MyRange = i.Range '定義一個RANGE對象
With MyRange.Find '查找
.ClearFormatting '清除查找格式
'查找相應的英文標點,替換為對應的中文標點
.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
'恢復屏幕更新
Application.ScreenUpdating = True
End Sub
'----------------------
Sub ReplaceInStoryChinese()
'全中文段落英文標點符號替換為中文標點符號
Dim i As Paragraph, ChineseInterpunction() As Variant, EnglishInterpunction() As Variant
Dim N As Byte
'定義一個中文標點的數組對象
ChineseInterpunction = Array("。", "，", "；", "：", "？", "！", "……", "—", "～", "〔", "〕", "《", "》", "『", "』", "「", "」")
'定義一個英文標點的數組對象
EnglishInterpunction = Array(".", ",", ";", ":", "?", "!", "…", "-", "~", "(", ")", "<", ">", "'", "'", """", """")
On Error Resume Next
Application.ScreenUpdating = False '關閉屏幕更新
With ThisDocument.Content.Find
For N = 0 To 13 '進行14次循環
.ClearFormatting '清除查找格式
'查找相應的英文標點,替換為對應的中文標點
.Execute findtext:=EnglishInterpunction(N), replacewith:=ChineseInterpunction(N), Replace:=wdReplaceAll
Next
End With
Selection.HomeKey wdStory '移到文檔首
With Selection.Find
.ClearFormatting '清除查找格式
.Text = """" '查找"
'如果查找成功並且在中文段落中,分別將其替換為「/」
While .Execute: Selection.Text = "「"
.Execute: Selection.Text = "」"
Wend
End With
Selection.HomeKey wdStory
With Selection.Find
.ClearFormatting '清除查找格式
.Text = "'" '查找'
'如果查找成功並且在中文段落中,分別將其替換為『/』
While .Execute: Selection.Text = "『"
.Execute: Selection.Text = "』"
Wend
End With
'恢復屏幕更新
Application.ScreenUpdating = True
End Sub
'----------------------
Sub ()
'全中文標點符號替換為英文標點符號
Dim ChineseInterpunction() As Variant, EnglishInterpunction() As Variant, N As Byte
'定義一個中文標點的數組對象
ChineseInterpunction = Array("。", "，", "；", "：", "？", "！", "……", "—", "～", "〔", "〕", "《", "》", "『", "』", "「", "」")
'定義一個英文標點的數組對象
EnglishInterpunction = Array(".", ",", ";", ":", "?", "!", "…", "-", "~", "(", ")", "<", ">", "'", "'", """", """")
On Error Resume Next
MsgBox UBound(EnglishInterpunction)
Application.ScreenUpdating = False '關閉屏幕更新
With ThisDocument.Content.Find
For N = 0 To 16 '進行14次循環
.ClearFormatting '清除查找格式
'查找相應的英文標點,替換為對應的中文標點
.Execute findtext:=ChineseInterpunction(N), replacewith:=EnglishInterpunction(N), Replace:=wdReplaceAll
Next
End With
'恢復屏幕更新
Application.ScreenUpdating = True
End Sub
'----------------------

㈧ 如何在word中轉換全形與半形空格

操作步驟；
1、單擊開始----查找按鈕；

2、彈出查找和替換對話框，在查找內容輸入框中輸入一個半形空格；

3、切換到替換選項卡，在替換為輸入框中輸入：一個全形空格，單擊全部替換即可。
註：按Ctrl+空格進行全形、半形切換。

㈨ 在word中怎樣快速實現半形全形轉換

好像不行，半形和全形沒有關系。a
和a實際是兩個不同的字元。不是字體問題。也不是格式問題。您只有批量一個字元一個字元的替換，最多36次。比如全部替換a為a，然後全部替換，b為b
，以此類推。

㈩ Word文檔中數字將半形數字轉換為全形

輸入法可以切換半形全形的輸入。已經輸入的半形數字，可以用替換的方法進行轉換。