Okay - Hang in there with me while I try to explain...
What I have so far:
When I Create a New Document via Commandbutton1 the ActiveDocument.Name is the string value on the .txt file + 1. (I'm generating design numbers that count up). Basically for every new document via the macro is a new design number naming that document.
When I Save Document (commandbutton2) - The New Document.Name should replace the string in the txt file with 1001. But this part isnt working.
And it should keep going up from there every time i create a new document and save it.
Private Sub commandButton1_Click()
Dim TextFile As IntegerDim FilePath As StringDim FileContent As String
On Error Resume Next FilePath = "C:\Users\chier\Desktop\Design Number" & ".txt"
TextFile = FreeFile
Open FilePath For Input As TextFile
FileContent = Input(LOF(TextFile), TextFile)
ActiveDocument.Name = FileContent
Close TextFile
Dim doc1 As DocumentSet doc1 = CreateDocument() doc1.Name = FileContent + 1 End Sub
Private Sub commandButton2_Click()
'(This is where stuff starts action crazy i think). IT doesnt save properly i think.
Dim TextFile As IntegerDim FilePath As String
FilePath = "C:\Users\chier\Desktop\New Text Document" & ".txt"
Open FilePath For Output As TextFile ' Replaces Each Line in File'Open FilePath For Append As TextFile ' Adds additional Lines
On Error Resume NextPrint #TextFile, ActiveDocument.Name
ActiveDocument.SaveAs "C:\Users\chier\Desktop\" & ActiveDocument.Name & ".cdr"End Sub
Any adjustments will be helpful :)
I may not correctly understand exactly what you want to do.
Are you storing only one number? And then increasing that stored number by 1 every time a new document is created using this macro? Not saving a list of numbers in the file?
If it's just one number, then instead of storing it in a text file, have you considered having the macro store it in the Registry?
Oh! I should note that the txt file will be shared between me and another person. So when I save my document they pick up from the last number I left off at and visa versa. The txt file will be saved on the server. I dont think the registry will work in this scenario?