يوليار-=بىل-=ASPساقلىۋېلىشباش بەت قىلىشMB
Font Qachilashكەڭ ھالەت

ئىنتىل تورى

 پارول قايتۇرىۋېلىش
 تىزىملىتىش
ئىزدەش
ئاۋات ئىزدەش: مۇسابىقەchromeexcelwordps
ئىنتىل تورى › سەينا › Office بىلىمى › Word بىلىمى › word تا پوچتىلاش ۋە بىر ھۆججەت ...
تىزىملىككە قايتىش تېما يوللاش
كۆرۈش: 793|ئىنكاس: 13

[ياردەم] word تا پوچتىلاش ۋە بىر ھۆججەتنى كۆپ بەتلىك بېسىش   [ئۇلانما كۆچۈرۈش]

uydown 实名认证 

Rank: 5Rank: 5

تۆھپە
687
تىللا
972
شۆھرەت
1306

ئاكتىپ داڭدار دەلىللەنگەن ئەزا

يوللىغان ۋاقتى 2012-2-28 23:34:10 |ھەممە قەۋەتنى كۆرۈش
ئىنىم بۈگۈن مۇنداق بىر مەسىلىنى كۆتۈرۈپ كەپتۇ.
مەكتىپىدىكى ئۇقۇتقۇچىلارنىڭ ئاساسىي ئەھۋالىنى ئىنىقلاش جەدىۋىلىگە تولدۇرىدىكەن. ئۇقۇتقۇچىلار ئاساسىي ئەھۋالى دىگۈدەك Excel جەدىۋىلىدە بار ئىكەن. ئەمدىكى مەسىلە ھەر بىر ئۇقۇتقۇچىنىڭ تەكتىننى ئىنىقلاش جەدىۋىلىنى word كىرگۈزۈپ يوللاش بۇلۇپ قالدى.
word پوچتىلاشتىن پايدىلانغاندا Excel دىكى مەزمۇنلارنى ھەممىنى بىر 文档غا يىغىپ بىرىدۇ. ئەمما تەلەپ ھەر بىر ئۇقۇتقۇچىنىڭ ئۇچۇرى بىر 文档 قىلىپ ئىسمىنى كىرگۈزۈپ ساقلاش ئىدى. پوچتىلاپ بولغاندىن كىيىن كىسىپ باشقا بەتكە ئېلىپ ساقلاي دىسەك سەل ئاۋارچىلىقكەن. ھەر بىر ئۇچۇرنى ئايرىم- ئايرىم بەتكە چىقىرىدىغان ھۆنەر بولسا كۆرسىتىپ بەرگەن بولساڭلار.
-=ياردەم تېمىسى يوللاش ساۋادى=-

جابدۇق ئىشلىتىش پاش قىلىش

dostingiz

Rank: 6Rank: 6

تۆھپە
443
تىللا
342
شۆھرەت
734
يوللىغان ۋاقتى 2012-2-29 00:00:15 |ھەممە قەۋەتنى كۆرۈش
ئايرىم بەتكە چاپلاش كەتمەيدۇ. بەت لايىھەلىگەندە قەغەزنىڭ چوڭلۇقىنى تەڭشەڭ.
ياكى ئاۋال word  تىكى قېلىپنى لايىھەلىگەندە ئاستىغا بىرقانچە قۇرۇق قۇر قوشۇۋېتىڭ. بۇ يازمىنى ئاخىرىدا   dostingiz تەھرىرلىگەن. ۋاقتى  2012-2-29 00:04  

جابدۇق ئىشلىتىش پاش قىلىش

uydown 实名认证 

Rank: 5Rank: 5

تۆھپە
687
تىللا
972
شۆھرەت
1306

ئاكتىپ داڭدار دەلىللەنگەن ئەزا

يوللىغان ۋاقتى 2012-2-29 00:20:37 |ھەممە قەۋەتنى كۆرۈش
dostingiz يوللىغان ۋاقتى  2012-2-29 00:00
ئايرىم بەتكە چاپلاش كەتمەيدۇ. بەت لايىھەلىگەندە قەغەز ...

مىنىڭغۇ ئايرىم بەتكە چاپلاش ئويۇم يوقتى. ئەمما تەلەپتە ھەر بىر كىشىنىڭ ئۇچۇرى چۇقۇم ئايرىم بىر wordھۆججىتى بۇلۇپ ساقلىنىشى كىرەك. مەسىلەن: 阿里木.docدىگەندەك.........
ساقلاشنىغۇ ئۆزىمىز ئىسىم قويۇپ ساقلىساقمۇ بۇلاتتى. ئەمما پوچتىلىغاندا ھەر بىر كىشىنىڭ ئۇچۇرى ئايرىم بىر wordھۆججىتى بۇلۇپ ئېچىلغان بولسا بولاتتى.

جابدۇق ئىشلىتىش پاش قىلىش

dostingiz

Rank: 6Rank: 6

تۆھپە
443
تىللا
342
شۆھرەت
734
يوللىغان ۋاقتى 2012-2-29 01:28:09 |ھەممە قەۋەتنى كۆرۈش
ئاۋال پوچتىلاشتىن پايدىلىنىپ ھەربىر بەتتە بىر ئادەمنىڭ ئۇچۇرىنى تەييارلىۋالىڭ، ئاندىن تۆۋەندىكى 2 خىل كودنىڭ خالىغان بىرسىدىن پايدىلانسىڭىز ئىشىڭىز ھەل بولىدۇ.
1- خىل ماكرو كودى
  1. Option Explicit

  3. Sub SaveParagraph()

  5. Dim i As Integer, PageNo As Integer
  6. Dim aDoc As Document
  7. Dim myDoc As Document
  8. Dim sPage As String

  10. Set myDoc = ThisDocument

  12. '文档视图设定为页面方式
  13. ActiveWindow.View.Type = wdPageView
  14. myDoc.Repaginate

  16. '获得文档页数并赋值给变量 PageNo
  17. PageNo = myDoc.BuiltInDocumentProperties(wdPropertyPages)

  19. For i = 1 To PageNo
  20. myDoc.Activate
  21. ' 光标移动到文档某一页的开始
  22. Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=i
  23. ' 全选文档某一页的所有内容
  24. Selection.EndKey Unit:=wdStory, Extend:=wdExtend
  25. sPage = Selection.Text

  27. '保存到一个文件中
  28. Set aDoc = Documents.Add
  29. aDoc.Content.Text = sPage
  30. aDoc.SaveAs FileName:="c:\" & CInt(i) & ".doc"
  31. aDoc.Close
  32. Next

  34. End Sub
مەزمۇننى كۆچۈرۈۋېلىش
ھۆججەتنى c دىسكىدىن ئېلىۋالسىڭىز بولىدۇ.
~~~~~~~~~~~~~~~~~~~
يەنە بىر خىل كود
  1. Sub aa()
  2. myPath = "D:\temp\"
  3. Selection.HomeKey Unit:=wdStory
  4. Set myRange = Selection.Range
  5. curpage = 0
  6. Application.ScreenUpdating = False
  7. Do
  8.    prepage = curpage
  9.    pagenum = pagenum + 1
  10.    Set myRange = myRange.GoToNext(What:=wdGoToPage)
  11.    curpage = myRange.Start
  12.    endpage = myRange.Previous.End 'Start
  13.    If curpage = prepage Then _
  14.       endpage = ActiveDocument.Content.End
  15.    ActiveDocument.Range(prepage, endpage).Copy
  16.    With Documents.Add
  17.       .Content.Paste
  18.       .SaveAs myPath & "Page" & pagenum & ".doc"
  19.       .Close
  20.    End With
  21.    If curpage = prepage Then Exit Do
  22. Loop
  23. Application.ScreenUpdating = True
  24. End Sub
مەزمۇننى كۆچۈرۈۋېلىش
ھۆججەتنى D:\temp تىن ئېلىۋالىڭ.

