Save Selection with VBA?

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Limitation of a form field of 255 Characters Hi!! I am trying to use a macro to fill in a field in a form with a paragraph I copy from an EXCEL cell. The problem is that this paragrph has more than 255 characters so it doesn't seem to work directly. I have seen some article that sugest to use the clipboard as a way to overcome this problem. Then, the code I have programmed is as follows: Range("T"&fila) returns the paragraph from the EXCEL cell. wdFF is defined as Object in wordFile.Formfields. rngx is defined as Range If Len(Range("T" & fila)) > 255 Then wdFF.Result = Left$(Range("T" & fila), 250) MyDataObj.SetText "" MyDataObj.PutInClipboard MyDataObj.SetText Mid$(Range("T" & fila), 256) MyDataObj.PutInClipboard Set rngx = wdFF.Range rngx.GoTo rngx.Select With wordFile.Selection .Collapse wdCollapseEnd .Paste End With Else wdFF.Result = Range("T" & fila) End If The macro works fine until it arrives to the sentence "Set rngx = wdFF.Range" where it stops and says that formats are not compatible (rngx is defined as a range). Any idea of how to solve the problems with the code? Does the rest of the code for the macro look fine? Tag: Save Selection with VBA? Tag: 109296
  - 2
    - Dropdown Button Values Hi, I have done a form and I have included a dropdown button that allows to select among 6 different values that are predetermined. Now, I would like to have a second dropdown button that allows to select among 4 different values, but the issue is that those four values depends on the value previously selected in the button 1. In summary, Dropdown1 values (1, 2,3,4,5,6) and for Dropdown2 values as follow: - Dropdown1 =1 then a,b,c,d -Dropdown1=2 then e,f,g,h ..... and so on. Any idea of how to do this? Should I use a macro that fills in the values for the second dropdown button once the value for the first one is selected? Any suggestion on how this code should look like? Tag: Save Selection with VBA? Tag: 109295
  - 3
    - Working with Loops Below is a section of my macro. Is there a way to do a loop? Dim i as Long Dim WC35 As String, WC36 As String, WC37 As String Set oFF = ActiveDocument.FormFields If oFF("Check35").CheckBox.Value = False And Me.Controls("Ck35").Value = False Then WC35 = False ElseIf oFF("Check35").CheckBox.Value = False And Me.Controls("Ck35").Value = True Then WC35 = False ElseIf oFF("Check35").CheckBox.Value = True And Me.Controls("Ck35").Value = False Then WC35 = True ElseIf oFF("Check35").CheckBox.Value = True And Me.Controls("Ck35").Value = True Then WC35 = False End If If oFF("Check36").CheckBox.Value = False And Me.Controls("Ck36").Value = False Then WC36 = False ElseIf oFF("Check36").CheckBox.Value = False And Me.Controls("Ck36").Value = True Then WC36 = False ElseIf oFF("Check36").CheckBox.Value = True And Me.Controls("Ck36").Value = False Then WC36 = True ElseIf oFF("Check36").CheckBox.Value = True And Me.Controls("Ck36").Value = True Then WC36 = False End If If oFF("Check37").CheckBox.Value = False And Me.Controls("Ck37").Value = False Then WC37 = False ElseIf oFF("Check37").CheckBox.Value = False And Me.Controls("Ck37").Value = True Then WC37 = False ElseIf oFF("Check37").CheckBox.Value = True And Me.Controls("Ck37").Value = False Then WC37 = True ElseIf oFF("Check37").CheckBox.Value = True And Me.Controls("Ck37").Value = True Then WC37 = False End If Set oFF = Nothing I tried the following but the debugger kept giving me an error at â??(â??WCâ?? & i)â??. Set oFF = ActiveDocument.FormFields For i = 35 To 37 If oFF("Check" & i).CheckBox.Value = False And Me.Controls("Ck" & i).Value = False Then (â??WCâ?? & i) = False ElseIf oFF("Check" & i).CheckBox.Value = False And Me.Controls("Ck" & i).Value = True Then (â??WCâ?? & i) = False ElseIf oFF("Check" & i).CheckBox.Value = True And Me.Controls("Ck" & i).Value = False Then (â??WCâ?? & i) = True ElseIf oFF("Check" & i).CheckBox.Value = True And Me.Controls("Ck" & i).Value = True Then (â??WCâ?? & i) = False End If Next i Set oFF = Nothing Tag: Save Selection with VBA? Tag: 109294
  - 4
    - Change quotes into curly quotes with VBA? Dear all, Is it possible to use VBA to change all quotes into curly quotes (not smart quotes). Now I have Chr0145, Chr0146, Chr0147 and Chr0148 in my document. I've tried to do this with Search & Replace unsuccessfully, in various fonts. Best regards, Shirley Nomey Tag: Save Selection with VBA? Tag: 109290
  - 5
    - Form field check box Hi, I'm working on a form in Word 2000. If the user checks a check box (chk2a), I want three check boxes in the form to be disabled (chk3a, chk3b, chk3c). I want them to be dimmed and disabled. Thanks. cc Tag: Save Selection with VBA? Tag: 109276
  - 6
    - Making userforms accessible to multiple templates Hello I have a userform under my Normal.dot file which I want to be accessible by 4 other user-defined templates. I envision adding a toobar to each template which contains a button that links you to the global userform from any document created from any of the user-defined templates. Is there a way that this can be done? Thanks! Ellen Tag: Save Selection with VBA? Tag: 109270
  - 7
    - MS Word Automation help Hello, I am trying to find a method via VBA or VB that will determine whether a MS Word Doc is password protected. A boolean result would be the best.. OR can I trap for the Password Dialog that opens up when a passworded doc is opened and handle it myself via code? Some Background We are trying to page out (each page as a seperate doc) a document that may or may not be passworded, a a background function of an application. What we want to do it manage the password dialog event ourselves so we can keep word hidden away, and pass in the passwords in our open call as needed. FYI: Word stays open when a password is required and looks like crap while we process 20 or more pages. Thanks Scott Tag: Save Selection with VBA? Tag: 109269
  - 8
    - How to find MS Word's default file location I have a Word template to share with others. I repeatedly have to explain how they need to put it in their template folder before using it. Is there a simple way to create an .exe file that all it does check to see what the MS Word uses as the tempate folder and copys my template into it? thanks. ck Tag: Save Selection with VBA? Tag: 109266
  - 9
    - Does A "Delete Section" Macro Already Exist? Hi, I'm looking for a macro that deletes the current section in a multi-section document, and that fixes the header and footer problem that occurs when deleting section breaks. I wanted to find out if someone had a macro out there already before I tackled it myself. TIA MarieJ Tag: Save Selection with VBA? Tag: 109265
  - 10
    - using code to determine the file location My template has code in AutoNew() I need to asign strFileLocation as the file location of the template How do I do this? thanks. Tag: Save Selection with VBA? Tag: 109264
  - 11
    - 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: Save Selection with VBA? Tag: 109263
  - 12
    - 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: Save Selection with VBA? Tag: 109258
  - 13
    - 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: Save Selection with VBA? Tag: 109254
  - 14
    - 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: Save Selection with VBA? Tag: 109252
  - 15
    - 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: Save Selection with VBA? Tag: 109248
  - 16
    - 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: Save Selection with VBA? Tag: 109244
  - 17
    - 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: Save Selection with VBA? Tag: 109241
  - 18
    - 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: Save Selection with VBA? Tag: 109235
  - 19
    - 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: Save Selection with VBA? Tag: 109234
  - 20
    - 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: Save Selection with VBA? Tag: 109233
  - 21
    - 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: Save Selection with VBA? Tag: 109222
  - 22
    - 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: Save Selection with VBA? Tag: 109219
  - 23
    - 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: Save Selection with VBA? Tag: 109218
  - 24
    - 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: Save Selection with VBA? Tag: 109217
  - 25
    - 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: Save Selection with VBA? Tag: 109215
