Results 1 to 3 of 3
  1. #1
    2 Star Lounger
    Join Date
    Jun 2002
    Posts
    122
    Thanks
    1
    Thanked 0 Times in 0 Posts
    Hi Hans,

    I can't reply to your reply to my original post - can only access replies through lo-fi.

    Only the first letter of database changes, other than that, the rest is always the same. So far I have this:

    My boss worked this out:

    Dim footertext, dbaseletter As String
    Dim dbasepos, lastslashpos As Integer
    footertext = ActiveDocument.FullName
    dbasepos = InStr(1, footertext, "imanage")
    dbasepos = dbasepos - 1
    dbaseletter = Mid(footertext, 13, 1)
    MsgBox dbaseletter
    MsgBox footertext

    He says all I need now is to find a reverse string to isolate the filename but I have absolutely no clue where to start and he's gone off to a meeting.

    Thanks for your help as always,

    Violet

  2. #2
    Plutonium Lounger
    Join Date
    Nov 2001
    Posts
    10,550
    Thanks
    0
    Thanked 7 Times in 7 Posts
    [quote name='violet' post='760800' date='Feb 24 2009, 10:24 AM']He says all I need now is to find a reverse string to isolate the filename[/quote]
    The filename is ActiveDocument.Name

  3. #3
    Plutonium Lounger
    Join Date
    Nov 2001
    Posts
    10,550
    Thanks
    0
    Thanked 7 Times in 7 Posts
    I have locked this thread as we appear to have a duplicate post, please see Post 760796 if you want to reply.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •