using code to determine the file location

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - MS Access VBA - how to bold text? Word 2003 Access 2003 I'm creating the body of a document from a dot file. I need to bold a sentence that comes between 2 others. Set docWord = objWord.Documents.Add(Template:=sWordFormsPath & "LetRec.dot") Dim rngWord As Word.Range Set rngWord = docWord.Goto(What:=wdGoToBookmark, Name:="LetterBody") rngWord.InsertAfter "We have enclosed a signed and notarized authorization that allows us to receive this inforrmation on behalf of our client. " >>> Need to turn bold ON here to bold the following sentence rngWord.InsertAfter "If you would prefer payment in advance, kindly advise and we shall remit same immediately. " >>> Need to turn bold OFF here rngWord.InsertAfter "Thank you for your anticipated cooperation." I've tried a few things that don't seem to work. What code do I need to bold that middle sentence? Thanks, Keith Tag: using code to determine the file location Tag: 109263
  - 2
    - Save without Header and Footer Hi, I have application which launches a wrod template file, when I save it, I want to just save the text part of it and not the header and footer. How is it possible? Thanks in Advance Tag: using code to determine the file location Tag: 109258
  - 3
    - macro Hi, With a macro, I'm trying to add a field where my user has to type the name of the person. At the end of the document I have to use this information again. That means I have to save this information (I can't use fill-in - or maybe yes I don't know how to refer to it). example: Dear Mr > XXXXXXX .. .. Thank you Mr. XXXXXXX Has to be dinamic because my user has to select by a toolbar option to add this greeting in his document Can you guide me if I can do what I'm planning? If yes How? Thank you -- meme Tag: using code to determine the file location Tag: 109254
  - 4
    - Another dreaded "loop through the document" question Using Word 2007. I promise that I have looked through the code here but my programming skills are rusty and VBA is NOT my "thing". I have a long (200+ page) document that begins life as an HTML file generated by a test bank program. I've written a long macro that does a lot of cleanup work using find/replace and it works great. However, I'm not quite satisfied with my results. This test bank doesn't get monkeyed with often so I don't care how slow or clunky the macro is and I don't care to spend hours and hours getting it perfect. The edited document contains between 450 and 500 questions, each in the format shown below. All paragraphs are in the Normal style (with no space above or below) except the question number (e.g, 13 of 465), which is in Normal (Web) (which has space before and after). I'll show returns as <r>. = indicates a horizontal rule that is the full width of the page, - indicates a horizontal rule that is half the width of the page. =========================================== 13 of 465<r> This is the question. It may be one or more paragraphs. Each paragraph ends with two returns.<r> <r> (some questions have a graphic)<r> <r> a. This is the first answer.<r> b. This is the second answer.<r> c. This is the third answer.<r> d. This is the fourth answer.<r> -------------------------------------------<r> This is the feedback shown if the student gives the wrong answer. It may be more than one paragraph.<r> <r> a.<r> ================================================== 14 of 465<r> etc. I want the information below the possible answers to show the correct answer before the feedback, like this: -------------------------------------------<r> a.<r> This is the feedback shown if the student gives the wrong answer. It may be more than one paragraph.<r> ================================================== I have recorded a macro which finds the correct answer, cuts it, then searches for the graphic immediately above it (which is always the short horizontal rule) and pastes it after that graphic, then formats with a style that has space below. I'm not worried about two hard returns in a row right now because I can search and replace those later. I just want to get the answer and the feedback swapped for now. Here's the code that I recorded. I just need to know what to put around it to make it run repeatedly until it gets to the end of the document. I'm sure this is a stupidly simple thing, but I'm having no luck. I understand the concept of loops, I just don't know what variable to check for to do this until the end of the document is reached. If there's a way to search for a horizontal rule (and differentiate between full-width and 50% width), I'm all eyes because I may need to differentiate between graphics that are pictures and those that are lines. Sub SwapAnswer() ' ' SwapAnswer Macro ' ' Selection.Find.ClearFormatting With Selection.Find .Text = "^p^$.^p" .Replacement.Text = "" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.Cut Selection.Find.ClearFormatting With Selection.Find .Text = "^g^p" .Replacement.Text = "" .Forward = False .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.PasteAndFormat (wdPasteDefault) Selection.MoveUp Unit:=wdLine, Count:=1 Selection.Style = ActiveDocument.Styles("Body Text") Selection.TypeBackspace End Sub Thanks in advance for any and all help. I'm sure I'm missing something very simple. liz Tag: using code to determine the file location Tag: 109252
  - 5
    - Losing references to template I have a macro-enabled template in 2007 (.dotm) with a user form, which is being used my multiple users and is saved in a shared network location. For some reason, whenever anyone has a document based on the template open on their desktops, if anyone else tries to base a document on the template, they get a "Field Review.dotm is locked for use by (Name of person using it)", then gives the option to open "Read Only". My understanding is that multiple users should be able to have documents that are based on the same template open without locking the template. Am I missing something or is this a Word 2007 bug? Please help... Tag: using code to determine the file location Tag: 109248
  - 6
    - Help cleaning up bad paragraph breaks Windows XP Pro SP2 MS Word 2003 SP3 I have inherited a document that was originally created in Notepad and has paragraphs that look like the psuedo-paragraphs below: xxxxxx xxxx xxxx xxxxx xxx xxxxxx xxx xxxx xx xxxxx x xxx^p xxxxxx xxxx xxxx xxxxx xxx xxxxxx xxx xxxx xx xxxxx x xxx^p xxxxxx xxxx xxxx xxxxx xxx xxxxxx xxx xxxx xx xxxxx x xxx^p xxxxxx xxxx xxxx xxxxx xxx xxxxxx xxx xxxx xx xxxxx x xxx^p xxxxxx xxxx xxxx xxxxx xxx xxxxxx xxx xxxx xx xxxxx x xxx^p xxxxxx xxxx xxxx xxxxx xxx xxxxxx xxx xxxx xx xxxxx x xxx^p xxxxxx xxxx xxxx xxxxx xxx xxxxxx xxx xxxx xx xxxxx x xxx^p xxxxxx xxxx xxxx xxxxx xxx xxxxxx xxx xxxx xx xxxxx x xxx^p xxxxxx xxxx xxxx xxxxx xxx xxxxxx xxx xxxx xx xxxxx x xxx^p I'm looking for a fast way to remove the unnecessary paragraph breaks while preserving a blank line between the actual intended paragraphs. I've written a macro that will do this on a selection, but I can only do it one small selection at a time as the macro will also delete the blank line between the intended paragraphs. Any ideas? Thanks! -gk- Tag: using code to determine the file location Tag: 109244
  - 7
    - How do I export a list of bookmarks from a document? I am working with an existing word doc that is linked via bookmarks to an excel doc and I am trying to figure out which bookmarks in the word doc go to which cells in the excel doc. My first step is to get a list of bookmarks in the word doc. Is there a way to extract a list of those? Tag: using code to determine the file location Tag: 109241
  - 8
    - how to determine if a reference is selected and set it if it is no I'm trying to programatically test if the Microsoft Speech Object Library is selected and then if it is not I'd like to set it. I've tried error trapping each side of a Dim but that didn't work: On error reume next Voc = SpeechLib.SpVoice On error resume 0 If voc is nothing then '... let me know or fix it Due to security levels I hope I can do this without Application.VBE.ActiveVBProject.References Can anyone shine some light on this one? Thanks! Mike Tag: using code to determine the file location Tag: 109235
  - 9
    - Added Text and Tables to a template, updating TOC Hi all I have this major problem. I have loaded the document template with consists of a TOC and two headings link this TOC (Page 1) Heading 1 (Page 2) Boomark Heading 3 (Page 2) What I want is to replace the bookmark between the two heading with alot of data, which mean that Heading 3 will be on page seven. Basically I have two problems 1. When I use object oBookMark = "bookmark"; Bookmark metaBookmark = this.oDoc.Bookmarks.get_Item(ref oBookMark); Word.Paragraph oPara; oPara = this.oDoc.Content.Paragraphs.Add(ref metaBookmark.Range); oPara.Range.Text = "Text1"; oPara.Format.SpaceAfter = 6; oPara.Range.InsertParagraphBefore(); Word.Paragraph oPara; oPara = this.oDoc.Content.Paragraphs.Add(ref metaBookmark.Range); oPara.Range.Text = "Text2"; oPara.Format.SpaceAfter = 6; oPara.Range.InsertParagraphBefore(); The Output in the document is Text2 Text1 Where I was expecting Text1 and then Text2. It seems that it is inserting it in reverse. I have tried using InsertParagraphAfter(), but with a even worse result. What am I doing wrong ? Hope for any of you gurus to help. If you can answer how to update the TOC when done that would be great. Cheers Tag: using code to determine the file location Tag: 109234
  - 10
    - Delete a paragraph up to a specific character hi, i am trying to find a way to delete all text/characters in a paragraph up to (and including) the last occurence of a backslash within that paragraph, throughout the document. using the GNU regexp i would select something like "^.*\\" and delete it. so from a paragraph like Subject\heading\section1\part2\topic3 only the following should remain topic3 i tried to get this using search/replace but i failed with the unknown number of characters which are to be replaced and the beginning of the paragraph. please also note that some paragraphs have automatic numbering but i assume that this should not make any difference as the numbers should stay as they are. any help on this is appreciated. cheers, thomas Tag: using code to determine the file location Tag: 109233
  - 11
    - Need to have form field end up with data generated by macro that is I just had a Word form task dumped on me, which would not be a problem if I had spent a lot of time working with forms in the past. But I haven't. I need to create a form field, run a macro on entry (or exit, if more appropriate), and have the macro results end up in the form field when I'm done. For example, a one line macro that places the result of application.username into the field. Its probably very obvious to most everyone, but right now I'm missing it. thanks in advance david Tag: using code to determine the file location Tag: 109222
  - 12
    - Deleting empty formfields I am using Word 2003, can someone assist me with some code which looks through a document and deletes all the formfields that are not populated. Thanks in advance -- Mark Tag: using code to determine the file location Tag: 109219
  - 13
    - Searching for exact number of spaces Hello, Is there a way to search for an exact number of "regular" spaces. I want Word to search for 6 spaces. These spaces were caused by blank form fields that were unlinked. The problem that I'm having is that my document also contains 15 and 30 hard spaces that are used to create a spot for handwriting. The find and replace is removing the hard spaces that I want to keep. Thanks. j Tag: using code to determine the file location Tag: 109218
  - 14
    - can I feed powerpoint from a word document? I want to build a powerpoint presentation that will be used in many locations around the world, can I feed a presentation from a word document Tag: using code to determine the file location Tag: 109217
  - 15
    - Excel sheets in a Word document I have a Word document that has two seperate embedded Excel sheets in it. How can I get a value from one sheet into the other sheet using VBA? For arguments sake, let's call them sheet1 and sheet2, and I would like a value from sheet1!A1 to be automatically entered in sheet2:A1 once the value in sheet1:A1 is updated. Tag: using code to determine the file location Tag: 109215
  - 16
    - How to designate two open docs as different objects? I have two documents open. It would be a royal pain to have to browse for them; I just have the folders open and open the two docs needed. I need to desginate one document as "doc1" and the other as "doc2" (Both are Dim'd As Document objects.) I tried a bit with a UserForm, but culdn't get it to work. So in my code, I Stop the code, which lets me click in a doc, then F5 in the VBE and Stop again to click in the second doc, then F5 again to run. MsgBox "Click in the first document" Stop Set doc1 = ActiveDocument Set rng1 = doc1.Range(Selection.Range.Start, doc1.Content.End) MsgBox "Click in the second document" Stop Set doc2 = ActiveDocument Set rng2 = doc2.Range(Selection.Range.Start, doc2.Content.End) Is there an easier, more seamless way to do this? Ed Tag: using code to determine the file location Tag: 109213
  - 17
    - Modifying a recorded macro in Word 2003 I began a small project that involved the following steps: 1. Copy a large amount of table data from my health insurer's site. 2. Save the table in a text file to get rid of the table formatting. 3. Copy the resulting text to Word where I could use "Find/Replace" editing to remove redundant data and formatting. 4. Record a macro of all the Find/Replace steps for later use on data updates. 5. Copy results (now a list of tab delimited records) back to a text file. 6. Import text file into an Excel worksheet. All this worked fine, except that when I ran the macro from the keyboard I had to keep pressing the shortcut keys as if the macro was being stepped through the several code segments. Not being very accomplished in writing or recording macros, I don't know how to get the macro to run as a single operation without all the keyboard intervention. Can anyone offer a solution or a link to same? Tag: using code to determine the file location Tag: 109207
  - 18
    - keyboard shortcuts for macros i have assigned a keyboard shortcut (Alt+N,L) to a macro i recorded. i would like to change the key board shortcut and i cant find a way to it? i would be more interested in finding out how to do this without going into writing macros which i am not very good at. thanks, david Tag: using code to determine the file location Tag: 109186
  - 19
    - Word 07 - See Clipboard Contents? Can anyone advise me of a way to see the contents of the Clipboard in Word 2007? I need to see if what's been copied correctly matches a specific instance of data. Thank you! Tag: using code to determine the file location Tag: 109176
  - 20
    - Protect Form code Hi, How do you make the following code Protect only? This code will protect an unprotected form AND unprotect a protected form. I just need it to Protect. Sub ProtectForm() If ActiveDocument.ProtectionType = wdNoProtection Then ActiveDocument.Protect Type:=wdAllowOnlyFormFields, _ NoReset:=True Else ActiveDocument.Unprotect Password:="" End If End Sub Tag: using code to determine the file location Tag: 109174
  - 21
    - How word is started I would like to know if it is posible to determine if how word has been started. I have been tiraling running word across a network when it normally starts it loads a global template which carries all the sub routines needed to do various things built into forms that are produced. However other programs also use word as as a front end for doucuments they contain within them, but because when the load word it takes an long time because it is loading all the routines etc from the globally loaded template. So here is what I would like to do if posible. if word is opened by one of these other programs other than by the icon word doesnt load the template if however its not opened. I have used the following to determine if open by the icon Sub iconstart() ' 'checks to see how word has been launched ' Dim strCommandLine As String 'get the commandline by calling the CmdLinetoString function, which follows strCommandLine = CmdLinetoString(GetCommandLine()) If Len(strCommandLine) <= Len(Chr(34) & Application.Path & _ "\" & "winword.exe" & Chr(34) & " ") Then 'Following only runs if Word was launched from its icon ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges 'closes document without saving End If 'End If End Sub Public Function CmdLinetoString(ByVal lngPtr As Long) As String Dim strReturn As String Dim StringLength As Long 'get the length of the string (not including the terminating null character) StringLength = lstrlen(lngPtr) 'initialize our string so it has enough characters including the null character strReturn = String$(StringLength + 1, 0) 'copy the string we have a pointer to into our new string lstrcpy strReturn, lngPtr 'now strip off the null character at the end strReturn = Left$(strReturn, StringLength) 'return the string CmdLinetoString = strReturn End Function but is there a way of determining which program has opened word????? I am using word 2003 Thanks in anticipation Tag: using code to determine the file location Tag: 109167
  - 22
    - how do I add scripts to my word doc? I would like to add jscript to my Word document. Is this possible? Tag: using code to determine the file location Tag: 109165
  - 23
    - Hide and show components Hi : ) I am build some kinda of reports and I have some information I would like to let the user show if he/she want to see or not. If he/she want to see, he/she will click in image component. But I would like to use the 'same' (visually talkin) component to hide the data. This is a sample: Private Sub Image1_Click() Selection.GoTo What:=wdGoToBookmark, Name:="interfaces_lista" Selection.Find.ClearFormatting With Selection.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Tables(1).Select With Selection.Tables(1) With .Borders(wdBorderLeft) .LineStyle = wdLineStyleDashSmallGap .LineWidth = wdLineWidth050pt .Color = 14540253 End With With .Borders(wdBorderRight) .LineStyle = wdLineStyleDashSmallGap .LineWidth = wdLineWidth050pt .Color = 14540253 End With With .Borders(wdBorderTop) .LineStyle = wdLineStyleDashSmallGap .LineWidth = wdLineWidth050pt .Color = 14540253 End With With .Borders(wdBorderBottom) .LineStyle = wdLineStyleDashSmallGap .LineWidth = wdLineWidth050pt .Color = 14540253 End With With .Borders(wdBorderHorizontal) .LineStyle = wdLineStyleDashSmallGap .LineWidth = wdLineWidth050pt .Color = 14540253 End With With .Borders(wdBorderVertical) .LineStyle = wdLineStyleDashSmallGap .LineWidth = wdLineWidth050pt .Color = 14540253 End With .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone .Borders.Shadow = False End With With Options .DefaultBorderLineStyle = wdLineStyleDashSmallGap .DefaultBorderLineWidth = wdLineWidth050pt .DefaultBorderColor = 14540253 End With Selection.Tables(1).Rows.Height = CentimetersToPoints(0.6) Selection.Font.Color = wdColorGray80 Selection.Font.Size = 8 Selection.GoTo What:=wdGoToBookmark, Name:="interfaces" End Sub So, when I click in the icon, a table shows up with some data, and to 'hide' it, I use: Sub interfaces_compact() Selection.GoTo What:=wdGoToBookmark, Name:="interfaces_lista" Selection.Find.ClearFormatting With Selection.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Tables(1).Select With Selection.Tables(1) With .Borders(wdBorderLeft) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = wdColorWhite End With With .Borders(wdBorderRight) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = wdColorWhite End With With .Borders(wdBorderTop) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = wdColorWhite End With With .Borders(wdBorderBottom) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = wdColorWhite End With With .Borders(wdBorderHorizontal) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = wdColorWhite End With With .Borders(wdBorderVertical) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth050pt .Color = wdColorWhite End With .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone .Borders.Shadow = False End With With Options .DefaultBorderLineStyle = wdLineStyleSingle .DefaultBorderLineWidth = wdLineWidth050pt .DefaultBorderColor = wdColorWhite End With Selection.Tables(1).Rows.Height = CentimetersToPoints(0#) Selection.Font.Color = wdColorWhite Selection.Font.Size = 1 Selection.GoTo What:=wdGoToBookmark, Name:="interfaces" End Sub So, there is some way to use the control to show up the table (code 1), and if the table is show and I click in the control again it hides (code 2)? I tried to hide the component... but I didnÂ´t get sucess. Thanks for any info. Tag: using code to determine the file location Tag: 109162
  - 24
    - Word 2007 Dotm vs. Dot, slow loading of Word Hi, I have a DOT file, it's rather large (3,5MB) but works fine in Word 2003 and Word 2007. The file has lots of functionality, userforms, modules and a custom commandbar and i've already converted it to DOTM (1,5MB) with Custom Ribbon UI instead of the commandbar. The problem is, that the DOTM file ENORMOUSLY slows down Word 2007 startup (the dot-file needs to be in the startup folder). When I just load the old DOT file (exactly the same functionality, but not in the new format) Word 2007 startup speed is fine. But then I cannot have Custom Ribbon UI. Is this a known issue or is there a way to speed up the loading of my DOTM file? I really want to be able to use the Custom Ribbon UI XML. P.S. I know my DOT file maybe should be a real Add-In (VSTO DLL or whatever) but that will not happen soon for many reasons. Tag: using code to determine the file location Tag: 109161
  - 25
    - FormField I have linked text to a FormField on my document and it changes when I manually change the selected item of the FormField. However, when I change the item in a Macro like so it doesn't change the linked text to match: ActiveDocument.FormFields("PortfolioAnalyst").Result = PersonSelected Has anybody ever dealt with this before? Thanks! Tag: using code to determine the file location Tag: 109158
- Next
  - 1
    - Help writing a picture formatting macro Hello, I was wondering if you guys could help me. I am trying to write a macro to format a picture I have pasted into a word document. Unfortunately the wrap to text and advanced functions of the format picture tab are not available when writing a macro. I have seen someone here had the same problem and the following code was posted: With myShape .WrapFormat.Type = wdWrapTopBottom .WrapFormat.DistanceTop = InchesToPoints(0.2) .WrapFormat.DistanceBottom = InchesToPoints(0.2) .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage .Left = wdShapeCenter The thing is my requirements are different to this and now matter how I change the code above I can't get it to work. Can anyone help please? I need the options Wrap type = Square Horizontal Alignment = Other and in the advanced options Absolute position 4.23 from the right of the page Absolute position 0.00 below paragraph. I know this is quite complicated and a big ask - but if anyone can help it would be amazing as i have to format pictures according to this layout about 20 times a day as part of my job and a macro would totally help me out. Thanks, Sotiris Tag: using code to determine the file location Tag: 109150
  - 2
    - Protect Form macro errors When I activate the Protect Form function on my templates and then open them via a 3rd party preview screen I get a series of error messages before the macro works. I need to protect the form for the form fields to work and the templates are for a 3rd party system so I cant have these errors appearing. The errors persist with the AutoOpen macro and I cant set up an entry macro as the form needs to be protected for that to happen - a bit of a catch 22!! Any ideas would be appreciated. Tag: using code to determine the file location Tag: 109143
  - 3
    - unlink Footer/Header in VBA Hi, I need your help desperately. I've been trying to get this to work since yesterday but to no avail. I was trying to insert Header/Footer using VBA in word 03. This will involve section breaks insertion into the document. My problem is i think i haven't really put the following code in the right place. Selection.HeaderFooter.LinkToPrevious = Not Selection.HeaderFooter. _ LinkToPrevious Different Sections will have different Header and Footer in the document. Here is my code of inserting a section of "Bibliography" into the document. This might be placed in the middle of the document. Sub InsertBibliography() 'Apply Header for previous section If ActiveWindow.View.SplitSpecial <> wdPaneNone Then ActiveWindow.Panes(2).Close End If If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _ ActivePane.View.Type = wdOutlineView Then ActiveWindow.ActivePane.View.Type = wdPrintView End If ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.HeaderFooter.LinkToPrevious = Not Selection.HeaderFooter. _ LinkToPrevious Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.TypeText Text:="Header 1" Selection.MoveRight Unit:=wdCharacter, Count:=2 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.TypeText Text:=vbTab & vbTab & "Date Issue" Selection.MoveDown Unit:=wdLine, Count:=1 Selection.MoveLeft Unit:=wdCharacter, Count:=16 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument Selection.InsertBreak Type:=wdSectionBreakNextPage 'Selection.InsertBreak Type:=wdPageBreak Selection.TypeText Text:="Bibliography" Selection.MoveLeft Unit:=wdCharacter, Count:=12, Extend:=wdExtend Selection.Font.Color = wdColorGreen Selection.Font.Bold = wdToggle Selection.Font.Size = 16 Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.TypeParagraph Selection.Font.Size = 12 Selection.Font.Color = wdColorAutomatic 'Apply Header for Bibliography If ActiveWindow.View.SplitSpecial <> wdPaneNone Then ActiveWindow.Panes(2).Close End If If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _ ActivePane.View.Type = wdOutlineView Then ActiveWindow.ActivePane.View.Type = wdPrintView End If ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader 'Selection.HeaderFooter.LinkToPrevious = Not Selection.HeaderFooter. _ LinkToPrevious Selection.TypeText Text:="Company Name" Selection.MoveLeft Unit:=wdCharacter, Count:=11, Extend:=wdExtend With ActiveDocument.Bookmarks .Add Range:=Selection.Range, Name:="clientname" .DefaultSorting = wdSortByName .ShowHidden = False End With Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.TypeText Text:=vbTab & vbTab & "Report Line1" Selection.MoveLeft Unit:=wdCharacter, Count:=12, Extend:=wdExtend With ActiveDocument.Bookmarks .Add Range:=Selection.Range, Name:="reportline1" .DefaultSorting = wdSortByName .ShowHidden = False End With Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.TypeParagraph Selection.TypeText Text:=vbTab & vbTab & "Report Line2" Selection.MoveLeft Unit:=wdCharacter, Count:=12, Extend:=wdExtend With ActiveDocument.Bookmarks .Add Range:=Selection.Range, Name:="reportline2" .DefaultSorting = wdSortByName .ShowHidden = False End With ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument 'Apply Footer If ActiveWindow.View.SplitSpecial <> wdPaneNone Then ActiveWindow.Panes(2).Close End If If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _ ActivePane.View.Type = wdOutlineView Then ActiveWindow.ActivePane.View.Type = wdPrintView End If ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader If Selection.HeaderFooter.IsHeader = True Then ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter Else ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader End If Selection.TypeText Text:=vbTab & "Page S" Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldPage Selection.HeaderFooter.LinkToPrevious = Not Selection.HeaderFooter. _ LinkToPrevious With Selection.HeaderFooter.PageNumbers .NumberStyle = wdPageNumberStyleArabic .HeadingLevelForChapter = 0 .IncludeChapterNumber = False .ChapterPageSeparator = wdSeparatorHyphen .RestartNumberingAtSection = True .StartingNumber = 1 End With Selection.MoveUp Unit:=wdLine, Count:=3 Selection.MoveRight Unit:=wdCharacter, Count:=7 Selection.TypeBackspace ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument End Sub Bibliography Section will have its own Page format in the Footer namely Page S1, Page S2, and so on. Whereas for the content of the doc, Page 1, 2, etc. is used. Greatly appreciate if anyone might be able to give me your advise here. Thank you in advance Tag: using code to determine the file location Tag: 109142
  - 4
    - How to convert word to html with .net I store word docs in a sql2005 database as images. I can retrieve the docs from the database as byte arrays. I need to be able to then save the docs as temporary files on the server in html format. I think I sould be able to use microsoft.office.interop.word to accomplish this but I have no idea how to start. I am using asp.net 2.0 and vb.net. If anyone has any vb ( or c# code that I could use, I would really appreciate it) Tag: using code to determine the file location Tag: 109140
  - 5
    - Saving When I save my 100 page document at say page 50 and then close it and re-open it, it always goes back to the beginning. Is there any way to have it open where you saved it last? Tag: using code to determine the file location Tag: 109139
  - 6
    - How do I calculate the number of checkboxes chosen on a Word form How do I set a calculating text form field to count check box form fields that have been selected? Tag: using code to determine the file location Tag: 109135
  - 7
    - Show today's date Hi! Every day I write a report. In the heder of that report is todya's date. Is there any way that I can write code (or some other way) so that the date in the header is always todays date? Thanks! Tag: using code to determine the file location Tag: 109129
  - 8
    - Get a list of a word document reviewers I would like to write a macro that will display a list of the document reviewers to the macro user for selection. The macro will then be able to jump to the next revision made by the selected reviewer. However, i could not find a simple way of getting the list of reviewers (as appears in the Reviewing tool bar). The only way i could think of, is walking through all revisions and look for the author of each one, but this may take tool long. Any idea? Tag: using code to determine the file location Tag: 109127
  - 9
    - Dynamic userforms Hello, I have created a Word template with a userform attached which appears on-screen for the user to fill-in and subsequently insert information into a letter. The macro which initiates this pop-up userform works great. However, it would be nice to place a date field into the userform that displays the date a developer last made a change to either the macro or userform associated with my template. Essentially, I would like to have a dynamic form in the sense that it displays the date when the template is saved. As you know, changes to macros and forms only take effect when the associated template is saved. I know this feature can be done with Javascript for webpages. Is there something similar under the hood of VBA for Word? Iâ??m trying to take the headache away from the developers so they will not have to manually insert a date each time they save changes to the macro and/or form. Not only would this be invaluable to developers for quality assurance but it would keep the end user informed to updates. Thanks! Ellen Tag: using code to determine the file location Tag: 109126
  - 10
    - Code to remove 'Enter' Symbols I recieve Text files that come from a HTML form and they are delimited by comma. One of the fields allows people to paste in account information that has a set format and adds in TABs and Line breaks or the symbols you get get when you hit enter. I need to scrub this out of file. Is there any little script that I can run in Word that would remove these? THanks! Mark Tag: using code to determine the file location Tag: 109125
  - 11
    - Function shortcut help Hi, I recently saw some VB code and there was a shortcut and I was hoping someone knew what is its correct term. When creating an object that required parameters (or a function), rather than putting blanks or nulls in optional parameters, the code named the param and gave it a value. In other words, if the function was defined as functionName(optionalParam1, optionalParam2, optionalParam3, optionalParam4) it could be called as functionName(optionalParamName3=paramValue3, optionalParamName4=paramValue4) or something like that. I would like to read more about this, but what is it called? Tag: using code to determine the file location Tag: 109117
  - 12
    - Macro to Search for Keyword in Files I'm trying to set up a search for keywords in a specific set of files. I don't want to have to go through and check the multitude of boxes over and over again. Ideally a macro button to execute such a search would be a Godsend. Anybody have any ideas? Thanx. Tag: using code to determine the file location Tag: 109114
  - 13
    - Serial Number Macro Problem with zeroes I use the following macro in Word 2003 to produce sequentially numbered certificates & have 2 problems with it. Sub SEQserialnumber() ' ' SEQserialnumber Macro ' Macro created 11/09/2007 by Sharon ' Dim Counter As Long Dim Message As String, Title As String, Default As String, NumCopies As Long Dim Rng1 As Range ' Set prompt. Message = "Enter the number of copies that you want to print. Get it right you can't stop it!" ' Set title. Title = "Print" ' Set default. Default = "1" ' Display message, title, and default value. NumCopies = Val(InputBox(Message, Title, Default)) ' Edit from Jay Freedman to enable user to specify serial number Message = "Enter the starting serial number" Title = "Serial Number" SerialNumber = Val(InputBox(Message, Title, Default)) 'Next line added to cause Ask field to fire pop-ups ActiveDocument.Fields.Update Set Rng1 = ActiveDocument.Bookmarks("SerialNumber").Range Counter = 0 While Counter < NumCopies Rng1.Delete Rng1.Text = SerialNumber ActiveDocument.PrintOut SerialNumber = SerialNumber + 1 Counter = Counter + 1 Wend 'Recreate the bookmark ready for the next use. With ActiveDocument.Bookmarks .Add Name:="SerialNumber", Range:=Rng1 End With 'Next line added to update { REF SerialNumber } 'This is more selective than just updating all the fields; in 'particular, the Ask fields (which have .Type = wdFieldAsk) won't be 'updated the second time. Dim Fld As Field For Each Fld In ActiveDocument.Fields If Fld.Type = wdFieldRef Then Fld.Update Next ActiveDocument.Close SaveChanges:=False End Sub Problem 1: I know find out that serial numbers begin with zeroes e.g. 0000001 to 0000005. If zeroes are entered they do not print and they must do so to much pre-printed labels. Problem 2: The 2nd serial number instance is not printing. This is a mergefield in the document as below. { REF SerialNumber \*MERGEFORMAT } I would be truly grateful for some help with both of these, thanks. Tag: using code to determine the file location Tag: 109107
  - 14
    - Word Macro opening Mail Merge Template I am attempting to upgrade a Word Macro from Word 2000 that runs as a forground task scheduled via windows scheduler on a unattended server. During the running of the macro it opens a template built for mail merge that latter dynamically attaches to a CSV data source. The issue I am having is that under 2003 opening the templete stops with "Opening this document will run the following SQL command:" goes on to list the CSV data source file path which I believe is a request to attach the data source. I need to suppress this request message. Currently the template is being opened with "Documents.Add Template:=Tmplt, newtemplate:=True, documenttype:=0" The current folder contains the template named in the variable "Tmplt". Suggestions? -- Ron H Tag: using code to determine the file location Tag: 109099
  - 15
    - Convert Microsoft Word document to jpeg, multi-page TIFF image Website: http://www.joyprinter.com Joy Image Printer is a high-performance virtual printer which enables you to convert any printable document into standard BMP, GIF, JPEG, PNG and TIFF image, and keep the exact look and feel of the original document. Since the converted image has the complete information from the original file without altering characters or fonts, you don't need to install the original software to view the document. Key Features: (1) Installs as a standard Windows printer, works for all Windows applications directly (2) Converts any printable documents like doc, xls, ppt, rtf, html and CAD into images (3) Supports BMP, GIF, PNG, JPEG and TIFF formats (4)Creates Thumbnails for Printing document (5)Dynamic file and folder generation based on macros (6)Supports both single and multi-page TIFF file formats Tag: using code to determine the file location Tag: 109098
  - 16
    - Subroutine Library I am looking foran efficient way to build a subroutine library. I have thought of just using an excel file with a lot of mofules or using access. They each have drawbacks. How are you managing your subroutines? Tag: using code to determine the file location Tag: 109095
  - 17
    - Remove "TEXT" from CommandBar This is what I am using to remove but in this instance it is not suitable - it does not remove it? I use this in 2003/2007 - any help would be appreciated to get "Style" TEXT removed from CommandBar would be appreciated! 'If you want to remove the item from the menu, you can do it like this: Sub RemoveDoStyles() Dim cb As CommandBar Dim ctl As CommandBarControl CustomizationContext = NormalTemplate Set cb = CommandBars("Text") For Each ctl In cb.Controls If ctl.Tag = "Style" Then ctl.Delete End If Next End Sub This is the macro that puts the "Style" TEXT on the CommandBar? Sub DoStyles() Dim StyleCount As Integer Dim J As Integer Dim x As CommandBar, z As CommandBarComboBox On Error Resume Next StyleCount = ActiveDocument.Styles.count Set x = CommandBars.Add("AllMyStyles", msoBarPopup) Set z = x.Controls.Add(msoControlComboBox) z.Caption = "Active Styles:" For J = 1 To StyleCount If ActiveDocument.Styles(J).InUse Then z.AddItem ActiveDocument.Styles(J) End If Next J z.Text = Selection.Style x.ShowPopup Selection.Style = z.List(z.ListIndex) CommandBars("AllMyStyles").Delete End Sub Tag: using code to determine the file location Tag: 109091
  - 18
    - Is word at end of the line When I seach for a word with the code: Selection.Find.ClearFormatting With Selection.Find .Text = " on" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Is there a way to determinine is the word is the last word on that line? I want to certain words to be moved to the next line if they are at the end of a line. Tag: using code to determine the file location Tag: 109087
  - 19
    - assistant goodbye At the beginning of your code, you set isVisible = Assistant.Visible If the end of your code has .Animation = msoAnimationGoodbye ...and then you finish up with Assistant.Visible = isVisible But if the assistant wasn't visible when the user start the code, then this last line does away with the previous line of animation, so that the assistant just disappears. ...is there a way to fix this? Tag: using code to determine the file location Tag: 109085
  - 20
    - Am I at the end of the document In my code I have: Selection.EndKey unit:=wdLine ...this puts me at the end of that line. It's there a way to tell if that is the last line in the document? thanks. Tag: using code to determine the file location Tag: 109082
  - 21
    - Unicode Find Question Can Unicode be used in the range.Find function? In this case, the Cyrillic font word is pasted in a textbox (MS Forms 2.0 library) that a range.Find.execute() routine uses as its Find.Text. How do you assign an entire Unicode word to Find.Text? Word 2003, Windows XP. Tag: using code to determine the file location Tag: 109078
  - 22
    - Formfield Question I have a document and in it there are 35 checkboxes (Formfields). I have a form to edit the document but I canâ??t set the checkboxes in the document as checked/unchecked base on how the form is filled out. How do you write a macro so that if the checkbox in the form is checked/unchecked it will check/uncheck the checkboxes in the document? Tag: using code to determine the file location Tag: 109076
  - 23
    - Supress blank text Using Word 2003 with Windows XP My VBA skills - Fair I have a template which I inherited. It is a monthly activity report for off site workers. The template contains 6 areas for acitivity reporting. Each area has 25 entry possiblities. In the first area - Meeetings - off site employees are required to report the meetings they attended. There is MeetingDate1, followed by MeetingReport1 all the way down to MeetingDate25 and MeetingReport25. What I would like to do is find some way of supressing any of the Meeting fields that are blank when the report prints. Right now, the report prints over 5 pages but most of the time there may be only 10-15 lines of actual text. Tag: using code to determine the file location Tag: 109075
  - 24
    - Copy borders I want to copy all borders of an HTMLDivision object to a selection. The HTMLDivision will be deleted before the copy. What is the best way to do this without doing so for each individual border? Tag: using code to determine the file location Tag: 109074
  - 25
    - Help with Clipboard / moving data Hello, I have a word vba app (word 2003) that has to get a lot of data from the clipboard, then parse it / display some of it. The clipboard data is in a table format, copied from another application that I can not access programmatically and get zero help from the IT dept here. When I copy it onto the clipboard, all of the stuff that I want is in the first table, but it also copies some text and possible a picture file after the table (which I subsequently ignore when parsing the data) Currently, I copy the data onto the clipboard from the other application, then paste it into a new document, then the table/data is read into an array and the sorting etc takes over and every thing is good. The orginal paste is deleted Is there a way to get the table data directly from the clipboard into a multicolumn array? I have only the vaguest idea what a dataobject is in connection to this and how this could be used with the clipboard object, the word help file is pretty slim. Thanks, Jim jimoc@comcast.net Tag: using code to determine the file location Tag: 109067

My template has code in AutoNew()
I need to asign strFileLocation as the file location of the template
How do I do this?
thanks.

Top

Re: using code to determine the file location by Jay

Jay
Fri Jan 11 10:56:39 PST 2008

Southern at Heart wrote:
> My template has code in AutoNew()
> I need to asign strFileLocation as the file location of the template
> How do I do this?
> thanks.

strFileLocation = ThisDocument.FullName

The key point here is that ThisDocument represents the template containing
the running code, not the active document (which would be ActiveDocument).

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