إضافة رقم متسلسل الي ملف وورد مع فتحه

[محمد طاهر عرفه]

مرفق مثال

و هو يعتمد علي عمل اشارة مرجعية فى الخلية التي تسبق الرقم

ثم التحرك منها الي الرقم و إضافة واحد عليه

و لم يتم التحرك الي الرقم مباشرة لأن الاشارة المرجعية ستضيع فى هذه الحالة اذا تم تغيير القيمة

Private Sub Document_Open()

mm

End Sub


-----

Sub mm()

Selection.GoTo What:=wdGoToBookmark, Name:="m1"

Selection.MoveRight Unit:=wdCell

    Myval = Selection.Text

    Myval = CInt(Myval) + 1

    Selection.TypeText Text:=Myval

End Sub

addoneOnOpen.rar