How do I init a variable defined in the Options Explicit area?

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - how do i change an integer to text equivalent (1 to "one", etc) -- seeking help Tag: How do I init a variable defined in the Options Explicit area? Tag: 116695
  - 2
    - Userform help text I have a textbox on a userform where I would like to have some help available to the user via F1 or something much like Help on a textfield of a doc or template. There is some info on the property of HelpContextID but, I have not used this before and search does not provide much help either. I could use a label but, would be rather lengthy. Any help on doing this appreciated. Thanks, Bryan Tag: How do I init a variable defined in the Options Explicit area? Tag: 116694
  - 3
    - How can I import the value of a cell from a spreadsheet into a txt Is there a script of some way to import the value of an external spreadsheet cell into a txt box or label in a word document. That txt box or label would have to dynamically update every time the document is opened, so it would have to read every time the document is opened. Thanks in advance for your help. Tag: How do I init a variable defined in the Options Explicit area? Tag: 116692
  - 4
    - sporadic macro function I use the following code to automate the digital signing of word documents. Most of my users use Word 2003, but some use 2007. This doesn't work with 2007, it creates the file, but does not digitally sign it. Occasionally, I have a user that states that it just does not work (no error message). Any thoughts? Private Sub Sign_Click() Dim WshShell As Object Dim SpecialPath As String Dim Lvalue As String Dim Sig As Signature Dim MyOrt As String Dim Doc As Object Set WshShell = CreateObject("WScript.Shell") SpecialPath = WshShell.SpecialFolders("Desktop") Set Doc = ActiveDocument Lvalue = Format(Date, "yyyymmdd") MyOrt = InputBox("Initials") Doc.SaveAs (SpecialPath & "\" & Lvalue & "-" & MyOrt & "-QAForm") Set Sig = ActiveDocument.Signatures.Add ActiveDocument.Signatures.Commit MsgBox "File saved to desktop and signed." End Sub Tag: How do I init a variable defined in the Options Explicit area? Tag: 116691
  - 5
    - Updating Values of Embedded Spreadsheet I have a spreadsheet that I linked to in my Word Document. Actually the way I did it was to insert an Excel Worksheet and I put this code below as the value of the cell =SUMPRODUCT('C:\Documents and Settings\cashmoregf\Desktop\2008_Injury_Report.xls\[2008%20Injury%20Report.xls]2008 Injury Rpt'!$O$4) This value should then go to the spreadsheet mentioned and grab the most current value in that spreadsheet. However, when I open the Word document the values don't update with what is current in the sheet in the referenced sheet. I'm not sure what I am doing wrong. How do I make this value update in the document when the Word document is opened. If I put this code in a cell in a True Worksheet and open it, it automatically updateds. Thanks in advance for any ideas. Gordon Tag: How do I init a variable defined in the Options Explicit area? Tag: 116689
  - 6
    - help with word Hi All I recently used a word document that was brill to use, when you typed a code such as "WD 13" and pressed enter a full paragraph from another document was inserted. How are such documents created, i have a full surveying document that i want to use and want to be able to just type a code and the paragraph i want be inserted into a schedule of works. Any help would be really appreciated. -- thanks c p Tag: How do I init a variable defined in the Options Explicit area? Tag: 116684
  - 7
    - muliple select option fron record source hello friends, I want to know how to multi select the cells from recordsourcein a form. when i tried using control, multi select is not happening. when tried with shift only continuous cells can be selected. I want to select it random. Hope u get my problem. Please help me to doing so.. Tag: How do I init a variable defined in the Options Explicit area? Tag: 116677
  - 8
    - Help with Borderrs and Shading Dialog I am trying to return the value of user settings in the Borders and Shading dialog. I can determine the Left, Right, Top, Bottom, Horizontal, and Vertical border styles selected an then use that information later on to set one or more table borders. What I can't figure out is how to determine the line color and line width that a user selects. Here is simplified version of my overall code that shows how I can get the border style choosen in the dialog. I just can't figure out how to return the user selected line width or color. Thanks. Sub Test() Dim LS As Long Dim RS As Long Dim TS As Long Dim BS As Long Dim VS As Long Dim HS As Long Dim Color '???????????? Dim LineWidth '????????????? With Dialogs(wdDialogFormatBordersAndShading) If .Display <> 0 Then LS = .Leftstyle RS = .RightStyle TS = .TopStyle BS = .BottomStyle HS = .HorizStyle VS = .VertStyle Color = ?????????????? LindeWidth = ????????????? End If End With With Selection.Tables(1) With .Borders(wdBorderLeft) .LineStyle = LS .LineWidth = wdLineWidth050pt 'Replace this with LineWidth selected by user .Color = wdColorRed 'Replace this with Color selected by user End With End With End Sub -- Greg Maxey - Word MVP My web site http://gregmaxey.mvps.org Word MVP web site http://word.mvps.org Tag: How do I init a variable defined in the Options Explicit area? Tag: 116660
  - 9
    - Table reference and calculation I have a document that has several tables, (about 35+). These documents will be used to create some base documents for other staff to use. The tables represent different "sections" of the document where staff will enter scores for questions in the tables. The first section of the document may have between 3-20 tables and the scores will need to be calculated. But I will not know exactly how many tables there will be in the first section from document to document. How can I check to determine how many tables are in the first section and then calculate the data in the second column? I do not want to include tables in the total that are in the rest of the document. Is there a way to name a table? I can bookmark a table, but not sure how to reference the cell value. Any help is appreciated. thanks pf Tag: How do I init a variable defined in the Options Explicit area? Tag: 116659
  - 10
    - Trying to create a conditional field or cell in a Word form I'm trying to recreate in Word a form I was able to create in Excel. Is it possible and, if so, how? Here's the behavior I wish to reproduce: 1) A cell has a list of numerical values. If the user selects a value above a given cutoff point, the cell changes color. 2) In a Yes/No/Uncertain scenario, the cell changes to one color if the user selects No, and to another color if the user selects Unknown. I'm going to re-post in the Programming forum in case that's the more appropriate choice. Thank you very much. Tag: How do I init a variable defined in the Options Explicit area? Tag: 116656
  - 11
    - Creating a conditional fill-in field I'm trying to recreate in Word a form I was able to create in Excel. Is it possible and, if so, how? Here's the behavior I wish to reproduce: 1) A cell has a list of numerical values. If the user selects a value above a given cutoff point, the cell changes color. 2) In a Yes/No/Uncertain scenario, the cell changes to one color if the user selects No, and to another color if the user selects Unknown. I'm going to re-post in the Forms forum in case that's the more appropriate choice. Thank you very much. Tag: How do I init a variable defined in the Options Explicit area? Tag: 116655
  - 12
    - How to open dialogue SaveAs but the field "Name of file" should has Hello. There is the macro for saving the document with name from bookmark (thank's G.Mayor and D.Robbins). Sub FileSave() Dim fName As String On Error Resume Next If Len(ActiveDocument.Path) = 0 Then fName = ActiveDocument.Bookmarks("Bookmark1").Range If Len(fName) = 0 Then MsgBox "File naming bookmark is empty or missing." & vbCr & _ "Document has not been saved" Exit Sub End If ActiveDocument.SaveAs fName & ".doc" Else ActiveDocument.Save End If End Sub I need to show dialogue Sava As that user can select any folder for saving document. But the field "Name of File" should has as name my bookmark. Is it probably? How? I did so temporary: Sub FileSave() Dim fName As String Dim PathName As String PathName = "c:\" On Error Resume Next If Len(ActiveDocument.Path) = 0 Then fName = ActiveDocument.Bookmarks("bookmark1").Range If Len(fName) = 0 Then MsgBox "File naming bookmark is empty or missing." & vbCr & _ "Document has not been saved" Exit Sub End If ActiveDocument.SaveAs PathName & fName & ".doc" Else ActiveDocument.Save End If End Sub Tag: How do I init a variable defined in the Options Explicit area? Tag: 116653
  - 13
    - Macro Security Settings Disabled 2007 - Bug? Is this a bug with trusted locations and VBA File System Object disabling Macro Security Settings in Word 2007 and I presume Excel also. I'm trying to change the location of my trusted Workgroup and have a subfolder and I cannot do it - my VBA/XML says no templates found if I try to go more than one folder deep with a trusted location. Or I receive Macro Security Settings Disabled. Anyone else having this problem with dynamic menus? Tag: How do I init a variable defined in the Options Explicit area? Tag: 116643
  - 14
    - insufficient memory while using opening .dot Hi all, I've a .dot file that is created with Word 95. The file is around 1MB. I try to open this file with Word 2003, I get an insufficient memory error. I spot that Word 2003 is trying to convert marco, after sometime, it prompt the insufficient memory error Tag: How do I init a variable defined in the Options Explicit area? Tag: 116642
  - 15
    - How do I filter a database for information? I am working on a simulated ICT test and one of the instructions is: Filter the database to identify those students who have included a tie breaker with their entry. How do I do this? Tag: How do I init a variable defined in the Options Explicit area? Tag: 116639
  - 16
    - Resize Images of a Specific Style Only I have a macro that resizes all images in a Word document to 75% of their original size. I would like to make it so that the macro only resizes images that have a certain style applied, such as images_steps. How would I do that? Here's the image macro for resizing. Sub ImageShrink() Dim PecentSize As Integer Dim oIshp As InlineShape Dim oshp As Shape PercentSize = InputBox("Enter percent of full size", "Resize Picture", 75) For Each oIshp In ActiveDocument.InlineShapes With oIshp .ScaleHeight = PercentSize .ScaleWidth = PercentSize End With Next oIshp For Each oshp In ActiveDocument.Shapes With oshp .ScaleHeight Factor:=(PercentSize / 100), _ RelativeToOriginalSize:=msoCTrue .ScaleWidth Factor:=(PercentSize / 100), _ RelativeToOriginalSize:=msoCTrue End With Next oshp End Sub Tag: How do I init a variable defined in the Options Explicit area? Tag: 116631
  - 17
    - browse and attach file Is there a macro, field, or content control in Word 2007 that will allow the user of a form to open the Browse window, select a file, and paste the directory path of that file as a hyperlink into the form? InfoPath has a control that does this, but I can't find one in Word. Tag: How do I init a variable defined in the Options Explicit area? Tag: 116629
  - 18
    - Macro to Calculate a future date I am trying to create a macro in Word (I have never done before) to calculate a future date i.e., 90 days from the current date. I found some information on line for the calculation command line but when I run the macro, it inserts the command line where the future date is. What am I doing wrong? Tag: How do I init a variable defined in the Options Explicit area? Tag: 116628
  - 19
    - how to get current theme of Word 2007 hi, i want to know the current theme of Word 2007. (whether it is blue, black, or silver) I am using following in C#: applicationObject.ActiveDocument.ActiveThemeDisplayName applicationObject.ActiveDocument.ActiveTheme However, i get "none" as a result, always for both statements. does anyone know how to get the same ? Thanks, ~Anita Tag: How do I init a variable defined in the Options Explicit area? Tag: 116626
  - 20
    - Close Dialog boxes Hey, I remember seeing a post in the past, but I can't seem to find it now. I am programatically closing a word doc and it dosen't close the whole thing. It leaves the word pane open still because a dialog box opens that says something like, "There is alot of info in the Clipboard. Would you like to keep it available when Word closes?". Isn't there a way to say something like WdDialog boxes = false. Not that exactly like that, but just to get the point. I don't want to be promted for the ClipBoard thing. Thanks.... Tag: How do I init a variable defined in the Options Explicit area? Tag: 116616
  - 21
    - VBA to add button to QAT Hello Is there any VBA to add a builtin word button to the Quick Access Toolbar and not rely on the user doing it. This code will be incorporated into an addin. Thanks Tag: How do I init a variable defined in the Options Explicit area? Tag: 116607
  - 22
    - Resize imported pictures Hi, I have a macro that goes through all imported pictures and change the size on them to the same value. The new size is taken from my PicResize user form. Sub Resize () Dim oInl As InlineShape Size = PicResize.TextBox1.Value For Each oInl In ActiveDocument.InlineShapes oInl.ScaleWidth = Size oInl.ScaleHeight = Size Next End Sub Now I want to modify the code so that it only take the selected pictures. How shall I do that? What happens if nothing is selected? What happens if other items like text or tables are selected? Best regards, SÃ¶ren Tag: How do I init a variable defined in the Options Explicit area? Tag: 116599
  - 23
    - How to define clicking of buttons "Save" or "Save As" by user ? Hello. I need to define clicking of the buttons "Save" or "Save As" by user on the tollbar. Next I will add to name of file of the value of one bookmark. How can I define it? Is it correct: if Activedocument.Saved = False Then Activedocument.Saveas ... ... my code... Thank you very much! Tag: How do I init a variable defined in the Options Explicit area? Tag: 116598
  - 24
    - Sentence count in brackets after each period.... Can it be done? I would like to get Word to count each word in a given sentence, then tally that number and place it in brackets after the period. Can Word do this with a macro? Any suggestions will be much appreciated. Tag: How do I init a variable defined in the Options Explicit area? Tag: 116595
  - 25
    - Underline text Hi, I have the following macro that will underline the first sentence of any text formatted with a Heading 1 style. I'm trying to rewrite the macro to accommodate legal style numbering as in: ARTICLE I LEASES AND RENTS In this example "article 1" is auto numbering coming from the style and then there's a line break (Shift+Enter). I want the macro to underline the title of the section, in this case 'LEASES AND RENTS". Here's what I have (thanks to this newsgroup) that works for outline numbering: Sub BoldHeadingArt() Dim myPara As Paragraph Dim rngPara As Range For Each myPara In ActiveDocument.Paragraphs If myPara.Style = ActiveDocument.Styles(wdStyleHeading1) Then Set rngPara = myPara.Range.Sentences(1) With rngPara .Font.Bold = True End With End If Next myPara End Sub Should I assign the range to something other than a sentence (because there will be no period involved), I've tried everything I know and cannot make this work. Can you help? Thanks Tag: How do I init a variable defined in the Options Explicit area? Tag: 116590
- Next
  - 1
    - Macro misbehaving... I have Office 2007, but I've designed a template and a Macro for an employer who has people using both Word 2002 and 2003. Since it's for someone else with a different versions of Word, I can't store it normally. Since I don't know the file structure of their computers, I figured it would be best to just create a folder on my C-drive so that they can store it in the same place when I send it to them. Here's the problem. I've designed 2 templates. The first template needs to call up the 2nd and place the contents of the 2nd template at the top of various pages in the 1st one. That's where the macro comes in. It inserts a page break then opens the 2nd template, copies the contents and then pastes those contents at the top of the new page. I purposely instructed the Macro so save in the normal.dotm file so that it could be run from any other file when the keyboard shortcut is used. It works like a charm from within the first template as long as the template itself is open. However, when I attempt to use the template as it is designed to be used...meaning that it opens a copy of itself in a temporary document (Document1, Document2, etc.), then the Macro fails to work. I get errors stating that part of the component set is missing...the actual template that has opened a copy of itself instead of the original. I've deleted and re-recorded this Macro so many times...but the results are always the same. What am I doing wrong? I have been trying to get this done for over 5 hours now. Is it because the documents are not being stored in the folders that Word normally stores them in? Can anyone please give me some suggestions? Thanks! USEN Tag: How do I init a variable defined in the Options Explicit area? Tag: 116583
  - 2
    - template - using fill in feature question I created a letter template using fill in fields - when i open the template my pop up questions appear and at completion of the last popup question variable the letter is visable. My question is - is it possible to show the letter behind the pop ups so that the user can see the letter as it is filling in, vs right at the end only? Thanks Tag: How do I init a variable defined in the Options Explicit area? Tag: 116582
  - 3
    - AutoIncrement field each time document is printed ? Hello: I have read notes like -Creating sequentially numbered documents (such as invoices)- but could not find exactly what I am looking for. Please I would appreciate advice in this case. I have a simple document, and want to show a field or textbox (really cannot decide wich of them) that autoincrement in 1 each time the doc is saved. It is convenient to protect that number from other user changes. I have experience in Excel VBA but Word objects are still a bit stranger for me, so please, show me the details. My best regards. Roberto Tag: How do I init a variable defined in the Options Explicit area? Tag: 116581
  - 4
    - Auto adjust a paragraph when text field is empty How can I make the document adjust itself (move up a space) if I leave a text field empty? Tag: How do I init a variable defined in the Options Explicit area? Tag: 116578
  - 5
    - Negative value when deduction is being selected Hi; I would appreciate if someone could help me with the following: I've created a form with a field for the user to key in Amount and 1 drop down list for the user to specify the Action needed. I want the system to automatically capture the amount as a negative value whenever I select an action called "deduction" from the Action drop down list. And, value to remain as positive when I select the action called "Payment" Please advice. Thanks in advance. Tag: How do I init a variable defined in the Options Explicit area? Tag: 116571
  - 6
    - Can I link cells in diff. embedded Excel objects in a Word documen I can link cells within the same embedded Excel object in a Word document, but how do I link cells between two different Excel objects? This is for a financial document using Word 2003 where figures from one table (embedded object) are used for calculations in another table. I would like to keep this as one document which is why I am not linking to an external Excel workbook. Tag: How do I init a variable defined in the Options Explicit area? Tag: 116570
  - 7
    - Linking excel tables in Word 2007 Can someone help me with what I think should be an easy task but is proving anything in Word 2007. I use documents in word that contain excel tables to hold data that require formula. The results in the first table affect the data presented in the second table & so on. I assumed that a simple "Paste Link" would do the trick but although I can do the link when changing the data in the first table, the data in the second changes the first time but any subsequent changes are not registered & the second table remains unchanged. When I then go into the table to view the cell formula there is a reference to the first table but the cell address appears as RxCx & then displays an error ##REF in the cell. Having followed some of the discussions I have upgraded with all the current upgrades for Office, however, this only had the effect of causing my original file to become corrupt & cannot now be open. It appears that once the file is saved that the link becomes static & therefore doesn't change with the source data. It has been suggested that this can only be solved by use of macro's, an area I am not familiar with. Can anyone help? Tag: How do I init a variable defined in the Options Explicit area? Tag: 116568
  - 8
    - page number in the Footer Hi, I need help with accessing to the Footer in the word. I have a template that allows users to create a report for them. The report is made up of sections such as Preface, Executive Summary, Sections, and so on in that order. The way it inserts the sections in the report is by using autotexts. So i have autotexts for Preface, autotexts for Executive Summary, and so on. My problem is with the page number in the footer for these sections in the report. When the user select Preface, the page number of the Preface should start with number 1. The rest of the sections will have their page number set to continue. If the user starts the report by selecting Executive Summary, then the page number will start with number 1 in the Executive Summary's footer. The rest of the sections after Executive Summary section will continue from there. Here is my code to insert 'preface' ActiveDocument.AttachedTemplate.AutoTextEntries("preface").Insert _ Where:=Selection.Range, RichText:=True 'ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter 'With Selection.HeaderFooter.PageNumbers ' .NumberStyle = wdPageNumberStyleArabic ' .HeadingLevelForChapter = 0 ' .IncludeChapterNumber = False ' .ChapterPageSeparator = wdSeparatorHyphen ' .RestartNumberingAtSection = True ' .StartingNumber = 1 'End With I tried with the code that are commented but did not get it to work. Thank you in advance Tag: How do I init a variable defined in the Options Explicit area? Tag: 116567
  - 9
    - Controlling the cursor when clicking on a protected section I'm working with a long template with many sections. Upon opening, it has all the sections protected except for section 1. In section 5, there is a group of radiobuttons (from the control toolbox toolbar). The reason why these are relevant is the following: Whenever I try to click anywhere in sections 3 or 4, the cursor goes automatically to one of those radiobuttons and selects it (it does not click it, but it selects it). Not only does the cursor move but this causes the document itself to scroll down rapidly from the section which I clicked to section 5, where the radiobuttons are located. On the other hand, whenever I try to click anywhere in section 2, since this section is also protected, the cursor flies automatically to the top of the document in section 1. The protection of the document is doing its job by preventing any input of information by making the cursor fly "somewhere" as the user clicks anywhere in the protected sections. I would like to change that "somewhere" and gain some control over where exactly does the cursor go when clicking on a protected section. Can this be done? Is there anyway to intercept the clicking on a protected section? Thank you Juan Lemus Tag: How do I init a variable defined in the Options Explicit area? Tag: 116562
  - 10
    - Macro to change the Background color in 2007 I've changed the Normal.dotm template in Word 2007 to include a dark blue background but apparently the Normal.dotm doesn't store the background color (all my new documents are still white). So how would I go about making an AutoNew macro that will change the color for me? Tag: How do I init a variable defined in the Options Explicit area? Tag: 116558
  - 11
    - Type Mismatch error when calling Sub with apparently correct types I have the following code: Sub ClearSection() If True Then For Each t In ActiveDocument.Tables ClearOneSection (t) Next t Else ClearOneSection (Selection.Tables(1)) End If End Sub Sub ClearOneSection(ByVal t As Table) ' Do something End Sub For some reason, the Else statement will throw a Type Mismatch error during runtime. The If statement runs correctly. Does anyone have any ideas why this might be the case? Any help is greatly appreciated. Tag: How do I init a variable defined in the Options Explicit area? Tag: 116546
  - 12
    - Word 2007 behaviour when opened from setup hi, whenever i open the readme file from some setup, it opens in Word 2007. However at this time the Word 2007 shows up the username as "System" in username option of Word options. Also, i observed that Word 2007 theme reverts as Blue even though I had changed it to Black. However, if i open the same readme file after setup quits, Word 2007 opens with normal settings (i.e theme is what was set earlier and even username is properly shown) Has anyone come accross this scenario...? Thanks, ~Anita Tag: How do I init a variable defined in the Options Explicit area? Tag: 116540
  - 13
    - How to create a "find" and "find next" macro? I am working with a team of editors who asked me to create a macro that will go through documents and find certain words that are commonly used incorrectly (but not always), but giving them an opportunity to decide whether or not to change each instance before moving on to the next. Basically, it would go like this: I want to find â??xâ??, â??yâ??, and â??zâ?? in any document I open. I may or may not want to change the items once they are found. How do I create a macro that lets me find the first instance of â??xâ??, change it if I want to, find the next instance of â??xâ??, change it if I want to, etc. through to the end of the document, then start over and search for the first instance of â??yâ??, stop and let me change it if I want to, find the next instance of â??yâ??, stop and let me change it if I want to, and so on? Tag: How do I init a variable defined in the Options Explicit area? Tag: 116539
  - 14
    - Problem with Populating a Word Document from Access 2003 I have this database that has worked great up until now. When created, all users in the office were using Access 2003 and Word 2003. Now, two computers are using Access 2003 and Word 2007. The problem has something to do with the 2007 users when the word document is saved. Only these users can further open up the document to view/edit. The 2003 users, when trying to open up the document get nothing but gargle and a pop up box to select the encoding method to view the document. However, when the 2003 users run this database and create a new document, it is useable by all users still. I know that in Word 2007, you can select SaveAs 97-2003 document when saving, so I am thinking that I have to change the code accordingly somehow. Here is my code that works under the 2003 Office system: Private Sub RunWordTemplate_Click() On Error GoTo Err_RunWordTemplate_Click Dim intAnswerMe As Integer 'Fill in Work Order Description if blank to avoid Null error in Word If IsNull(Me.WODesc.Value) Or _ Me.WODesc = 0 Then intAnswerMe = MsgBox("Please enter in a Work Order Description", vbOKOnly + vbInformation, "Description Needed") Me.WODesc.SetFocus Exit Sub End If Dim oApp As Object 'Variable for Word Dim sFilename As String 'Variable for Auto-Save file name Dim strTemplateName As String 'Variable for Word Template to be used Dim objWORDdoc As Object 'Save Record DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 'Create path to Quotation Template strTemplateName = "\\Sharppc\ServerFiles\ProjectData\Quotations \QuotationTemp.dot" 'Create default SaveName for New Quotation being written sFilename = "\\Sharppc\ServerFiles\ProjectData\Quotations\" & Me.WONum.Value & " - " & Me.CompanyName.Value & ".doc" Set oApp = CreateObject("Word.Application") oApp.Visible = True If Dir(sFilename) = "" Then 'Test to see if created filename already exists 'and if not, open Template to fill in date Set oApp = CreateObject("Word.Basic") 'otherwise just open that filename already With oApp .filenew Template:=strTemplateName 'Set bookmarks in QuotationTemp to equal values of new Quoation Number created .EditBookmark Name:="quotedate", GoTo:=True .Insert (Format(Me.WODate, "mmmm dd, yyyy")) 'insert date of quote .EditBookmark Name:="quotenum", GoTo:=True .Insert (CStr(Me.WONum)) 'insert work order number .EditBookmark Name:="companyname", GoTo:=True .Insert (CStr(Me.CompanyName)) 'insert company name 'This code will make sure that if the street address has two lines, both are inserted If IsNull(DLookup("[CustAdd2]", "ContactsTbl", "[Contact]='" & Me.Contact.Value & "'")) Or _ DLookup("[CustAdd2]", "ContactsTbl", "[Contact]='" & Me.Contact.Value & "'") = 0 Then .EditBookmark Name:="address", GoTo:=True 'insert Line 1 address .Insert ((CStr(DLookup("[CustAdd1]", "ContactsTbl", "[Contact]='" & Me.Contact.Value & "'")))) Else .EditBookmark Name:="address", GoTo:=True 'insert Line 1 & 2 address .Insert (CStr(DLookup("[CustAdd1]", "ContactsTbl", "[Contact]='" & Me.Contact.Value & "'"))) & vbCrLf & (CStr(DLookup("[CustAdd2]", "ContactsTbl", "[Contact]='" & Me.Contact.Value & "'"))) End If .EditBookmark Name:="citystate", GoTo:=True .Insert ((CStr(DLookup("[CustCity]", "ContactsTbl", "[Contact]='" & Me.Contact.Value & "'"))) & ", " & (CStr(DLookup("[StateID]", "ContactsTbl", "[Contact]='" & Me.Contact.Value & "'"))) & " " & (CStr(DLookup("[CustZip]", "ContactsTbl", "[Contact]='" & Me.Contact.Value & "'")))) .EditBookmark Name:="custname", GoTo:=True .Insert (CStr(Me.Contact)) .EditBookmark Name:="subject", GoTo:=True .Insert (CStr(Me.WODesc)) .EditBookmark Name:="firstname", GoTo:=True .Insert (CStr(DLookup("[fName]", "ContactsTbl", "[Contact]='" & Me.Contact.Value & "'")) & ",") .filesaveas Name:=sFilename 'save Quotation with auto save name End With Else 'If filename already exists, just open the file at this point oApp.Documents.Open sFilename oApp.ActiveDocument.Save End If Exit_RunWordTemplate_Click: Exit Sub Err_RunWordTemplate_Click: MsgBox Err.Description Resume Exit_RunWordTemplate_Click End Sub *********************************************** I have tried replacing this line: .filesaveas Name:=sFilename 'save Quotation with auto save name with this code: If oApp.Version = 12 Then .filesaveas Name:=sFilename, _ .FileFormat:=0 Else .filesaveas Name:=sFilename 'save Quotation with auto save name End If But, this does not work either. It was suggest that this line of code: Set oApp = CreateObject("Word.Basic") might be casuing me an issue, but I am pretty much clueless as to how to fix this. I am barely over the newbie range and still learning on the fly, and if someone can point out how to fix this code to work so that it will check to see which version of Word is running and save the file in a 97-2003 format accordingly, I would be MUCH appreciative. I have been looking online and can't seem to pinpoint anything down that works. THank you, Jerry Tag: How do I init a variable defined in the Options Explicit area? Tag: 116537
  - 15
    - Automating "Compress" feature on all pics in Word doc with VB. Hi All In a Word document you can select a picture and then right click and select "Format Picture". On the "Picture" tab you then have the "Compress" button. I want to automate with VB running this "Compress" feature for all the pics in the document to a "Print" size. When I record myself doing this the recorded macro seems to do everything but what I want. Does anyone have code for performing this action? Chrisso Tag: How do I init a variable defined in the Options Explicit area? Tag: 116535
  - 16
    - How can I tell with VB if a document has Markup activated? Hi All I need to ensure that when our Word files are sent to customers that "View-Markup" is not selected. When I record a macro doing this the code is: WordBasic.ViewChanges This means that I cannot tell whether Markup was on already. The code merely toggles. Is it possible to do a test and turn off Markup only when it is on? I cannot assume which way each Word file is configured. Some may have Markup on and others off. Therefore I need a test but with the above generated code I cannot see a way of doing this. Any ideas? Thanks in advance, Chrisso Tag: How do I init a variable defined in the Options Explicit area? Tag: 116534
  - 17
    - Opening Multilple Documents at Once Adobe 7.0 has a very useful feature in its document organizer. If working on multiple pdfs for a project, the user can create a collection with all these documents. With a click of a button one can open all documents simultaneously. Does word have the capability of doing something like this? Tag: How do I init a variable defined in the Options Explicit area? Tag: 116530
  - 18
    - Accessing Fields on an Outlook Template from Word I'm using Word and Outlook 2000. Please let me know if I should be posting this to the Outlook discussion group instead of here. I have a simple function that I use to send an email from Word. In the version I have below, it uses an Outlook template and it works just great. But now they've decided they want to add some textboxes to the Outlook template that need to be filled in by the macro before it sends the template. I have programmed in Word, Excel and Access, but never in Outlook. I have spent several days researching Word references and Outlook references and have not been able to figure out how to fill in the textboxes on the Outlook template before sending it. Since the textboxes are named (in this case "txtPlanName" for one), it seems like it should be doable. From my research, it looks possible, but everything I've tried hasn't worked. Here is my basic code without trying to fill in the textboxes: Function SendEmail(eeEmail$, EmailSubject$, SendNow As Boolean) 'create email with attachment Dim OlApp As Outlook.Application Dim SafeItem As Object Dim oItem As Object Dim utils As Object Dim nspnamespace As Outlook.NameSpace Set OlApp = Outlook.Application Set nspnamespace = OlApp.GetNamespace("Mapi") Set SafeItem = CreateObject("SafeOutlook.SafeMailItem") Set oItem = OlApp.CreateItemFromTemplate("f:\winword\template\test.oft") Set utils = CreateObject("cpioutlook.MAPIUtils") SafeItem.Item = oItem SafeItem.Recipients.Add eeEmail$ SafeItem.Recipients.ResolveAll SafeItem.Subject = EmailSubject$ if SendNow = True then SafeItem.Send else SafeItem.Display end if Set OlApp = Nothing Set nspnamespace = Nothing Set SafeItem = Nothing Set oItem = Nothing End Function Thanks, any help is appreciated. Tag: How do I init a variable defined in the Options Explicit area? Tag: 116526
  - 19
    - Controling Tables Hi, I use code that sends a range of excel tables to bookmarks in word. It all works well (I have modified the following code if curious http://www.vbaexpress.com/kb/getarticle.php?kb_id=133 ) Once a table or picture is sent to word, I'd like to be able to format it from excel (ie flip it 90 degrees or auto fit the table to contents I get a run time error from excel on the 3rd line of the following code: appWrd.Selection.PasteSpecial DataType:=wdPasteRTF, Placement:=wdInLine appWrd.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter appword.Selection.Tables(1).AutoFitBehavior (wdAutoFitContent) I've tried a few ways of trying to pick up the table i've just created in word, but struggling. Any help would be appreciated. Regards Simon (Cross posted in excel.vba ..... sorry if this is not allowed, but just didnt know if this was excel or word related). Tag: How do I init a variable defined in the Options Explicit area? Tag: 116511
  - 20
    - How to find repeating words and count its? Hello. There is the document which has some repeating words. I need to find these words and after every found repeating word insert number of repeat (in brackets). How do it? Thank you very much. Tag: How do I init a variable defined in the Options Explicit area? Tag: 116502
  - 21
    - Own a small business you want people to know about? Got a service you Own a small business you want people to know about? Got a service you can offer? or got something to sell? I created a NEW forum just for people to: Buy/sell/trade their used items, promote their business, post events, post job openings, find a roommate or an apartment/house for rent, search for jobs, post resume, meet people in their area, etc. . . Its a simple and easy way to let everyone know....and its free to join http://tinyurl.com/5eu4zj Tag: How do I init a variable defined in the Options Explicit area? Tag: 116499
  - 22
    - Remember variable when it is called from another sub I have a sub that adds 1, 2 and 3 weeks to a user inputted date. I want to call this routine from several other subs. How can I make the original sub see the calls? Sub Original() Call DateCalc() 'Macro now finds location and needs to plug in 2 week follow up letter date: Selection.InsertBefore Ltr2wkDate End Sub Sub DateCalc() Dim LtrDate As Date LtrDate = inputbox("Desired letter date (TYPE NUMERICALLY, LIKE M/D/ YY:") Dim Ltr0Date As String Ltr0Date = Format(LtrDate, "mmmm d, YYYY") Dim Ltr1wkDate As String Ltr1wkDate = Format(DateAdd("ww", 1, Ltr0Date), "mmmm d, YYYY") Dim Ltr2wkDate As String Ltr2wkDate = Format(DateAdd("ww", 2, Ltr0Date), "mmmm d, YYYY") End Sub Thanks in advance. Tag: How do I init a variable defined in the Options Explicit area? Tag: 116494
  - 23
    - Customization Context Hi, I am deleting the commandbars I create when loading the word add-in developed with c#. As I understood, word does not take into account the temporary properties of commanbars => so my commandbars are not deleted. I konw that I need to use the CustomizationContext property. The only problem is that I create my commandbars before any document is created. I it possible to set the CustomizationContext after the commandbars are created? Also, in some threads we talk about the ActiveDocument.AttachedTemplate property.. but i don't find it? Thank you for ur help... Tag: How do I init a variable defined in the Options Explicit area? Tag: 116491
  - 24
    - Selective Print Hello, I need some help with selective printing; here it is simplified: I have a 20 page document where each page has a table. At certain times it needs to have pages 4-6 and 10-20 printed (print Monthly). Other times it needs to have 1-9 and 12-15 printed (print Annually). Over time, the page count will definitely increase by inserting pages with tables inside the document, i.e. I have to print 4-7 and 11-21 instead. I need to somehow mark the 'Monthly' pages and the 'Annually' pages in the document so that I can print using VBA code independent of page numbering. Any ideas? Thanx! Tag: How do I init a variable defined in the Options Explicit area? Tag: 116488
  - 25
    - Save key Word Macro: Can I save a key in a variable without pressing Enter? Tag: How do I init a variable defined in the Options Explicit area? Tag: 116487

I defined a variable in the Options Explicit area but I need it set to an
initial value to it. This is in WORD 2007 VBA code.

Top

Re: How do I init a variable defined in the Options Explicit area? by Jay

Jay
Mon Aug 11 13:19:08 PDT 2008

BearMarquez wrote:
> I defined a variable in the Options Explicit area but I need it set
> to an initial value to it. This is in WORD 2007 VBA code.

Put it on the left side of an assignment statement in some procedure,
preferably the procedure that runs first.

Also, be sure you really need the variable to be in that area, which makes
it a "global" variable. The trouble with global variables in general is
that, while they're available in all procedures, they can also be changed in
any procedure, which makes them susceptible to faulty logic ("bugs"). If you
can achieve the same thing by passing parameters, that's much safer.

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