- Next
  - 1
    - 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: Save Selection with VBA? Tag: 109213
  - 2
    - 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: Save Selection with VBA? Tag: 109207
  - 3
    - 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: Save Selection with VBA? Tag: 109186
  - 4
    - 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: Save Selection with VBA? Tag: 109176
  - 5
    - 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: Save Selection with VBA? Tag: 109174
  - 6
    - 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: Save Selection with VBA? Tag: 109167
  - 7
    - how do I add scripts to my word doc? I would like to add jscript to my Word document. Is this possible? Tag: Save Selection with VBA? Tag: 109165
  - 8
    - 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: Save Selection with VBA? Tag: 109162
  - 9
    - 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: Save Selection with VBA? Tag: 109161
  - 10
    - 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: Save Selection with VBA? Tag: 109158
  - 11
    - 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: Save Selection with VBA? Tag: 109150
  - 12
    - 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: Save Selection with VBA? Tag: 109143
  - 13
    - 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: Save Selection with VBA? Tag: 109142
  - 14
    - 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: Save Selection with VBA? Tag: 109140
  - 15
    - 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: Save Selection with VBA? Tag: 109139
  - 16
    - 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: Save Selection with VBA? Tag: 109135
  - 17
    - 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: Save Selection with VBA? Tag: 109129
  - 18
    - 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: Save Selection with VBA? Tag: 109127
  - 19
    - 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: Save Selection with VBA? Tag: 109126
  - 20
    - 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: Save Selection with VBA? Tag: 109125
  - 21
    - 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: Save Selection with VBA? Tag: 109117
  - 22
    - 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: Save Selection with VBA? Tag: 109114
  - 23
    - 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: Save Selection with VBA? Tag: 109107
  - 24
    - 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: Save Selection with VBA? Tag: 109099
  - 25
    - 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: Save Selection with VBA? Tag: 109098

