Word鍑犱釜瀹炵敤瀹忚В鍐虫柟妗?- 鐧惧害鏂囧簱

鏂板缓

涓婁紶

棣栭〉

鍔╂墜

鏈�杩?/div>

璧勬枡搴?/div>

宸ュ叿

Sub 

鑷�鍔ㄧ紪鍙锋敼涓烘墜鍔ㄧ紪鍙�

() 

ActiveDocument.Content.ListFormat.ConvertNumbersToText 

End Sub 

 

Sub 

鎵归噺鍘婚櫎鍩?/p>

() 

ActiveDocument.Content.Fields.Unlink 

End Sub 

 

Sub CenterPara() 

'

缁濆�瑰眳涓�

(

涓�鍥藉紡灞呬�?/p>

) 

With Selection.ParagraphFormat 

 

 

 

 

.CharacterUnitFirstLineIndent = 0 

 

 

 

 

.FirstLineIndent = 0 

 

 

 

 

.CharacterUnitLeftIndent = 0 

 

 

 

 

.LeftIndent = 0 

 

 

 

 

.CharacterUnitRightIndent = 0 

 

 

 

 

.RightIndent = 0 

 

 

 

 

.Alignment = wdAlignParagraphCenter 

End With 

End Sub 

 

Sub 

閫変腑鎵�鏈夌殑琛ㄦ牸

() 

 

 

 

Dim tempTable As Table 

 

 

 

 

 

Application.ScreenUpdating = False 

 

 

 

If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then 

 

 

 

 

 

 

 

MsgBox "

鏂囨。宸蹭繚鎶?/p>

+

濉�鍐欑獥浣擄紝姝ゆ椂涓嶈兘閫変腑澶氫釜琛ㄦ牸

" 

 

 

 

 

 

 

 

 

Exit Sub 

 

 

 

End If 

 

 

 

 

 

ActiveDocument.DeleteAllEditableRanges wdEditorEveryone 

 

 

 

For Each tempTable In ActiveDocument.Tables 

 

 

 

 

 

 

 

tempTable.Range.Editors.Add wdEditorEveryone 

 

 

 

Next 

 

 

 

 

 

ActiveDocument.SelectAllEditableRanges wdEditorEveryone 

 

 

 

 

 

ActiveDocument.DeleteAllEditableRanges wdEditorEveryone 

 

 

 

 

 

Application.ScreenUpdating = True 

End Sub 

 

Sub 

鏂囨湰鍙嶉�?/p>

() 

'

瀵瑰父瑙勬枃鏈�杩涜�屽弽閫?/p>

 

Dim myRange As Range, oEditor As Editor 

On Error Resume Next 

If Application.Version < 11 Then 

 

 

 

 

 

 

 

MsgBox "

鐗堟湰杩囦綆锛?/p>

"