发布网友 发布时间:2024-09-07 10:11
共5个回答
热心网友 时间:2024-09-24 15:40
你叫告诉人家你是什么类型的试题,然后让别人留email ,你发email 给人家做嘛,做好了再回email 给你咯,
或者在网上申请一个网络硬盘空间,你上传你的试题,并告诉人家链接,会的人会下载做好再发 email 给你咯
热心网友 时间:2024-09-24 15:40
级别提高后,字数会放宽。
整份的试题一起贴上来,怕是回答的人少。不如一次贴两三道题。
热心网友 时间:2024-09-24 15:39
是什么试题啊?
热心网友 时间:2024-09-24 15:41
貌似可以插入图片啊,你可以把试题截图的撒~
热心网友 时间:2024-09-24 15:41
运行宏:
———————————————————————————————————
Sub aa()
myPath = "D:\temp\"
Selection.HomeKey Unit:=wdStory
Set myRange = Selection.Range
curpage = 0
Application.ScreenUpdating = False
Do
prepage = curpage
pagenum = pagenum + 1
Set myRange = myRange.GoToNext(What:=wdGoToPage)
curpage = myRange.Start
endpage = myRange.Previous.End 'Start
If curpage = prepage Then _
endpage = ActiveDocument.Content.End
ActiveDocument.Range(prepage, endpage).Copy
With Documents.Add
.Content.Paste
.SaveAs myPath & "Page" & pagenum & ".doc"
.Close
End With
If curpage = prepage Then Exit Do
Loop
Application.ScreenUpdating = True
End Sub
-----------------------------------------------------------------