This is a multi-part message in MIME format.

------=_NextPart_000_009A_01C855FB.DF21B6A0
Content-Type: text/plain;
charset="Windows-1252"
Content-Transfer-Encoding: quoted-printable

Hi, can someone tell me if there is a Save Selection VBA (whatever is =
highlighted) and Save As give doc name way to do this? One can print =
selection but can one save selection with VBA? Many thanks...
------=_NextPart_000_009A_01C855FB.DF21B6A0
Content-Type: text/html;
charset="Windows-1252"
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=3Dwindows-1252">
<META content=3D"MSHTML 6.00.6000.16587" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Hi, can someone tell me =
if there is a=20
Save Selection VBA (whatever is highlighted) and Save As give doc =
name way=20
to do this? One can print selection but can one save selection with =

VBA? Many thanks...</FONT></DIV></BODY></HTML>

------=_NextPart_000_009A_01C855FB.DF21B6A0--

Top

Re: Save Selection with VBA? by Tony

Tony
Sun Jan 13 01:05:53 PST 2008

This is a multi-part message in MIME format.

------=_NextPart_000_1B9A_01C855C3.7FF81E90
Content-Type: text/plain;
charset="Windows-1252"
Content-Transfer-Encoding: quoted-printable

Something like this perhaps (untried) ..

Selectin.copy
with documents.add
.Range.Paste
.Save
.Close false
End With

--=20
Enjoy,
Tony
=20
"Summer" <Summer@docsliveonline.com> wrote in message =
news:%23mYbt%23ZVIHA.4196@TK2MSFTNGP04.phx.gbl...
Hi, can someone tell me if there is a Save Selection VBA (whatever is =
highlighted) and Save As give doc name way to do this? One can print =
selection but can one save selection with VBA? Many thanks...
------=_NextPart_000_1B9A_01C855C3.7FF81E90
Content-Type: text/html;
charset="Windows-1252"
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=3Dwindows-1252">
<META content=3D"MSHTML 6.00.6000.16481" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Something like this perhaps (untried)=20
..</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>Selectin.copy</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>with documents.add</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>    =
.Range.Paste</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>    .Save</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>    .Close =
false</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>End With</FONT></DIV>
<DIV><BR>-- <BR>Enjoy,<BR>Tony<BR> </DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Summer" <<A=20
=
href=3D"mailto:Summer@docsliveonline.com">Summer@docsliveonline.com</A>&g=
t;=20
wrote in message <A=20
=
href=3D"news:%23mYbt%23ZVIHA.4196@TK2MSFTNGP04.phx.gbl">news:%23mYbt%23ZV=
IHA.4196@TK2MSFTNGP04.phx.gbl</A>...</DIV>
<DIV><FONT face=3DArial size=3D2>Hi, can someone tell me =
if there is a=20
Save Selection VBA (whatever is highlighted) and Save As give doc=20
name way to do this? One can print selection but can one =
save=20
selection with VBA? Many =
thanks...</FONT></DIV></BLOCKQUOTE></BODY></HTML>

------=_NextPart_000_1B9A_01C855C3.7FF81E90--

Top