ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] WORD¦Û­q¸q­¶½X¤À³Î---VBA

[µo°Ý] WORD¦Û­q¸q­¶½X¤À³Î---VBA

¦³¤@»Ý¨D...
¨Ò...¤@­Ó303­¶ªºdocxÀÉ®×
§Æ±æ¯à¦Û­q­¶½X»Ý¨D(1-90,91-158,159-235,236-265,266-299,300-303)
¤À³Î¬°6­ÓdocxÀÉ®×
½Ð¨D¸Ó VBA µ{¦¡½X¸Ó¦p¦ó?

¥ý§â§Aªº¥N½X¶K¤W¨Ó
Word§e²{·¥­PªºÀRºA¤§¬ü¡AExcel®i²{·¥­Pªº°ÊºA¤§¬ü¡C

TOP

¦^´_ 2# linyancheng

¤£¦n·N«ä!·PÁª©¥D¦^´_

¥uª¾ºô¸ô¤W±N¤@­Óword¤å¥ó«ö­¶¼Æ¤À³Î¬°¦h­Ó¤å¥óVBA...

¤j³¡¤À­×§ï±±¨î¨C¹j´X­¶¤À³Î¤@¦¸(¨Ò¦p³æ¤@¤@­¶¤À³Î©Î¬O¨C¹j´X­¶(¨Ò 10­¶)...

¥Ø«eµL¯à¦Û­q­¶½X»Ý¨DVBA¥N½X(1-90,91-158,159-235,236-265,266-299,300-303)

TOP

¥»©«³Ì«á¥Ñ ciboybj ©ó 2021-9-1 22:41 ½s¿è

¥H¤U¬O§Úª½Ä±·Q¨ìªº¤è¦¡
¬Ý¦³¨S¦³ª©¤Wªº¤j¯«¦³¨ä¥Lªº§ó¦nªº¤è¦¡
¦pªG­n§â¤@­ÓÀɮש6­Ó¡AÀ³¸Ó¬O§Q¥Î°Å¤U¡B§R°£µ¥¤è¦¡¥i¥H²³æ¹F¨ì
  1. Sub test()
  2.     '¨ì«ü©w­¶¼Æ¡A³]©w®ÑÅÒ
  3.         Selection.GoTo wdGoToPage, wdGoToAbsolute, 1
  4.         ActiveDocument.Bookmarks.Add name:="p1"
  5.         Selection.GoTo wdGoToPage, wdGoToAbsolute, 90
  6.         ActiveDocument.Bookmarks.Add name:="p90"
  7.    
  8.     '§Q¥Î®ÑÅÒ¡A³]©w½d³ò¡B¿ï¨ú½d³ò¡B½Æ»s½d³ò¤º®e
  9.         Dim orng As Range
  10.         Set orng = ActiveDocument.Range
  11.         orng.Start = orng.Bookmarks("p1").Range.End
  12.         orng.End = orng.Bookmarks("p90").Range.Start
  13.         orng.Select
  14.         orng.Copy
  15.    
  16.     '«Ø¥ß·sÀɮסA±N½Æ»sªº½d³ò¤º®e¶K¤J¦Ü·sÀɮפ¤¡A·sÀÉ®×¥t¦s«ü©w¦WºÙ
  17.         Dim docNew As Document
  18.         Set docNew = Documents.Add
  19.         With docNew
  20.             .Content.Paste
  21.             .SaveAs FileName:="Sample.doc"
  22.         End With
  23. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# ciboybj

«D±`·PÁ  ciboybj  ´£¨Ñªºµ{¦¡½X...
¸g¹ê´ú¤§«á¥i¨Ìµ{¦¡½X¦Û­q­¶½X½Æ»s...¶K¤W...¥t¦s·sÀÉ
©Î³\¬O¨Ó·½Àɮ׮榡°ÝÃD¡A©Ò²£¥Í¤§Àɮ׮榡«D­ì¥»ÀÉ®×­¶¦¸
¦A«×·PÁ ciboybj ´£¨Ñ¤§¤è¦¡   ^^

TOP

¥H¤U¬O§Úª½Ä±·Q¨ìªº¤è¦¡
¬Ý¦³¨S¦³ª©¤Wªº¤j¯«¦³¨ä¥Lªº§ó¦nªº¤è¦¡
¦pªG­n§â¤@­ÓÀɮש6­Ó¡AÀ³¸Ó¬O§Q¥Î°Å¤U ...
ciboybj µoªí©ó 2021-9-1 22:38


´ú¸Õ¤F¤@¤U¡AÁÙOK
º¡¦n¥Îªº¡AÁÂÁ§Aªº¤À¨É¡I

TOP

¦^´_ 6# ianlcc

ÁÂÁ±z...¦@¦P¤À¨É¹ê¥Î¤§³B

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤H¤£©È¿ù¡A´N©È¤£§ï¹L¡A§ï¹L¨Ã¤£Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD