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

[µo°Ý] word ´¡¹Ï¤ù½s¸¹

[µo°Ý] word ´¡¹Ï¤ù½s¸¹

°²³]word¤¤¦³«Ü¦h¹Ï¤ù,§¨Âø¤å¦r,²Ä¤@±i¹Ïªº¤W¤èµù©ú(¹Ï1),¾l¦¹Ãþ±À,¤@¦@¦³100±i¹Ï,

²{¦b²Ä20±i¹Ï«e­±­n´¡¤@±i¹Ï,½s¸¹(¹Ï20),¨º­ì¥»ªº¹Ï20´N­n§ï¬°¹Ï21,«á­±ªº¦@­n§ï80¦¸?

·Q½Ð°Ý¯à§_¦³§Ö³t§ó§ï¤èªk? ©ÎªÌ¦³¨ä¥L¦n¿ìªk? (°£¤F¥Î¹Ï20aªº¤èªk¥~)

§Ú¬O¥Îword2003,¦ý§ó·sª©¦³¦¹¥\¯à¤]¥i§iª¾,ÁÂÁÂ!
Symis

§ï°_来´N¤ñ较³Â烦§a¡A¤@开©l´N应该¨Ï¥Î´¡¤J题ª`ªº¤è¦¡给图¤ù©Mªí®æµ¥编号
¨º样ªº话¡A¥H¦Z´¡¤J©ÎªÌ删°£图¤ù¡Aªí®æ¡A¤½¦¡Ô£ªº¡A³£¥i¥H«ö¦Û动§ó·s编号
现¦b­n§ïªº话¡A¥i¥H¥ÎVBA¡A®ÚÕu规则¥h´`环+1
  1. Sub PrivateChange()
  2. Dim i As Integer
  3. For i = 20 To 100
  4. With Selection.Find
  5.     .ClearFormatting
  6.     .Text = "图" & i                    '®ÚÕu»Ý­n­×§ï这两处¦ì¸m
  7.     .Replacement.ClearFormatting
  8.     .Replacement.Text = "图" & (i + 1)  '®ÚÕu»Ý­n­×§ï这两处¦ì¸m
  9.     .Execute Replace:=wdReplaceAll, Forward:=True, _
  10.         Wrap:=wdFindContinue
  11. End With
  12. End Sub
½Æ»s¥N½X
¦V°ª¤â学习

TOP

楼¥D¡A¦³¦n¤[没¤W来¤F¡A¤]¤£ª¾¹D¥N码对±z¦n¤£¦n¥Î
¦V°ª¤â学习

TOP

        ÀR«ä¦Û¦b : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD