Extract section of text from a form field
in [Word VBA]
|
From: johnnykunst on 23 May 2010 18:22 I am creating a filename from form fields using: Private Sub CommandButton1_Click() Dim pStr As String pStr = "C:\Users\John\Desktop\" 'Your directory pStr = pStr + ActiveDocument.FormFields("nameDD").Result pStr = pStr + " " pStr = pStr + ActiveDocument.FormFields("classificationDD").Result pStr = pStr + " " pStr = pStr + ActiveDocument.FormFields("wardDD").Result pStr = pStr + " .docx" ActiveDocument.SaveAs FileName:=pStr Dim sCode As String MsgBox "Your Intelligence report was saved to the central WINTEL inbox for processing & emailing. No further action is required; it is now safe to close the document" End Sub However, what i would like to do is for the "nameDD" only use part of the text- we use identification codes for each memeber of staff such as C832, E840, KA345, M65. As you can see, these codes vary in the number of characters. The codes are used to prefix names in the drop down- what I want to do is to extract just the characters from before a "-" (or other mark) so that from "C832- J Wirth" only the "C832" would be extracted, for "M64- S Hunter" only the M64 would be extracted, despite the first example being 4 characters, and the second example being 3 characters. Help is very much appreciated. --- frmsrcurl: http://msgroups.net/microsoft.public.word.vba.general
From: Jay Freedman on 23 May 2010 20:35 Replace your line that mentions "nameDD" with this: pStr = pStr + Split( _ ActiveDocument.FormFields("nameDD").Result, "-")(0) The Split function with "-" as the second parameter creates an array containing two strings: the text before the hyphen as element 0 and the text after the hyphen as element 1. (I assume that formfield nameDD is a dropdown, so you can guarantee that each entry has a hyphen after the identification code.) Then the (0) at the end selects the first string and attaches it to pStr. -- Regards, Jay Freedman Microsoft Word MVP FAQ: http://word.mvps.org Email cannot be acknowledged; please post all follow-ups to the newsgroup so all may benefit. On Sun, 23 May 2010 15:22:50 -0700, johnnykunst <user(a)msgroups.net/> wrote: >I am creating a filename from form fields using: >Private Sub CommandButton1_Click() >Dim pStr As String >pStr = "C:\Users\John\Desktop\" 'Your directory >pStr = pStr + ActiveDocument.FormFields("nameDD").Result >pStr = pStr + " " >pStr = pStr + ActiveDocument.FormFields("classificationDD").Result >pStr = pStr + " " >pStr = pStr + ActiveDocument.FormFields("wardDD").Result >pStr = pStr + " .docx" >ActiveDocument.SaveAs FileName:=pStr >Dim sCode As String >MsgBox "Your Intelligence report was saved to the central WINTEL inbox for processing & emailing. No further action is required; it is now safe to close the document" >End Sub > >However, what i would like to do is for the "nameDD" only use part of the text- we use identification codes for each memeber of staff such as C832, E840, KA345, M65. As you can see, these codes vary in the number of characters. The codes are used to prefix names in the drop down- what I want to do is to extract just the characters from before a "-" (or other mark) so that from "C832- J Wirth" only the "C832" would be extracted, for "M64- S Hunter" only the M64 would be extracted, despite the first example being 4 characters, and the second example being 3 characters. >Help is very much appreciated. > >--- >frmsrcurl: http://msgroups.net/microsoft.public.word.vba.general
From: johnnykunst on 24 May 2010 06:13 Works perfectly, thank you. --- frmsrcurl: http://msgroups.net/microsoft.public.word.vba.general/Extract-section-of-text-from-a-form-field
|
Pages: 1 Prev: How to change QAT button image in VBA? Next: Dependant text entry |