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

[µo°Ý] §Q¥Î°j°é·s¼W®ÑÅÒªº¦WºÙ

[µo°Ý] §Q¥Î°j°é·s¼W®ÑÅÒªº¦WºÙ

¤j®a¦n
§Úªº¤å¥ó¤¤¤º®e¤j­P¦p¤U
1. UUUUUUU
2.OOOOOOO
3.DFFFFFFF
4.FFFFFFF
5.DFFFFF

§Ú·Q­n¦p¦ó§Q¥Î°j°é·s¼W®ÑÅÒªº¦WºÙ
¥H¤U¬°§Úªº¥N½X
  1. Sub ii()
  2. Dim orng As Range
  3. Dim i, j As Integer
  4. Dim a, b As String
  5. Selection.HomeKey Unit:=wdStory
  6. For i = 1 To 10
  7. a = i & "°_"
  8. b = i & "²×"
  9. Selection.Find.Execute FindText:=i & ".", Forward:=True, Wrap:=wdFindStop
  10. Selection.MoveRight Unit:=wdCharacter, Count:=2
  11. ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:=a
  12. Selection.Find.Execute FindText:="2.", Forward:=True, Wrap:=wdFindStop
  13. Selection.MoveLeft Unit:=wdCharacter, Count:=2
  14. ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:=b
  15. Set orng = ActiveDocument.Range
  16. orng.Start = orng.Bookmarks(a).Range.End
  17. orng.End = orng.Bookmarks(b).Range.Start
  18. orng.Select
  19. ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="num" & i
  20. ActiveDocument.Bookmarks(a).Delete
  21. ActiveDocument.Bookmarks(b).Delete
  22. Next
  23. End Sub
½Æ»s¥N½X
°õ¦æ«á·|¥X²{¥H¤U¿ù»~

DDD.png
2014-7-30 22:18


·Pı¤W¬O¦WºÙµLªk§Q¥Î°ÊºAªº¤è¦¡¶i¦æ©w¸q


¤£ª¾¤j®a¬O§_ª¾¹D­n¦p¦ó¸Ñ¨M¦¹°ÝÃD


ÁÂÁÂ~

ǢǢ
§Ú¦Û¤v§ä¨ìµª®×¤F
­ì¨Ó¬O®ÑÅÒªº¦WºÙ ²Ä¤@­Ó¦r¤£¥i¥Î¼Æ¦r¨Ó©R¦W

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD