大多数的论文写作工作都是在Word里面完成的,所以每一个写论文的伙伴都要用好Word。今天论文君提供这些小的技巧几分钟就可以学会,可以为你完成毕业论文节省大量的时间和精力,提高论文写作的效率。本文共6500字符,阅读时间5-7分钟。
一、如何设置Word默认的中英文字体?学位论文对字体有明确的要求,中英文区分开来,而Office的Word默认的字体可能不符合要求,那么如何进行设置呢?
以中文为宋体和英文及数字为Times New Roman为例,操作如下:
Sub fdpst()
'
' fdpst Macro
' 宏创建于2015年5月9日14:13:04
msg1 = MsgBox("你会用该宏命令吗? 如果不会,请按【否(N)】按钮,否则会损坏你的文件!若要使用该宏命令,请询问使用方法。继续执行该命令吗?", 52, "谨慎!!!")
With ActiveDocument.Bookmarks
.Add Range:=Selection.Range, Name:="Note"
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
If msg1 = 6 Then
With Dialogs(wdDialogEditFind)
.Find = ""
.Show
End With
If Selection.Find.Found = True Then
allpaste = MsgBox("全部替换吗?", 35, "文本与格式替换")
If allpaste = 2 Then
Exit Sub
ElseIf allpaste = 6 Then
While Selection.Find.Found = True
Selection.Paste
Dialogs(wdDialogEditFind).Execute
Wend
ElseIf allpaste = 7 Then
While Selection.Find.Found = True
msg2 = MsgBox("替换吗?", 3, "文本与格式替换")
Select Case msg2
Case 2: Exit Sub
Case 6: Selection.Paste
End Select
Dialogs(wdDialogEditFind).Execute
Wend
End If
End If
End If
Selection.GoTo What:=wdGoToBookmark, Name:="Note"
ActiveDocument.Bookmarks("Note").Delete
End Sub
Sub setpicsize() '设置图片尺寸
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型 图片
ActiveDocument.InlineShapes(n).Height = 7.39 * 28.35 '设置图片高度为 5cm (1cm等于28.35px)
ActiveDocument.InlineShapes(n).Width = 9.86 * 28.35 '设置图片宽度 6.3cm
Next n
End Sub