I'm having issues changing the user initials with my vba code. This code works for changing the application.username, and then I would like to change the initials based on cell A41 (it runs a formula based on A40 to get initials based on Last, First).
EDIT: I have found a way of changing it, but need help with "Find" in VBA, see comment #3 for code.
cell A41 is
Please Login or Register to view this content.Thank you!Please Login or Register to view this content.
Justin
Last edited by jwlamb; 01-10-2014 at 10:03 PM. Reason: added formula
I have found the object for word, and can pull the set initials, but I cannot find a way to change them, other than a pre-defined "ABC".
Please Login or Register to view this content.
I think I got it if anyone can help me converting thisinto VBA code. When I just paste it into the VBA, I get a "Compile error - Sub or Function not defined" and "File" is highlighted yellow.Please Login or Register to view this content.
Thank you,
So the problem is a parsing issue. Give an example of a value and the expected return value from the formula. There are easier ways to parse in VBA versus built-in formulas.
I figured it out. The "find" feature does not work in VBA the same as it does in a regular formula. Then I couldn't get the objWord.UserInitials to match the cell value. But what I found is if I change it to a string UCase(Sheets("requirements").Range("A42")) it works fine. Below is my code, I modified it to be cells A1 and A2 on a new worksheet "Username tab" and hid the tab. FYI, I have no idea what parsing is.
A1 get's it's info from the Application.UserName which is Last, First M.
A2 isThe VBA isPlease Login or Register to view this content.
Please Login or Register to view this content.
Last edited by jwlamb; 01-10-2014 at 11:28 PM.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks