Auto-populate field in Word 2007

Tutorials Win: Microsoft Windows Forum

- Previous
 - 1
 - Getting the styles from a template Here's the application. I'm building a Find and Replace dialog box, but one that just works on styles. For the Find list, it's easy to get the styles in use from the active document. The Replace list is supposed to come from the template attached to the document. So the idea is you can find any style in the document, but you can only replace them with "valid" styles as defined in the template. To get the styles from the attached template ... That's the problem. I have to avoid creating a new document from the target template, as that will trigger the ThisDocument > New processing. Here's what I finally settled on. Set objTemplate = Documents.Add( _ Template:=NormalTemplate.FullName, _ DocumentType:=wdNewBlankDocument, _ Visible:=False) objTemplate.CopyStylesFromTemplate (ActiveDocument.AttachedTemplate.FullName) For Each objStyle In objTemplate.Styles If objStyle.InUse = True Then Me.cboWithStyleName.AddItem (objStyle.NameLocal) End If Next objStyle objTemplate.Close savechanges:=wdDoNotSaveChanges The idea is to create a new document from Normal.dot (which has no ThisDocument > New code) and copy the styles from the target active document into the new document. Then I load the styles from that document into the list and close the dummy document. BUT For some reason when Visible:=False, the ThisDocument > New processing for the target document runs anyway! Try it. You'll see. Anybody know how to avoid this? Anybody know a slicker way of getting a list of the style names from the active document's attached template? Bear -- Windows XP, Word 2000 Tag: Auto-populate field in Word 2007 Tag: 108277
 - 2
 - Making 2 Tables into 1 Table More stuff on tables... Will MS _ever_ get it right? I've got 2 tables with a blank line in between them. (They were created independly of each other, not by simply splitting one table into two.) Normally, if you remove the blank line between 2 tables the tables become 1 automatically. However, sometimes (like this time) the tables stay as 2 tables, even though there's nothing between them - not even a continuous section break. I really don't want to have to go through all the work of recreating a single table as the 2 tables are both quite complex - lots of varying column widths within groups of rows and styles and shading and borders, etc. Does anyone know of a way - either manually or through code - to force these two tables to concatenate? -- Cheers! The Kiwi Koder (37 sleeps and counting...) Tag: Auto-populate field in Word 2007 Tag: 108276
 - 3
 - Error in programmatic launch of 2nd winword.exe instance (Word 200 I am creating software using c# which silently opens word document, saves it to some location and closes it. It uses Microsoft.Office.Interop.Word.ApplicationClass, so new winword.exe process (hidden to user) is launched and after operation completes, process is closed. This works fine with Word 2003. With Word 2007 it works as well, but there is one problem. Instantiating Word ApplicationClass fails when 2 conditions are met: another winword.exe instance is running (user has already some document opened) and there is some dot or dotx template in Word startup folder. In that case, Word shows message, that this template is locked for editing by first instance of Word and therefore cannot be loaded when launching sencond winword.exe instance. I remind, Word 2003 has no problem with this situation, problems occurs only in 2007. I will really appreciate any try to help me. But please, don't tell me, that only solution is using Marshal.GetActiveObject("Word.Application") and reusing already running winword.exe process in that situation. I already tried that, it works, but there are many consequent problems: for example it doesn't work when some modal dialog is just shown in Word, there are also problems with hidden winword.exe process which is used in Outlook 2003 for html email editing and other. Simply, I have good reasons to want to keep this functionality isolated in separate winword.exe process. So is there any way of achieving similar behavior of Word 2007 like Word 2003. How to avoid "xxx.dot is locked for editing" message? Thank you very much. Tag: Auto-populate field in Word 2007 Tag: 108272
 - 4
 - Cross Reference to the text of the bookmark does not work properly I created a userform using the instructions on your website: "How to create a userform". It stated the following: "Create two bookmarks in your template named â??Text1â?? and â??Text2â??. To create each bookmark, select a single space so that when you turn on the option to see the bookmarks under Tools>Options>View, the bookmarks appear as [] rather than |. When you create bookmarks with a space selected like this, the text will be inserted inside the bookmark, rather than after it. You can then use a cross reference to the text of the bookmark if you want the same information to appear in another location." Note the last sentence regarding cross reference. Everything seems to work, however, when I create a cross reference to any of the bookmarks, it does not seem to work. It displays the name of the Bookmark. For example, if my bookmark is named "Company_Long_Name" and then I create the cross reference, it displays: {REF Company_Long_Name} and not the actual name of the company. Any suggestions would be appreciated? I am using Word 2003 with XP Pro OS. thanks, Kerry Tag: Auto-populate field in Word 2007 Tag: 108266
 - 5
 - How Do I Intercept the Mouse Wheel? I want to take an action when the scroll wheel is moved while the Ctrl & Alt keys are down. Having taken that action, I want to abandon the mouse-wheel movement so that Word does not take its default action for that movement. Tag: Auto-populate field in Word 2007 Tag: 108265
 - 6
 - How can I intercept movements of the mouse wheel? I have an action I want to take on scroll-wheel-move together with the Ctrl & Alt keys. Having taken this action, I want to discard the mouse-wheel action so that Word does not take its default action after I take my action. Tag: Auto-populate field in Word 2007 Tag: 108264
 - 7
 - Save Word Document to Word XML Using VB Hi, I am using the following code to open my word document: Dim oWord As Microsoft.Office.Interop.Word.Application = New Microsoft.Office.Interop.Word.Application Dim missing As Object = System.Reflection.Missing.Value Dim XMLFiles As String = "My File location\" Dim XSLTPath As String = "My XSLT File.xslt" oWord.Documents.Open(XMLFiles & "ForChange.xml", missing, missing, missing, missing, missing, missing, _ missing, missing, missing, missing, missing, missing, missing, missing, _ XSLTPath) I want to save this file as Word XML using Visual Basic. How can I do this? I can do it fine through MS word, but saving it with Visual basic it saves it as a plain XML. I would really appreciate the help. Thanks Tag: Auto-populate field in Word 2007 Tag: 108260
 - 8
 - How I can fix as Heading for third row into long table in Word? I have a long table (on 5 pages). I want to fix for third row type like Headings (from menu Table). But it include also first and second rows. Can I fix only third row as Heading? Thank you. Sorry for my bed English... Tag: Auto-populate field in Word 2007 Tag: 108258
 - 9
 - Programmatical conversion of docx into doc We need to convert programmatically docx files into doc (xlsx into xls, pptx into ppt) server side, on-the-fly. Is there some converter component avalable? The target platform is windows (xp/2003/vista). The component should be DLL/COM in order to be used from VB6 code. Tag: Auto-populate field in Word 2007 Tag: 108255
 - 10
 - Application.FileSearch.Filename anomaly setting beginning of filename Hi: The problem is that I want to find files like "'INV*.DOC", but I'm also picking up "xxINV*.DOC" files as well. DOS doesn't have this problem, but Application.FileSearch.Filename seems to have it. If I specifiy a wildcard for the file extension, it works OK, but not if I specify the extension. e.g. "INV*.*" doesn't pick up the "xxINV*.DOC" files. Indexing is turned off. Using Word 2003. I have seen that there are problems with this function, but I can't believe at Office11 this problem hasn't been sorted out. Code example below Thanks in advance for your help. -- Roy Zider Public Sub TestFileSearch() ' 12/3/2007 lsz ' Testing application.filesearch for start of filename problem with xxinv*.doc ' Test with three files: t1.txt, t2.txt and xxt3.txt Dim oFS As Object Dim i As Integer Set oFS = Application.FileSearch With oFS .LookIn = "C:\temp test\filesearch" .FileName = "t*.*" ' OK - xxt3.txt not found ' .FileName = "t*.txt" ' not OK -- finds xxt3.txt as well ' .FileName = "inv*.doc" ' not OK -- finds xxinv.doc If .Execute > 0 Then MsgBox "There were " & .FoundFiles.Count & _ " file(s) found." For i = 1 To .FoundFiles.Count MsgBox .FoundFiles(i) Next i Else MsgBox "There were no files found." End If End With End Sub Tag: Auto-populate field in Word 2007 Tag: 108253
 - 11
 - Stop Loop and Get Value Hi, I have this loop (see code below) how can I get it to get the value and stop the loop and move on to the rest of the code which is in the With Doc. Thank you to anyone that helps, Happy Holidays. Ben Z. With WordDoc For Each oRow In oTbl.Rows If oRow.Cells(1).Range.Text = TargetText Then p = oRow.Cells(1).RowIndex & TextBox1.Text = p End If Next oRow End With End Sub Tag: Auto-populate field in Word 2007 Tag: 108247
 - 12
 - Printer Toolbar Button I'd like to add a couple of printer buttons to my toolbar that I could use to print to different printers. Word XP keeps the printer I changed it to as my default. Ideally I'd like the macro/button to ( for clarity I will name the printers 933 (my default) and colour): Get the name of my default printer which is 933 Change to a different specific printer (colour) and print the document Change my default printer back to 933 Tks. Brenda Tag: Auto-populate field in Word 2007 Tag: 108246
 - 13
 - Sendkeys vs. Selection.TypeText Hi: Out of old-timey recollection, I tried to use Sendkeys in Word 2003 to enter some text. But it didn't work, and I had to resort to Selection.TypeText. Code below. If someone would be kind enough to clarify why Sendkeys doesn't work in this context I would appreciate it very much. -- Roy Zider Sub PrintLayoutView() ' ' PrintLayoutView Macro ' Macro recorded 12/3/2007 by Roy Zider ' ' Developed to set invoice view to Print Layout View ' Selection.HomeKey Unit:=wdStory Selection.EndKey Unit:=wdLine ' .. this doesn't work: ' SendKeys "x", True ' SendKeys "{BS}", True ' .. this does: Selection.TypeText Text:="x" Selection.TypeBackspace If ActiveWindow.View.SplitSpecial = wdPaneNone Then ActiveWindow.ActivePane.View.Type = wdPrintView Else ActiveWindow.View.Type = wdPrintView End If ActiveWindow.Close End Sub Tag: Auto-populate field in Word 2007 Tag: 108245
 - 14
 - AddIn-Symbols and Toolbars, Word 2007 High The toolbar from my Word 2003-Template is set in the far right corner by Word 2007 under the Menu "Add-Ins". How can I place Buttons/Macros in other Menus f. e. "Start" and/or under the main- office-button in the upper left corner (file new ...) everytime word starts? Thanks for any help. Best Regards, George Tag: Auto-populate field in Word 2007 Tag: 108241
 - 15
 - saving workspace in 2007 Hello, I have a question. When I open up Word 2007, I would like all the files I have been working on to open automatically. Can this be done? I would appreciate any help. -Noah Walter Tag: Auto-populate field in Word 2007 Tag: 108235
 - 16
 - how do I change a word into a macro I accidently told Word to open a documetn titled PicMacs.bas to open in word and now it to open as PicMacs.bas. How do I get it to do that? Tag: Auto-populate field in Word 2007 Tag: 108233
 - 17
 - Office 2007: frustrating Digital ID prompt I'm just starting to use Word 2007, and I've created a couple of macros in my normal.dot. Now whenever I try to run them, I get a prompt: "Get a Digital ID" - which asks me to either buy a Digital ID or create one of my own. I don't want to do either, I just want to use my macros. Can someone help me get rid of this dialog? I have created a couple of trusted loctaions, and set up the security setting to "disable macros except when run from a trusted location" - but I still get this dialog even when the file is in a trusted location. Help! Thanks, Darren Tag: Auto-populate field in Word 2007 Tag: 108232
 - 18
 - Insert excel as ole object into word doc Hi there, I'm merging word documents into a word doc report using selection.insertfile command. I also want to insert excel files as ole objects nto the word report. How do I go about it? Thanks Garth Tag: Auto-populate field in Word 2007 Tag: 108225
 - 19
 - Word 2007 View When I use VBA to access one of the header or footer storyranges from the main storyrange, the view allows switches from PrintView to Draft. For example if the IP is in the maintext story and I run this code the header text will be selected but the view will shift to Draft.. Sub Test() ActiveDocument.StoryRanges(7).Select End Sub Does anyone know how to prevent this shift in view? Thanks. -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. Tag: Auto-populate field in Word 2007 Tag: 108222
 - 20
 - Example of Elsif needed to evaluate text variants Dear all, I'm still busy evaluating strings. I want to evaluate these strings: ". " " ." ", " " " & vbCr "." & vbCr vbCr vbTab etcetera, And then define an action for each possibility. I wonder is an Elsif statement is a good way to do this. Maybe I can avoid many (nested) If's that way. Could someone give me an example of such a structure? Best regards Shirley Tag: Auto-populate field in Word 2007 Tag: 108218
 - 21
 - How force a document open as Read Only Hi, I have Word 2003 and we are using a document management system (DM5) and I am trying to figure out if there is a way using DDE commands to force Word to open a document as Read Only. At first I was going to try and use command line switches to do this but I now realize that there is no such switch. We currently use the following DDE to open a document in Word: [DDE.DDEOpen(%"1"%)] This works well but I would like to force the document to be read only. Any help would be appreciated (or even point me to a good DDE reference page). Thanks David Neesen Tag: Auto-populate field in Word 2007 Tag: 108213
 - 22
 - Force to SaveAS .txt I have a button that prompts the SaveAs dialog box. How can I get the user to be forced to save the file only as .txt Tag: Auto-populate field in Word 2007 Tag: 108210
 - 23
 - SendKeys use for Hotkey? I run an application (WinAmp) that allows me to set up hotkeys. I want to write a macro that will send such a key stroke so that it will be sent from Word, interpreted as a hotkey usage and thus intercepted by the hotkey application. (Context: I'm doing transcription of audio files and will use toolbar buttons and voice commands to do things like Play, Pause, etc so that my hands won't have to control audio playback; I can keep typing and simply say "back" to "rewind" as my fingers catch up.) All the overhead works (toolbars, voice commands, etc) but using the SendKeys function doesn't get the job done because it sends the simulated keyboard use directly to Word. It never gets processed as a potential hotkey. The only workaround I've found is finding the hotkey's application, switching it to the foreground and sending the keystroke that way. Although this works for the hotkey, it fails overall because I can't keep typing ("catching up") once Word loses focus. Is there any way to use SendKeys or a similar function so that the simulated keystoke can be intercepted as a hotkey? Tag: Auto-populate field in Word 2007 Tag: 108208
 - 24
 - Macro to print to PDF and save using bookmark name I am using Word 97 and would like to write a macro that achieves the following in an active document: 1. Active document is printed in PDF format (usually this involves going to File -> Print -> Adobe PDFwriter) 2. When prompted to put in the filename for the PDF file, the filename is taken from a bookmark (named 'filename') in the active document. I would greatly appreciate any suggestions. Tag: Auto-populate field in Word 2007 Tag: 108199
 - 25
 - Moving code from MSWord to MSAccess This is a multi-part message in MIME format. ------=_NextPart_000_0006_01C83365.540730D0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable I have a macro in Word that I want to move to my MSAccess app and run = from MSAccess. It merges a form file with a data file to a new screen, = then prints and exits: Application.ScreenUpdating =3D False =20 Documents.Open FileName:=3D"K:\legalper\mergform.doc", = ConfirmConversions:=3D _ False, ReadOnly:=3DFalse, AddToRecentFiles:=3DFalse, = PasswordDocument:=3D"", _ PasswordTemplate:=3D"", Revert:=3DFalse, = WritePasswordDocument:=3D"", _ WritePasswordTemplate:=3D"", Format:=3DwdOpenFormatAuto With ActiveDocument.MailMerge .Destination =3D wdSendToNewDocument .Execute End With ' PRINT AND EXIT Application.PrintOut FileName:=3D"", = Range:=3DwdPrintAllDocument, Item:=3D _ wdPrintDocumentContent, Copies:=3D1, Pages:=3D"", = PageType:=3DwdPrintAllPages, _ ManualDuplexPrint:=3DFalse, Collate:=3DTrue, = Background:=3DFalse, PrintToFile:=3D _ False, PrintZoomColumn:=3D0, PrintZoomRow:=3D0, = PrintZoomPaperWidth:=3D0, _ PrintZoomPaperHeight:=3D0 ActiveDocument.Close SaveChanges:=3DwdDoNotSaveChanges Application.Quit SaveChanges:=3DwdDoNotSaveChanges =20 Thanks to RM, I have successfully revised as follows, but it's jamming = with my Application.PrintOut options in bold below: Public Function Env() Dim wd As Object Dim wdActiveDoc As Object 'RM: Added this to help ensure that you're 'working on the document you intend to. Dim wdField As Object 'RM: Note the change in name here to avoid 'ambiguity with the Field object in both Word = and 'Access. As well, I changed the type, since '(like Word.Application), you have to use late 'binding. =20 Set wd =3D CreateObject("Word.Application") wd.Visible =3D True wd.Application.ScreenUpdating =3D False =20 Set wdActiveDoc =3D wd.Documents.Open("K:\legalper\mergform.doc", = False, False, _ False, "", "", False, "", "", 0) =20 With wdActiveDoc.MailMerge .Destination =3D 0 .Execute End With wd.Windows("mergform.doc").Activate wd.ActiveWindow.Close 0 ' PRINT AND EXIT: PLEASE HELP ME HERE: wd.Application.PrintOut =3D "", 0, 0, 1, "", 0, False, True, = False, _ False, 0, 0, 0, 0 ------=_NextPart_000_0006_01C83365.540730D0 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.6000.16544" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY> <DIV>I have a macro in Word that I = want to move=20 to my MSAccess app and run from MSAccess. It merges a form file with a = data file=20 to a new screen, then prints and exits:</DIV> <DIV> </DIV> <DIV> <BLOCKQUOTE dir=3Dltr style=3D"MARGIN-RIGHT: 0px"> <BLOCKQUOTE dir=3Dltr style=3D"MARGIN-RIGHT: 0px"> Application.ScreenUpdating =3D False <?xml:namespace = prefix =3D o ns=20 =3D "urn:schemas-microsoft-com:office:office" /><o:p> </o:p> <FONT=20 size=3D2>   =20 Documents.Open FileName:=3D"K:\legalper\mergform.doc",=20 ConfirmConversions:=3D _ <FONT=20 size=3D2><SPAN=20 style=3D"mso-spacerun: = yes">       =20 False, ReadOnly:=3DFalse, AddToRecentFiles:=3DFalse,=20 PasswordDocument:=3D"", _ <FONT=20 size=3D2><SPAN=20 style=3D"mso-spacerun: = yes">       =20 PasswordTemplate:=3D"", Revert:=3DFalse, = WritePasswordDocument:=3D"",=20 _ <FONT=20 size=3D2><SPAN=20 style=3D"mso-spacerun: = yes">       =20 WritePasswordTemplate:=3D"", = Format:=3DwdOpenFormatAuto <FONT=20 size=3D2>    = With=20 ActiveDocument.MailMerge <FONT=20 size=3D2>      =20 .Destination =3D wdSendToNewDocument <FONT=20 size=3D2><SPAN=20 style=3D"mso-spacerun: = yes">       =20 .Execute <FONT=20 size=3D2>    = End=20 With   <FONT=20 size=3D2>    = ' PRINT AND=20 EXIT   <FONT=20 size=3D2><SPAN=20 style=3D"mso-spacerun: = yes">       =20 Application.PrintOut FileName:=3D"", = Range:=3DwdPrintAllDocument, Item:=3D=20 _ <FONT=20 size=3D2><SPAN=20 style=3D"mso-spacerun: = yes">       =20 wdPrintDocumentContent, Copies:=3D1, Pages:=3D"",=20 PageType:=3DwdPrintAllPages, _ <FONT=20 size=3D2><SPAN=20 style=3D"mso-spacerun: = yes">       =20 ManualDuplexPrint:=3DFalse, Collate:=3DTrue, = Background:=3DFalse,=20 PrintToFile:=3D _ <FONT=20 size=3D2><SPAN=20 style=3D"mso-spacerun: = yes">       =20 False, PrintZoomColumn:=3D0, PrintZoomRow:=3D0, = PrintZoomPaperWidth:=3D0,=20 _ <FONT=20 size=3D2><SPAN=20 style=3D"mso-spacerun: = yes">       =20 PrintZoomPaperHeight:=3D0 <FONT=20 size=3D2>   =20 ActiveDocument.Close=20 SaveChanges:=3DwdDoNotSaveChanges <FONT=20 size=3D2>   =20 Application.Quit SaveChanges:=3DwdDoNotSaveChanges<SPAN=20 style=3D"mso-spacerun: yes">   =20 </BLOCKQUOTE></BLOCKQUOTE> <o:p> Thanks to RM, I have successfully revised as = follows, but=20 it's jamming with my Application.PrintOut options in bold=20 below:</o:p> <o:p></o:p>  <o:p>Public Function Env()</o:p> <o:p>    Dim wd As Object     Dim = wdActiveDoc=20 As Object 'RM: Added this to help ensure that=20 you're           &nb= sp;           &nbs= p;      =20 'working on the document you intend to.     Dim = wdField As=20 Object 'RM: Note the change in name here to=20 avoid           &nbs= p;           &nbsp= ;  =20 'ambiguity with the Field object in both Word=20 and            =             &= nbsp; =20 'Access.  As well, I changed the type,=20 since           &nbs= p;           &nbsp= ;  =20 '(like Word.Application), you have to use=20 late           &nbsp= ;            =   =20 'binding.         Set wd =3D=20 CreateObject("Word.Application")     wd.Visible =3D=20 True</o:p> <o:p>    wd.Application.ScreenUpdating =3D=20 False       Set wdActiveDoc =3D=20 wd.Documents.Open("K:\legalper\mergform.doc", False, False,=20 _            &n= bsp;           =20 False, "", "", False, "", "", 0)     =    =20 With wdActiveDoc.MailMerge         = .Destination =3D 0        =20 .Execute     End With    =20 wd.Windows("mergform.doc").Activate     = wd.ActiveWindow.Close=20 0</o:p> <o:p></o:p>  <o:p>    ' PRINT AND EXIT: PLEASE HELP ME=20 HERE:</o:p> <o:p></o:p>  <o:p>       =20 wd.Application.PrintOut =3D "", 0, 0, 1, "", 0, False, True, False,=20 _         False, 0, 0, 0,=20 0</o:p></DIV></BODY></HTML> ------=_NextPart_000_0006_01C83365.540730D0-- Tag: Auto-populate field in Word 2007 Tag: 108184
- Next
 - 1
 - Question for Greg Masey on Conditional Headers and footers Greg your conditional header/footer great when pages are numbered the same as the pagenumber. But... when you have front matter numbered like i,ii, etc or when you have appendices that use numbers starting again at "1" then in the first case the conditional header does not update and in the later you get, I thing, the highest classification mark on the two page 1's. Any thoughts on how to avoid these issues? Tag: Auto-populate field in Word 2007 Tag: 108175
 - 2
 - Mail Merge data Hi, This is my first post on this forum so please excuse me if I am in the wrong group. I need to create a data base that I can print envelopes from. The data was originally typed into the label areas of a multiple label form. There are about 1100 records that I need to get into a list that can be managed. sorted by Zip, printed on envelopes, etc. I have been able to get some of the records to print, but because there are varying numbers of fields, the merge is not successful. I have copied and pasted the records into Excel and the name, street address, and city-state-zip get placed in separate cells in columns. I would like to get the data from Word into Excel and setup so that I can work with it. The list is for a friend, a 70 year old widow, who mails support letters for her missionary son who is living in Europe. Currently she prints on peel and stick labels, and then peels and sticks 1100 labels. Any help will be appreciated. Thanks in advance. Tag: Auto-populate field in Word 2007 Tag: 108174
 - 3
 - Nest If Statements in REF Field I am trying to set up multiple conditions for filling in a REF Field but am having trouble getting them all to work. I have two bookmarks: ReferringPhysician and AttentionLine. Depending on which bookmarks have information in them, I want to reference that particular information in the REF fields for the bookmarks. There are three choices: 1. If AttentionLine has information in the bookmark, I want to use that variable in the REF field. 2. If AttentionLine is blank and ReferringPhysician is not blank, I want to use the ReferringPhysician variable in the REF field. 3. If both AttentionLine and ReferringPhysician are blank, I want the REF field to be blank so that it does not generate an Error! message. This is the code I came up with for the IF statement, but obviously there is something wrong with the nesting: { IF { REF AttentionLine } <>"" {REF AttentionLine } { IF { REF AttentionLine } = "" AND { REF ReferringPhysician } <>"" { REF ReferringPhysician } "" } } Basically, this is how I want it to look: Attention: (variable AttentionLine) Referring Physician: (variable ReferringPhysician) Dear {REF AttentionLine} or {REF ReferringPhysician} or blank The "Dear REF" is what I am trying to address here. Hope this is clear and someone can help. Thank you! -- singeredel Tag: Auto-populate field in Word 2007 Tag: 108170
 - 4
 - Using Cross-Reference to Replicate Bookmark Text Hi all -- I'm a self-taught VBA newbie learning as I go, so please bear with me. I am currently using a UserForm to fill in Bookmarks in Word 2007. That part is working great. However, the inputted text in "Text1" also needs to reappear in several other locations in the resulting Word document. It is my understanding that if I insert a cross-reference, select Reference Type: Bookmark and Insert Reference To: Bookmark Text, then select the Text1 bookmark under For Which Bookmark:, the previously inputted text should reappear in the cross-referenced location in the document. Do I also need to include specific code in my With ActiveDocument area to accomplish this? Thanks for any guidance you all can provide! url:http://ureader.com/gp/1022-1.aspx Tag: Auto-populate field in Word 2007 Tag: 108165
 - 5
 - Find Style: Added Format I am relatively new to VBA. I want my macro to search for "Heading 2" but each time it runs additional formatting is added, and the style is not found. I recorded the macro, and left the default settings: Selection.Find.ClearFormatting Selection.Find.Style = ActiveDocument.Styles("Heading 2") Selection.Find.ParagraphFormat.Borders.Shadow = False With Selection.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute When I look at the find dialog, it shows: Style: Heading 2, Border: Top: (Single solid line, Auto, 0.75 pt Line Width)... I have tried using different templates too. Any help would be appreciated. Thanks John Tag: Auto-populate field in Word 2007 Tag: 108162
 - 6
 - OrganizerCopy fails, half remedy found but cause unknown Hello. I'd appreciate your help with the following. I am using COM interoperability libraries (JACOB) in Java to create Word instances and manipulate Word documents programmatically. I am using Microsoft Word 2003 Pro (11.6359.6360) SP1, Greek edition. Basically there is a template A somewhere on my drive, and a number of different B templates somewhere else. I create lots of documents from the B templates, and then copy parts of A template to them with OrganizerCopy. In particular, I copy a certain macro module and a toolbar. We do this copying for every new document - currently it's not the right time to judge why. So, ... after random periods of time (sometimes it's a month, and sometimes a few days) and while everything seems to have been working alright, OrganizerCopy suddenly fails, particularly when copying the toolbar (it runs okay for the macro module), and keeps failing each time it is invoked (for the toolbar), until I delete the Data key in the registry. (according to KB191178 (http://support.microsoft.com/kb/191178)). After this everything continues to run smoothly. The thing is that i don't understand why it happens, and what to do to avert this thing happening.. After some research we discovered that at the time of failure, the data key in the registry (when we export it in a Registry Hive file, binary form) is exactly 1069056 bytes long, while when we delete it, and it is recreated by word, it is almost 10 times smaller. I saw that it grows slowly, and (it seems) randomly - although when i open it in the editor, among chunks of unreadable bytes, you can decipher the filenames where we copy the toolbars... Does Word stores them in some way in the registry? How do I turn this off? I already tried to turn off the MRU list, but it doesn't help. Maybe i do something wrong - e.g. leaving some files open etc. and then word writes info to the Data key and makes it grow, - maybe it eventually reaches 1MB size, and can't grow any more, so OrganizerCopy fails? Any idea? Thanks a lot. Andrew Tag: Auto-populate field in Word 2007 Tag: 108159
 - 7
 - Merge 2 Word XML Files Hi, I am trying to merge 2 word XML files. I don't know if it is possible. If it is, how would I do that? Any Help would be appreciated. Thanks Tag: Auto-populate field in Word 2007 Tag: 108158
 - 8
 - Header and Footer StoryRanges Does anyone know why shapes in the header or footer story ranges are treated differently than shapes contained in the main text story? If I put two shapes containing text (text containing one spelling error) in the main text story and two shapes containing similar text in the header of a document and run this code: Sub CheckForErrors1() Dim pRange As Word.Range Dim oShp As Shape Dim i As Long For Each pRange In ActiveDocument.StoryRanges Do i = i + pRange.SpellingErrors.Count Set pRange = pRange.NextStoryRange Loop Until pRange Is Nothing Next MsgBox i End Sub This msgbox response is 2. The correct response should be 4 which is the results of running this code: Sub CheckForErrors2() Dim pRange As Word.Range Dim oShp As Shape Dim i As Long For Each pRange In ActiveDocument.StoryRanges Do Select Case pRange.StoryType Case 6, 7, 8, 9, 10, 11 i = i + pRange.SpellingErrors.Count If pRange.ShapeRange.Count > 0 Then For Each oShp In pRange.ShapeRange If oShp.TextFrame.HasText Then i = i + oShp.TextFrame.TextRange.SpellingErrors.Count End If Next oShp End If Case Else i = i + pRange.SpellingErrors.Count End Select Set pRange = pRange.NextStoryRange Loop Until pRange Is Nothing Next MsgBox i End Sub Why do shapes in storyrange type 6, 7, 8, 9, 10 and 11 have to be treated separately and individually? Thanks. -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. Tag: Auto-populate field in Word 2007 Tag: 108152
 - 9
 - Variance in word count Hi All I have an ordinary document where if I look at File - Properties - Stats, my wordcount is 256. This agrees with Tools -WordCount. In VB I execute x = ActiveDocument.Words.Count and x is 331. 256 is the correct word count. Can anyone explain how x becomes 331. It's not counting spaces because I have 244 of them, and I'm showing hidden text. Can VBA get the count from "File - Properties - stats" figure? TIA Ian B Tag: Auto-populate field in Word 2007 Tag: 108128
 - 10
 - Need program to convert plain text in doc into Word 2007 para Has anyone written a program that will scan through a word document that contains pasted plain text and removes the paragraph that is at the end of multi-line paragraphs? When I cut and paste from a plain text document into word, I get line lengths on each line that are determined by a paragrah mark (no word wrap). I've scoured the forums and help files & it appears that Word versions prior to 2007 had an autoformat feature that would do something like this. However, Word 2007 dropped that feature. I'm not a Word programmer. Can someone help with this? -- Thanks Dave Tag: Auto-populate field in Word 2007 Tag: 108126
 - 11
 - Error if macro "Run", No error if single stepped! Help? It was a reliable piece of code, and stuff around it has changed but the key point is that if I "Run" the macro (which copies from a bookmark in one doc and pastes the text into another) the pastespecial fails (empty clipboard), but if I single step through the code it all works perfectly (NB I have over-ridden the Ctrl-V keyboard shortcut for paste, but what should that have to do with it?). I removed all the modules from Normal.dot and then re-imported them (not sure if I quit in-between though) but on this occasion it made no difference... have I missed a trick? Ideas? TIA Julian Tag: Auto-populate field in Word 2007 Tag: 108117
 - 12
 - if Error, Pause or Loop Is there a way to, If Error then loop back and try again. This is a live file which is connected to my file and I have it save every 13 seconds but if the live link is saving, it errors out. '///////////////////////////////////////////////// Sub UpdateLinks() ActiveWorkbook.UpdateLink Name:= _ "\\DTCNAS-ILSP002\Tesing\LiveLink.xls" _ , Type:=xlExcelLinks Range("A1").Select Call UpdateTime End Sub Sub UpdateTime() Application.OnTime Now + TimeValue("00:00:13"), "UpdateLinks" End Sub -- ca1358 Tag: Auto-populate field in Word 2007 Tag: 108114
 - 13
 - Starting MSWord Merge from MSAccess I am collecting info from an MSAccess record and trying to merge it in Word. I would like this to work with any version of Word that the user may have installed. My MSAccess app will be a runtime app that I will be putting on various machines in different workplaces. Here is the code I am running from MSAccess: Public Function AddressBlock() As Boolean Dim wd As Object Dim wdActiveDoc As Object 'RM: Added this to help ensure that you're 'working on the document you intend to. Dim wdField As Object 'RM: Note the change in name here to avoid 'ambiguity with the Field object in both Word and 'Access. As well, I changed the type, since '(like Word.Application), you have to use late 'binding. Set wd = CreateObject("Word.Application") wd.Visible = True wd.Application.ScreenUpdating = False Set wdActiveDoc = wd.Documents.Open("K:\legalper\merge_ad.doc ", False, False, _ False, "", "", False, "", "", 0) With wdActiveDoc.MailMerge .Destination = 0 .Execute End With wd.Windows("merge_ad.doc ").Activate wd.ActiveWindow.Close 0 'It bombs here with "Automation error: The object invoked has disconnected from its clients", and the next line is highlighted. 'What I'm trying to do here is open merge_ad.doc, merge it, close merge_ad.doc, then save the 'resulting merged doc as "merged_ad.doc" wdActiveDoc.saveas Filename:="K:\legalper\merged_ad.doc", FileFormat:=0 Thanks in advance, Kathy Tag: Auto-populate field in Word 2007 Tag: 108110
 - 14
 - Link to external graphic file or insert/delete graphic I have a macro which I use to toggle certain graphics on or off. I have inserted the relevant piece of code below. The problem is that all my documents have mushroomed to 800+ kb in size from 40kb previously. My question is it possible to link to a graphic based in a permanent location rather than the graphic residing in each document? If not, is it possible to insert the file and delete it instead of toglling visible/hidden? I would need the graphic to be a precise size and at a precise location. Thanks. The current code is: With ActiveDocument ' Check current status - it's in fax format if graphics are visible boolFax = .Sections(1).Headers(wdHeaderFooterFirstPage).Shapes(1).Visible ' Show/Hide the graphics With .Sections(1) For Each aShape In .Headers(wdHeaderFooterFirstPage).Shapes aShape.Visible = Not boolFax Next aShape End With Tag: Auto-populate field in Word 2007 Tag: 108103
 - 15
 - Evaluating the previous and following character in a Search and Replace Hi all, Is there a way to evaluate the character before and after the found string in a routine like this: With rTmp.Find .ClearFormatting .Text = var1 .MatchWholeWord = True .MatchWildcards = False 'evaluate character here? .Replacement.ClearFormatting .Replacement.Text = var2 .Execute Replace:=wdReplaceAll End With Something like: If 'prevous charecter is a tab or a carriage return or ". " Then 'use a capital for the first character in the replacement string Else 'use no initial capital in the replacement string End If Best regards, Shirley Tag: Auto-populate field in Word 2007 Tag: 108102
 - 16
 - icon message box I have created a macro that shows a dialog box with all my installed printers where I work. My question is if there is any way to have the macro icon's yellow message box show the name of the currently selected printer when the user hovers the mouse over it? This would be similar to what now happens when I hover my mouse above the printer icon in Word. How would I go about controlling the message box for an macro's icon? TIA, Art® Tag: Auto-populate field in Word 2007 Tag: 108100
 - 17
 - UserForms to Populate FormFields I would like to use UserForms to Populate formfields rather then bookmarks is ths Possible? or is there a way for the bookmaks to hold a specific section of a document without disturbing the rest? With ActiveDocument .Bookmarks("tklarm1").Range _ .InsertBefore TextBox1 .Bookmarks("tklarm2").Range _ .InsertBefore TextBox2 End With UserForm14.Hide Tag: Auto-populate field in Word 2007 Tag: 108092
 - 18
 - Search and replace predefined sets of strings? Dear all, I need to build a code to search a predefined set of strings in a document and replace them by another predefined set of strings. Example: strS is (vssen | vsen | vss | vss. | vs. | vs | v. | v ) strR is (vÿerÿssen | vÿerÿsen | etcetera...) strS (search strings) and strR (replacement strings) have the same number of elements. The first element of strS should be replaced by the first element of strR, etcetera, but 1) how do I set a string variable to a limited list of search/replacement strings. Would that be an array? and 2) why does the .HighlightColorIndex = wdNoHighlight not compile in my first attempt (see below)? Sub Vop() Dim rTmp As Range Set rTmp = ActiveDocument.Range 'declare variables for search and replace texts Dim strS, strR As String Dim lngC As Long 'for loop to execute F&R with all strings With rTmp.Find .Text = strS .Replacement.Text = strR 'add .HighlightColorIndex = wdNoHighlight -> does not compile .MatchWholeWord = True .MatchCase = False .MatchWildcards = False While .Execute rTmp.start = rTmp.End rTmp.End = ActiveDocument.Range.End Wend End With End Sub Best regards - Shirley Nomey Tag: Auto-populate field in Word 2007 Tag: 108089
 - 19
 - Inserting images into a table, Having trouble inserting in next ce Hi, I am using late binding and trying to insert e.g. 9 images into a table (3x3) in Word. I am having trouble moving to the next cell; VB throws an error on 'wrdSelection.moveright 'Unit:=wdCell' - 'Bad command'. Are there any specific constants for wdCell or not? code extract: --------------- Dim WrdApp As Object Dim WrdDoc As Object Set WrdApp = CreateObject("Word.Application") Dim wrdSelection As Object Set wrdSelection = WrdApp.Selection Dim sPic As Object ... '1st Pic Set sPic = WrdDoc.InlineShapes.AddPicture(FileName:="C:\1.jpg", LinkToFile:=False, SaveWithDocument:=True) 'Move on 1 column wrdSelection.moveright wrdSelection.moveright 'wrdSelection.moveright 'Unit:=wdCell, Count:=1, Extend:=wdMove 'wdCell throws err msg 'Bad Command' 'WrdDoc.tables(1).Cell(2, 1).Range.Select ' just selects the column but does not affect next image insert '2nd Pic Set sPic = WrdDoc.InlineShapes.AddPicture(FileName:="C:\1.jpg", LinkToFile:=False, SaveWithDocument:=True) .... Thanks any help would be greatly appreciated! Cheers, Hendrik Tag: Auto-populate field in Word 2007 Tag: 108082
 - 20
 - I need a macro to search across multiple files Hello, I need to do search and replace across multiple doc files, and be prompted before each replace. Is there such a utility, macro? Thank you. T.I. Tag: Auto-populate field in Word 2007 Tag: 108078
 - 21
 - Add to listbox with multiple columns Using an Access Form with two listboxes... List1 and list2 with two columns in each list. when I click an item in list1 I want the data on that row to go into list2 with the columns reversed. IndexNum = 0 List1.column(1, List1.Listindex) into List2.column(0, IndexNum) & List1.column(0, List1.Listindex) into List2.column(1, IndexNum) I can enter List1.column(1, Listi.listindex) into the first column of List2 but do not know how to enter data into the second column of List2. Any ideas? Tag: Auto-populate field in Word 2007 Tag: 108076
 - 22
 - acces & word I have to fill documents from tables in access. Actually i have 3 choices: 1. Mailmerge in vb with the tables field 2. using a routine replacing all the parts i need using numbers like 1____ and 2_____ and so on So i can do a for next replacing the index & "_" using find (.MatchWildcards and so on) 3. using bookmarks and replacing them What do you suggest me as best solution? Tag: Auto-populate field in Word 2007 Tag: 108062
 - 23
 - Insert Bullet and Text Hi, Below is userform code im working on and I believe im close .. but just can't seem to get it to work. I know my code isint proffesional at all, but I hope you get the idea of what I was doing. Code Objective: Open a document which contains a table , search col1 for the word that matches a textbox in the userform (which becomes the target row) then depending on what the user selects in the dropdown deteminds the target Col to add a bullet to the list. *Note opening the doc and every thing works just not the inserting a bullet Thank you to anyone that helps. Happy Holidays! Ben Z. CODE: Private Sub CommandButton1_Click() 'Works with custom toolbar Dim sendbar As CommandBar Dim sendbox As CommandBarControl Set sendbar = Application.CommandBars("Todays-Task") Set sendbox = sendbar.Controls(2) Set sendtopic = sendbar.Controls(1) Dim Word As New Word.Application Dim WordDoc As New Word.Document Word.Visible = True 'Only true during testing' Dim strPath As String 'Open word doc' C = ActiveDocument.CustomDocumentProperties("Task").Value strPath = "C:\MyDocuments\" & T & "\Planning\2007\Todos.doc" Set WordDoc = Word.Documents.Open(strPath) With WordDoc System.Cursor = wdCursorWait Dim oTbl As Table Dim oCll As Cell '<><><><><>Search Col(1) For Keyword<><><><><><><>' Set oTbl = WordDoc.Tables(1) With oTbl For Each oCll In .Columns(1).Cells If oCll.Range.Text = sendtopic.Text Then p = oCll.RowIndex End If Exit For Next End With '<><><><> Based on userform info<><><>' If ComboBox2.Text = "Pay" Then Set oTbl = WordDoc.Tables(1) Set Selec = oTbl.Cell(p, 4) With Selec .EndOf Unit:=wdCell .TypeText Text:=sendbox.Text End With WordDoc.SAVE WordDoc.Application.Quit System.Cursor = wdCursorNormal MsgBox "Task Updated" End Sub Tag: Auto-populate field in Word 2007 Tag: 108061
 - 24
 - Bold a list of words in a given document Hi, I have a list of words in a doc say List.doc where I have listed a number of words one below the other like: Microsoft Word SAP E-business Suite Salesforce.com Iam currently using the below mentioned macro: Sub Mymacro() Dim sCheckDoc As String Dim docRef As Document Dim docCurrent As Document Dim wrdRef As Object sCheckDoc = "D:\List.doc" Set docCurrent = Selection.Document Set docRef = Documents.Open(sCheckDoc) docCurrent.Activate With Selection.Find .ClearFormatting .Replacement.ClearFormatting .Replacement.Font.Bold = True .Replacement.Text = "^&" .Forward = True .Format = True .MatchWholeWord = True .MatchCase = False .MatchWildcards = False End With For Each wrdRef In docRef.Words If Asc(Left(wrdRef, 1)) > 32 Then With Selection.Find .Wrap = wdFindContinue .Text = wrdRef .Execute Replace:=wdReplaceAll End With End If Next wrdRef docRef.Close docCurrent.Activate End Sub The problem here is that when I run this macro in another document having these terms it does runs but BOLDS the letters "Microsoft", "Word", "E", "Business", "Suite", "Salesforce" ".com" separately along with the full letters i.e., Microsoft Word, E-business Suite, Salesforce.com. I want only the full letters to be bolded. Kindly help me out in this. Thanks, Prashanth KR. Tag: Auto-populate field in Word 2007 Tag: 108060
 - 25
 - Temperature conversion macro I am trying to write a macro which searches through a document for a temperature value such as 395 Â°F and will convert it to celcius and display both values in the format 395 Â°F (xxx Â°C). I have tried all sorts of things and cannot get the code to find the temperature values and process it. Does anyone have any suggestions? Public Sub macro4() Dim oRg As Range Set oRg = ActiveDocument.Range Dim sText With oRg.Find .ClearFormatting .Replacement.ClearFormatting .Format = False .MatchWildcards = True .Text = ("[0-9]{1-4} Â°F") .Forward = True .Wrap = wdFindContinue Do While .Execute oRg.Text = ((5 / 9) * ((Left(oRg.Text, Len(oRg.Text) - 3)) - 32)) oRg.Collapse Direction:=wdCollapseEnd Loop End With End Sub This code works if I have it find a specifc value, but not if I use the [0-9]{1-4} values. Also, my output does not put it in the format I specified above, I just want to get it to work first. Also, I would like the output to be no more than one decimal place. Thanks for the help Tag: Auto-populate field in Word 2007 Tag: 108057