ئەسكەرتىش: بۇ پوچتىلانمىغان كۆپ بەتلىك word  ھۆججىتىگىمۇ بولىۋىرىدۇ. بۇ يازمىنى ئاخىرىدا   dostingiz تەھرىرلىگەن. ۋاقتى  2012-2-29 01:30  

باھا سۆز

ياخشى: 5.0
uydown  ياخشى: 5
رەھمەت  يوللىغان ۋاقتى 2012-2-29 13:33:20

جابدۇق ئىشلىتىش پاش قىلىش

uydown 实名认证 

Rank: 5Rank: 5

تۆھپە
687
تىللا
972
شۆھرەت
1306

ئاكتىپ داڭدار دەلىللەنگەن ئەزا

يوللىغان ۋاقتى 2012-2-29 13:10:37 |ھەممە قەۋەتنى كۆرۈش
ئەجرىڭىزگە رەھمەت، يەنە بىر مەسىلىنى سورىۋالسام،
ھەر بىر كىشىنىڭ ئۇچۇرى ئىككى بەت بۇلۇپ، بۇ كودتا ھەر بىر بەتنى ئايرىم ئايرىم ساقلايدىكەن. قايسى تەرەپنى ئۆزگەرتسەم ئىككى بەتنى بىر ساقلايدىغان قىلغىلى بۇلىدۇ.

جابدۇق ئىشلىتىش پاش قىلىش

mmstudio

Rank: 3Rank: 3

تۆھپە
65
تىللا
96
شۆھرەت
83
يوللىغان ۋاقتى 2012-2-29 17:57:30 |ھەممە قەۋەتنى كۆرۈش
رەخمەت سىزگە...ھارمىغايسىز  قېرىندىشىم

جابدۇق ئىشلىتىش پاش قىلىش

Intil 实名认证 

ئاتامان

بېكەت باشلىقى

Rank: 32Rank: 32Rank: 32Rank: 32Rank: 32Rank: 32Rank: 32Rank: 32

تۆھپە
18260
تىللا
22955
شۆھرەت
31515

دەلىللەنگەن ئەزا

يوللىغان ۋاقتى 2012-3-1 03:08:08 |ھەممە قەۋەتنى كۆرۈش
ئالدىنقى مەسىلىنىڭ يەنە بىر ئۇسۇلى تېپىلدى سىز word2003 تىن يۇقۇرى نەشرىدىكى ھۆججەتنى تۆۋەندىكى word kop bet.vbs نىڭ ئۈستىگە ئەكلىپ قويۇپ بەرسىڭىزلا شۇ جايغا يېڭى بىر قىسقۇچ قۇرۇپ بەت سانى بىلەن تەڭ ساندىكى word  ھۆججىتىگە پارچىلاپ بېرىدۇ.
word kop bet.vbs.rar (1022 Bytes, چۈشۈرۈش سانى: 118)

تۆۋەندىكى كودمۇ شۇ ھۆججەت بار قىسقۇچقا بەت بويىچە ئايرىپ بېرىدۇ
  1. Option Explicit

  3. Sub SplitPagesAsDocuments()

  5.     Dim oSrcDoc As Document, oNewDoc As Document
  6.     Dim strSrcName As String, strNewName As String
  7.     Dim oRange As Range
  8.     Dim nIndex As Integer
  9.     Dim fso As Object
  10.    
  11.     Set fso = CreateObject("Scripting.FileSystemObject")
  12.     Set oSrcDoc = ActiveDocument
  13.     Set oRange = oSrcDoc.Content

  15.     oRange.Collapse wdCollapseStart
  16.     oRange.Select

  18.     For nIndex = 1 To ActiveDocument.Content.Information(wdNumberOfPagesInDocument)
  19.         oSrcDoc.Bookmarks("\page").Range.Copy
  20.         oSrcDoc.Windows(1).Activate
  21.         Application.Browser.Target = wdBrowsePage
  22.         Application.Browser.Next
  23.         
  24.         strSrcName = oSrcDoc.FullName
  25.         strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _
  26.                      fso.GetBaseName(strSrcName) & "_" & nIndex & "." & fso.GetExtensionName(strSrcName))
  27.         Set oNewDoc = Documents.Add
  28.         Selection.Paste
  29.         oNewDoc.SaveAs strNewName
  30.         oNewDoc.Close False
  31.     Next

  33.     Set oNewDoc = Nothing
  34.     Set oRange = Nothing
  35.     Set oSrcDoc = Nothing
  36.     Set fso = Nothing

  38.     MsgBox "Tamam！"

  40. End Sub
مەزمۇننى كۆچۈرۈۋېلىش
ئەتە ئۆلۈپ كېتىدىغاندەك ياخشى ئەمەللەردە بول.

جابدۇق ئىشلىتىش پاش قىلىش

uydown 实名认证 

Rank: 5Rank: 5

تۆھپە
687
تىللا
972
شۆھرەت
1306

ئاكتىپ داڭدار دەلىللەنگەن ئەزا

يوللىغان ۋاقتى 2012-3-1 09:27:24 |ھەممە قەۋەتنى كۆرۈش
ھەممىڭلارغا رەھمەت.  مەسىلە ئاساسەن ھەل بولدى. پوچتىلاپ ساقلاپ بولغاندىن 2-بەتنى 1-بەتنىڭ كەينىگە چاپلىساقلا ئىش تۈگىدى.
ئىنىممۇ ئىشىنىڭ تىززاق تۈگىگىدىن خۇشال بۇلىۋاتىدۇ. بۇ يازمىنى ئاخىرىدا   uydown تەھرىرلىگەن. ۋاقتى  2012-3-1 10:03  

جابدۇق ئىشلىتىش پاش قىلىش

Intil 实名认证 

ئاتامان

بېكەت باشلىقى

Rank: 32Rank: 32Rank: 32Rank: 32Rank: 32Rank: 32Rank: 32Rank: 32

تۆھپە
18260
تىللا
22955
شۆھرەت
31515

دەلىللەنگەن ئەزا

يوللىغان ۋاقتى 2012-3-1 13:39:11 |ھەممە قەۋەتنى كۆرۈش
كودنىمۇ تاپقان، كۆرۈپ بېقىڭ. (ئۆزىڭىزنىڭ ئۇسۇلىنىمۇ تەپسىلىي قىلىپ قالدۇرارسىز)
  1. Sub 每两页分割为一个新文档__保存到同目录下()
  2. '2012.03.01 雨雪霏霏改编自守柔版主代码。
  3. '守柔版主代码见：《请教：如何将一个word文档按页保存为多个word文档？？？》8楼
  4. '链接为：https://uyghur-archive.com/intil/home/thread-8905-1-1.html


  7.     Dim MyPath As String, PageCount As Integer
  8.     Dim StartRange As Long, EndRange As Long, MyRange As Range
  9.     Dim Fn As String, MyDoc As Document, i As Integer


  12.     On Error Resume Next
  13.     Application.ScreenUpdating = False

  15.     MyPath = ActiveDocument.Path    '取得文档路径
  16.     PageCount = Selection.Information(wdNumberOfPagesInDocument)    '取得文档总页数


  19.     Selection.HomeKey unit:=wdStory    '将光标移至文档起点
  20.     For i = 1 To PageCount / 2 + (PageCount Mod 2)    '设置循环次数
  21.         StartRange = Selection.Start    '取得该页的第一个字符位置
  22.         Selection.EndKey unit:=wdLine    '将光标移动到该页首行的最后位置
  23.         Fn = i & ActiveDocument.Name    '-1的目的是防止该页首行含有段落标记,导致出错.
  24.         If i * 2 >= PageCount Then    '如果循环到达最后一页
  25.             EndRange = ActiveDocument.Content.End    '将文档最后位置赋值于EndRange
  26.         Else
  27.        '否则,将下两页的起始位置赋值于EndRange(等同于下一页的最后位置)
  28.             Selection.GoToNext (wdGoToPage)
  29.             Selection.GoToNext (wdGoToPage)
  30.             EndRange = Selection.Start
  31.         End If
  32.         Set MyRange = ActiveDocument.Range(StartRange, EndRange)  '将两页中的内容进行复制
  33.         MyRange.Copy


  36.         Set MyDoc = Documents.Add    '新建一空白文档
  37.         With MyDoc
  38.              .Content.Paste    '在新文档中粘贴
  39.              .Content.Paragraphs.Last.Range.Delete '删除新文档末尾多出来的一个段落标记
  40.              .SaveAs FileName:=MyPath & "/" & Fn
  41.              '保存新文档到原文档所在目录。如果删除“MyPath & "/" & ”，。则保存到“我的文档”中。
  42.              .Close    '关闭新文档
  43.         End With
  44.     Next


  47.     Application.ScreenUpdating = True
  48. End Sub
مەزمۇننى كۆچۈرۈۋېلىش
ئەتە ئۆلۈپ كېتىدىغاندەك ياخشى ئەمەللەردە بول.

جابدۇق ئىشلىتىش پاش قىلىش

uydown 实名认证 

Rank: 5Rank: 5

تۆھپە
687
تىللا
972
شۆھرەت
1306

ئاكتىپ داڭدار دەلىللەنگەن ئەزا

يوللىغان ۋاقتى 2012-3-1 16:31:12 |ھەممە قەۋەتنى كۆرۈش
Intil يوللىغان ۋاقتى  2012-3-1 13:39
كودنىمۇ تاپقان، كۆرۈپ بېقىڭ. (ئۆزىڭىزنىڭ ئۇسۇلىنىمۇ تە ...

ئىنىمنىڭ بۇ  مەسىلىسى پۈتۈنلەي ھەل بولدى.
1. پوچتىلاشنىڭ قائىدىسىنى ھەممىمىز بىلىمىز. (ئىككى بەتكە ئۇچۇرلارنى پوچتىلاپ 200نەپەر كىشىنىڭ ئۇچۇرى 400بەتكە كۆپەيدى. )
2. ئىنتىل ئەپەندى تەمىنلىگەن كودلارنى 工具——宏——Visual Basic 编辑器نى ئېچىپ ThisDocumentقا چاپلىدىم. ساقلاپ، 宏نى 运行قىلدىم.
3. 400بەتتىكى ئۇچۇرلار يىغىنچاقلىنىپ 200دانە ھۆججەتكە ئايلاندى. (ھۆججەت نامى پوچتىلانغان ھۆججەتنىڭ دەسلەپكى ئىسمى ۋە 1دىن باشلاندى.)
____________________
ئىنتىل ئەپەندىم ۋە dostingiz ئەپەندىمگە رەھمەت

باھا سۆز

ياخشى: 5.0
dostingiz  ياخشى: 5
  يوللىغان ۋاقتى 2012-7-3 00:30:40

جابدۇق ئىشلىتىش پاش قىلىش

cukkunt 实名认证 

Rank: 4

تۆھپە
172
تىللا
317
شۆھرەت
373
يوللىغان ۋاقتى 2012-3-5 23:00:56 |ھەممە قەۋەتنى كۆرۈش
ئەسسالامۇ ئەلەيكۇم!
تىما دىگەن مۇشۇنداق بولسا، تىما يوللىغۇچى تىمىنى يوللاپ قويۇپ يوقاپ كەتمەي، ئاخىرىغىچە دىققەت قىلىپ، يەكۈننى ئېنىق چىقىرۋەتسە...
http://www.uyghurjava.com/

جابدۇق ئىشلىتىش پاش قىلىش

uydown 实名认证 

Rank: 5Rank: 5

تۆھپە
687
تىللا
972
شۆھرەت
1306

ئاكتىپ داڭدار دەلىللەنگەن ئەزا

يوللىغان ۋاقتى 2012-3-7 20:33:06 |ھەممە قەۋەتنى كۆرۈش
cukkunt يوللىغان ۋاقتى  2012-3-5 23:00
ئەسسالامۇ ئەلەيكۇم!
تىما دىگەن مۇشۇنداق بولسا، تىما يو ...

9-قەۋەتتىكى ئىنكاسىم تۇلۇق ئەمەستەك قىلامدۇ نىمە؟ ئۆزۈم قايتا- قايتىلاپ ئۇقۇپ باقتىم بولمىسا.... يەنىلا مەن باسقان قەدەم- باسقۇچلار شۇكەن بولمىسا...


بەك بولمىسا QQنۇمۇرۇمنى قېتىۋىلىڭ›› 519825396 ياكى بولمىسا چۈشۈنەلمىگەن يەر بولسا مۇشۇ يەرگە بىۋاستە قالدۇرۇڭ.

جابدۇق ئىشلىتىش پاش قىلىش

tokaylik 实名认证 

Rank: 4

تۆھپە
158
تىللا
483
شۆھرەت
379
يوللىغان ۋاقتى 2013-3-15 23:15:16 |ھەممە قەۋەتنى كۆرۈش
پوچتىلاشتىن پايدىلىنىپ ئائىلە ئارخىپى ياساپ باققانلار بارمۇ؟ دىمەكچ بولغىنىم بىر كەنتتىكى ھەمما ئادەمنىڭ تەپسىلى ئۇچۇرى يېزىلغان بىر ئېكىسئېل ھۆججىتى بار ئىدى، ۋورددا ئۇرۇلغان بىر جەدىۋەلگە پوچتىلاپ ئالماقچى ئىدىم، چاتاق يېرى بۇ جەدىۋەل ئائىلىنى بىرلىك قىلىپ بىر  بەتكە بىر ئائىلە ئەزالىرىنىڭ ئۇچۇرلىرىنى تودۇرۇش تەلەپ قىلىدىكەن، ئېكسئېل جەدىۋلىدىكى ئۇچۇرلار ھەر بىر ئادەمنى ئاساس قىلغان (بىر ئائىلە كىشىلرىنى ئارقىمۇ - ئارقا كىرگۈزۈلگەن). بىر ئائىلە ئەزالىرىنىڭ ئۇچۇرىنى بىر توغرا قۇرغا يىغىشتىن باشقا ئامال بارمىدۇ؟

باھا سۆز

Intil  مەن 200 نەچچە ئادەمنىڭ مۇئاش تاسمىقىنى مۇشۇ پوچتىلاشتىن پايدىلىنىپ ياساپ تارقىتىمەن.  تەپسىلاتى ئىنكاس يوللىغان ۋاقتى 2013-3-15 23:52:55

جابدۇق ئىشلىتىش پاش قىلىش

Intil 实名认证 

ئاتامان

بېكەت باشلىقى

Rank: 32Rank: 32Rank: 32Rank: 32Rank: 32Rank: 32Rank: 32Rank: 32

تۆھپە
18260
تىللا
22955
شۆھرەت
31515

دەلىللەنگەن ئەزا

يوللىغان ۋاقتى 2013-3-15 23:52:55 |ھەممە قەۋەتنى كۆرۈش
tokaylik يوللىغان ۋاقتى  2013-3-15 23:15
پوچتىلاشتىن پايدىلىنىپ ئائىلە ئارخىپى ياساپ باققانلا ...

مەن 200 نەچچە ئادەمنىڭ مۇئاش تاسمىقىنى مۇشۇ پوچتىلاشتىن پايدىلىنىپ ياساپ تارقىتىمەن.
ئەتە ئۆلۈپ كېتىدىغاندەك ياخشى ئەمەللەردە بول.

جابدۇق ئىشلىتىش پاش قىلىش

تىزىملىككە قايتىش تېما يوللاش
ئالىي ئىنكاس
B Color Image Link Quote Code Smilies
كىرگەندىن كىيىن ئىنكاس يازالايسىز كىرىش | تىزىملىتىش

يانفۇن|Archiver|intil.cn ( 新ICP备11001938号 )

GMT+8, 2013-4-1 15:33 , Processed in 0.120735 second(s), 21 queries .

Powered by Discuz! X2(NurQut Team) Licensed

© 2001-2011 Comsenz Inc.

چوققىغا قايتىش