I have a form built in Word 2007. I have one field that contains a drop-down
list. I would like to auto-populate 3 other fields based on the user's choice
from the drop-down list. (i.e. I have a table with 4 columns, the drop-down
contains the records from the 1st colum and the fields I want to
auto-populate is from the associated columns 2-4)
I understand that I will need to run a macro, I am just not sure how to go
about this.

Anything will help. Thanks!

Top

Re: Auto-populate field in Word 2007 by Jay

Jay
Tue Dec 04 19:32:39 PST 2007

On Tue, 4 Dec 2007 17:19:02 -0800, ssprat
<ssprat@discussions.microsoft.com> wrote:

>I have a form built in Word 2007. I have one field that contains a drop-down
>list. I would like to auto-populate 3 other fields based on the user's choice
>from the drop-down list. (i.e. I have a table with 4 columns, the drop-down
>contains the records from the 1st colum and the fields I want to
>auto-populate is from the associated columns 2-4)
>I understand that I will need to run a macro, I am just not sure how to go
>about this.
>
>Anything will help. Thanks!

See http://gregmaxey.mvps.org/Linked_DropDown_Fields.htm.

--
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.

Top

Re: Auto-populate field in Word 2007 by macropod

macropod
Wed Dec 05 03:07:54 PST 2007

Hi ssprat,

If you check the 'Calculate on exit' property for your formfield and make sure it has a unique bookmark name, you can use a
cross-reference field coded as:
{REF DropDown1}
where 'DropDown1' is the bookmark name, wherever you want the field value replicated. No vba needed.

Note: You can create the field via Insert|Field, and filling in the bookmark name, via Insert|Cross Reference and choosing the
bookmark, or by pressing Ctrl-F9 and typing 'REF DropDown1' between the field braces.

Cheers
--
macropod
[MVP - Microsoft Word]
-------------------------

"ssprat" <ssprat@discussions.microsoft.com> wrote in message news:61D7AEBF-B8E0-4374-B374-348E84C5BB79@microsoft.com...
>I have a form built in Word 2007. I have one field that contains a drop-down
> list. I would like to auto-populate 3 other fields based on the user's choice
> from the drop-down list. (i.e. I have a table with 4 columns, the drop-down
> contains the records from the 1st colum and the fields I want to
> auto-populate is from the associated columns 2-4)
> I understand that I will need to run a macro, I am just not sure how to go
> about this.
>
> Anything will help. Thanks!

Top