Inserting blank lines into a Range

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Inserting blank lines into a Range Hi, I'm currently writing code in Access97 to format a Word document. I have a range(currently the entire document) and am trying to replace and format this document based on values in a source doument. Within this range, I'm trying to move to the end of some text I've just inserted within a range, and and insert a blank line. When I record the macro in Word it looks like this: Selection.EndKey Unit:=wdLine Selection.TypeParagraph Selection.TypeParagraph Tag: Inserting blank lines into a Range Tag: 38079
  - 2
    - Change Bars Hello Everyone, I've got a document with Change Bars (rev bars) to the right. I'de like to be able to check the whole document and specify which pages have the change bars. Is this possible? Any ideas and suggestions are much appreciated. -MarkA Tag: Inserting blank lines into a Range Tag: 38078
  - 3
    - Open document line acting strange Hello. I am running a mail merge from Access 97 into Word 97, and using the following code in Access to open my mail merge document. Some computers here are on Windows 2000, while others are on Windows NT. The code works fine on the NT computers, while on the 2000 computers it doesn't assign the document to WordDoc. Here's the code: Set WordDoc = WordApp.Documents.Open(strDocName) Could anyone explain this? Thanks in advance, Jen Tag: Inserting blank lines into a Range Tag: 38077
  - 4
    - Problem VB/VBA Hello, I make a fusion of personal fields into Word, with a vb project. This code make my search and replace : Public Sub Remplacer_texte(Texte_à_remplacer As Variant, Texte_de_remplacement As Variant) With myWordApplication // instancié à l'init de la classe .Selection.Find.ClearFormatting .Selection.Find.Replacement.ClearFormatting With .Selection.Find .Text = Texte_à_remplacer .Replacement.Text = Texte_de_remplacement .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With .Selection.Find.Execute Replace:=wdReplaceAll End With End Sub It's works great ! But if there is a text area, the text into it is not replaced. The strange thing, is when i do that directly with Word, Word replace the texte into text areas too. I maked a macro to see how Word do that, and the code is exactly the same with my !!! If somebody can help me ? tks Carl Tag: Inserting blank lines into a Range Tag: 38076
  - 5
    - Controlling Excel from Word 2002 I have been working on this for weeks. I am trying to import a .WRI file into word, modify it, put it into columns, enter it into an excel file and save it to .DBF. I have everything but the parsing of the text in excel. I keep getting an error. I modified the code found in here, but it crashes at the "TEXTTOCOLUMNS" line. This is the code: Dim i As Integer Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True Set xlWB = xlApp.Workbooks.Add xlWB.Activate xlWB.ActiveSheet.Range("A1").Select xlWB.ActiveSheet.Paste 'xlWB.ActiveSheet.Range("A1").Select 'xlSht.Select "A1" xlApp.Selection.TextToColumns Destination:=Range("A1").Select, DataType:=xlFixedWidth, _ FieldInfo:=Array(Array(0, 1), Array(22, 1), Array(32, 1), Array(44, 1), Array(55, 1), _ Array(61, 1), Array(69, 1), Array(78, 1)), TrailingMinusNumbers:=True Columns("A:A").EntireColumn.AutoFit Columns("A:A").ColumnWidth = 26.14 Columns("B:B").ColumnWidth = 9.57 Columns("C:C").EntireColumn.AutoFit Columns("C:C").ColumnWidth = 11.71 Columns("D:D").EntireColumn.AutoFit Columns("D:D").ColumnWidth = 11.14 Columns("H:H").EntireColumn.AutoFit Thanks for any help ------------------------------------------------ ~~ Message posted from http://www.ExcelTip.com/ ~~ View and post usenet messages directly from http://www.ExcelForum.com/ Tag: Inserting blank lines into a Range Tag: 38073
  - 6
    - Strange field action in protected document We have developed a protected 'form' document that contains what is basically a description of changes to a test web site that need to be reviewed. The document is structured with indentation and font styles to highlight information. The original document, as prepared by the web site team, contains embedded HYPERLINK fields to provide direct access to the test site. In order to tuen this into a form, we replace a special character sequence into a drop-down with an edit fiedd to permit the user to indicate whether the change is approved or rejected and, if rejected, to explain the reasons. The HYPERLINKS are embedded within a MacroButton field to permit them to be invoked from within the protected form. An example is shown below. { MacroButton "FollowLink"{ HYPERLINK http://a.b.c.d/TestSite/Page.html } } Of course, the file also contains a macro named FollowLink that contains the code Selection.Hyperlinks(1).Follow Normally, this type of field is the first thing on a line of a list with special bullet characters and there is text after the field. In most cases these fields work just fine, simply requiring that the user double-click on the field to cause the specified web page to be displayed in a browser. In one case, however, simply clicking once causes the page to move so that the selected field is in the top 1/3 of the page. Once it is there, double-clicking will then work. As long as that field is in the top 1/3 of the page, this behavior is not exhibited. There are also some of these fields at the end of the document that cause the docuemnt to scroll to a location near the top of the document (I believe that the first drop-down field is being selected) when they are clicked. Since the document is several pages long, this makes it impossible to double-click on these fields. The only thing different about these fields that I can see is that there is no text after them; but even if I add some text they behave the same way. All of the other fields so defined behave as expected. They do not reposition the visible portion of the document and a double-click functions properly. Does anyone have any idea why this may be happening and what I can do to stop it? -Ken Tag: Inserting blank lines into a Range Tag: 38071
  - 7
    - Application Error when running Macro on Workbook open I have a multipage form that I'd like to open when a workbook is opened. It reads values from various defined Names of the workbook to populate the form fields. The user can then change the values and on pressing 'OK' button the values should be validated and if appropriate re-copied back into the cells referenced by the Names. This works fine when I display the form from the already opened workbook, but the process fails with Error 1004 ("Application-defined or object-defined error") when the form is called from the Workbook_Open() procedure. The procedure crashes on the following line: ActiveWorkbook.Names(arrControlNames(intCurrentControl, 2)).RefersToRange.Value = _ Controls(arrControlNames(intCurrentControl, 1)).Value Where arrControlNames is an array to store details of text controls and associated name such that arrControlNames(x,1) is the ControlName and arrControlNames(x,2) is the associated RangeName Full code extract is below. Can anyone shed any light on this? Thanks in advance TM ================== Private Sub Workbook_Open() Load frmProjectProperties frmProjectProperties.Show End Sub Private Sub cmdOK_Click() 'First, validate all values - if invalid then exit sub '... {Validation Code} '... 'If we reach this point then all values have tested valid 'Update values to worksheet and close form For intCurrentControl = LBound(arrControlNames, 1) To UBound(arrControlNames, 1) If arrControlNames(intCurrentControl, 1) <> "" Then ActiveWorkbook.Names(arrControlNames (intCurrentControl, 2)).RefersToRange.Value = _ Controls(arrControlNames (intCurrentControl, 1)).Value End If Next Unload frmProjectProperties End Sub Tag: Inserting blank lines into a Range Tag: 38069
  - 8
    - Macro Help I got this problem. I want to make macro which will copy some sentences from specified areas (for 1 sentence from each area) from Document1 to specified sentences areas (1 sentence to each area) in Document2. I know it is hard but I need help or some hints if possible. You can also answer on my e-mail. Thank you. Sasa Batovanja Tag: Inserting blank lines into a Range Tag: 38064
  - 9
    - Urgent help need for line break macro plssssssss Hi everybody, I just thought somebody can help me to create a macro with following functions. I have some text document each has two potions -HEAD- . . . -BODY- ---------SAMPLE---------- -DATE- 20030601 -ISSU- June 2003 -PAGE- 96 -SECT- jhhkhrthehrkht -HEAD- Every job i ever had, people always seemed to want to think small,"**(70 charachter limits) says Geoffrey Ballard by way of explaining why he went into -BYLN- fgdfhggdfjg -TYPE- *** -SUBJ- efforts to promote vehicles powered by zero-emission hydrogen-*** based fuel cells have earned him such accolades -NAME- *** -BODY- I said this years ago and I see no reason to change my mind: The family-owned, garaged vehicle is the last vehicle that's going to get a fuel cell. Fuel cells are still 30 times the cost of what they need to be for the automotive market. We will need to have huge experimental fleets, where we will put hundreds of people in controlled environments and see what they do with these vehicles. Are people going to be buying them and taking them apart to see ho they work? What sort of problems are we going to create? I doubt that I will ever see a hydrogen car for personal consumption in a showroom. But I am certainly going to struggle to stay alive long enough to see the fleets change--army vehicles, taxis, trucks and ----------------------SAMPLE END----------- * in the head part there will text and it should not exceed 70 characters per line. if its gos to more than 70 characters, macro has to put enter or para break. but it should not break from the middle of a word. * in the body part, also same rule but charachter limits is 73. Please help me some Thejan Tag: Inserting blank lines into a Range Tag: 38062
  - 10
    - Saving .txt l am having a problem getting the system to save the .txt file in the local share. l have tried to change the lines : Order = System.PrivateProfileString ("C:\Settings.txt","MacroSetting", "Order") and System.PrivateProfileString ("C:\Settings.txt","MacroSetting", "Order") = Order To Order = System.PrivateProfileString ("S:\Company_Templates\Purchase_Orders.txt","MacroSetting", "Order") and System.PrivateProfileString ("S:\Company_Templates\Purchase_Orders.txt","MacroSetting", "Order") = Order The system does not like this so now l'm lost. Is anybody able to put me on the right track as to how to fix this. Regards Tony Goldring Tag: Inserting blank lines into a Range Tag: 38056
  - 11
    - Font change not recorded in Word 2002 I am just beginning to relearn VBA. The book that I am using suggests recording a macro that changes selected text to Aril, 12 point bold. When I record the macro with Word 2002, it has not picked up the fontname change from the font list, nor the point size change from the drop-down list. It just picks up the toggling of the bold button. Is this a bug or am I doing something wrong? Tag: Inserting blank lines into a Range Tag: 38052
  - 12
    - Following the shortcut How can I follow a shortcut from within VBA. I guees I will need to use a Windows API call but I don't know which. I want to list all documents in a folder (using Dir function) and if one of the folders is actually a shortcut, I will need to go to the destination of this shortcut and list the documents here. If I rightclick on the shortcut and choose properties, I can see the destination, but how can I access this information from VBA? Tag: Inserting blank lines into a Range Tag: 38051
  - 13
    - Can't close footer In Word 2002 I have a macrobutton in the footer of the document that is intended to delete the paragraph containing the macro button, return to the main document, and then run another macro. Below is the entire code. When I "step" through it, the footer closes as expected, but when I double-click it, the paragraph with the macro button is deleted as desired, but the cursor stays in the footer. What can I do to make the footer close? With Selection .MoveRight Unit:=wdCharacter, Count:=1 .Expand Unit:=wdParagraph .Delete End With ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument Application.Run MacroName:="Find_Next_Caret" TIA, Vivian Tag: Inserting blank lines into a Range Tag: 38049
  - 14
    - Can I evaluate strings during a merge? If I want to do advanced text processing during a merge, like extracting a first initial from the First_Name field or looking for a word in a larger merge field in order to determine what text appears in a final merge document, how can I do this? Possible approaches: Is there a way to include a Field code that automatically runs some VBA code I wrote, so that it is executed and evaluates each record as it is merged, looking at the first character or searching for a word within the text (like Instr in VBA)? Is there a way to just embed those more advanced text commands directly into the Merge main document (the form)? I'm coming at this from WordPerfect where such things were trivial - you could embed any command into the Form document and it would be executed during the merge. The equivalent in Word would be being able to enter VBA commands as Field codes so they are carried out during the merge. As far as I can tell, this is impossible. The next best thing, I think, would be to be able to launch VBA code and pass it parameters during the merge. I cannot figure out how to do this. Maybe I'm looking at the problem all wrong, because I am still thinking like a WordPerfect user. Is there a whole other approach I need to take? Maybe I need to think of the VBA running the merge, instead of the merge calling my VBA code? If so, how would I do that and how would I specify where to do the string processing I need? If you need more information from me to be able to answer my questions, please let me know. Thanks, Colin Tag: Inserting blank lines into a Range Tag: 38040
  - 15
    - Extraction Hello, I was reading a reply Cindy Meister provided a while back to another question. In her reply she said that you could write a macro to extract the first letter of a word in a list and create a new list. Can this be extended to say the third and fourth character or the information between slashes. For example if I had a table with First Name, Last Name and Date, Greg Maxey 9/14/03 How would one go about creating a macro to extract "G" and create an new column Initial that contains "G" and extract "14" and create a new column Day that contains "14." Thank you. -- \\\\/////////// ( @ @ ) ----oo00---(_)---00oo---- Greg Maxey A peer in "peer to peer" support Rockledge, FL Tag: Inserting blank lines into a Range Tag: 38039
  - 16
    - Send as attachment I have a VBA button and need to insert a code in it that when the user clicks, it will send the document as an attachment to Todd.Huttenstine@VerizonWireless.com and will make the subject of the email say "Order Form". Thanks in advance Todd Huttenstine Tag: Inserting blank lines into a Range Tag: 38038
  - 17
    - out of memory problem in code documentor I've been developing a code documentor in Word 97 for some time & finally figured out how to add line numbers to the lines of code exported to a Word document. The line numbering code is run twice because a key word index & a TOC change the line numbers after they have been added. Running a second time corrects the problem, but it only gets half way thru before it runs out of memory. The temporary files left in the Temp folder are huge - the code is VERY long. Is there a more efficient way of doing some of the code to release enough memory for it to finish? I would package the bas files etc or the whole template in a zip if anyone would be kind enough to help & give a few tips on where I could make improvements. Many thanks in advance, Terry Hornsby Tag: Inserting blank lines into a Range Tag: 38036
  - 18
    - Compare Documents problem Word 2000 I have a problem with the Compare Document function of Word 2000 and I was wondering if any one might have a solution or a work around. It involves comparing documents that contain tables. Whenever there is a minor change in a table the result is that the whole row is shown with a strikethrough and a new row below all shown highlighted. This both disguises the changed portion of text (in many cases very minor) and overstates the amount of change. Is there anyway of changing this? Or upgrade the compare document feature of Word 2000 to Word 2002? I realize that Word 2002 and Word XP has solved this problem, however, I am currently working with Word 2000 at work and I don't think the company will be upgrading to Word 2000 or XP any time soon. I use the Compare Document feature of Word 2000 through Microsoft Excel and I was wondering if there are any Visual Basic classes that might mimic what Compare Document does, in which case I can add it to the code of my Excel project. Thank you Garry Tag: Inserting blank lines into a Range Tag: 38034
  - 19
    - Compare Documents problem Word 2000 I have a problem with the Compare Document function of Word 2000 and I was wondering if any one might have a solution or a work around. It involves comparing documents that contain tables. Whenever there is a minor change in a table the result is that the whole row is shown with a strikethrough and a new row below all shown highlighted. This both disguises the changed portion of text (in many cases very minor) and overstates the amount of change. Is there anyway of changing this? Or upgrade the compare document feature of Word 2000 to Word 2002? I realize that Word 2002 and Word XP has solved this problem, however, I am currently working with Word 2000 at work and I don't think the company will be upgrading to Word 2000 or XP any time soon. I use the Compare Document feature of Word 2000 through Microsoft Excel and I was wondering if there are any Visual Basic classes that might mimic what Compare Document does, in which case I can add it to the code of my Excel project. Thank you Garry Tag: Inserting blank lines into a Range Tag: 38033
  - 20
    - ActivePrinter Does anyone else have trouble with a time delay to process a line of code that sets the ActivePrinter property? eg. ActivePrinter = "Brother Series 1240" If so is there a work around? Simon Hayden Tag: Inserting blank lines into a Range Tag: 38032
  - 21
    - Controlling Distiller from VBA Are there an example on how to write out Word documents with Distiller? I wrote up some code to do this and it works if I single step through the code. I do not block on distiller execution so running it in normal mode causes file contention problems. I added sleep commands but this does not work consistently. I need to use Distiller and not PDFWriter since I need to have password security. Regards, Bill Bell Tag: Inserting blank lines into a Range Tag: 38027
  - 22
    - InsertAfter - What am I missing? I am using insertafter to add two lines of text that are used by my fax server as embedded codes for determining destination name and fax number. The following is an example... <TONAME:ME> <TOFAXNUM:15555555555> The text must be formated in a native printer font such as courier. When I look at the document it looks great but the fax application does not recognize the embedded codes. If I retype the same text manually it works fine. What am I missing? Thanks for taking a look. I am greatly appreciative for any hints you may be able to provide. Thanks, Howard Tag: Inserting blank lines into a Range Tag: 38026
  - 23
    - Execute a macro on file open I want to execute a macro when a file opens. Any help is appreciated. Thanks Paul Tag: Inserting blank lines into a Range Tag: 38018
  - 24
    - External commands for Word? Hi All...... Background: I have an Excel Add-in that will create a textScript of AutoCAD commands and store it in a file. Then, I have an AutoCAD menu which allows me to seize that Scriptfile and have it to start feeding AutoCAD it's commands and AutoCAD responds, specifically by opening AutoCAD files and printing them out........... Problem: I would like to know if it's possible to get Word to find a similar Script file and use it to execute the list of commands therein to open and print a list of Word documents. Of course, the contents of the new Scriptfile would be modified to be Word commands rather than AutoCAD ones, and the list would vary each time. Any ideas would be appreciated..... Vaya con Dios, Chuck, CABGx3 Tag: Inserting blank lines into a Range Tag: 38017
  - 25
    - Document Name Comparition This is a multi-part message in MIME format. ------=_NextPart_000_0025_01C37959.D7070E80 Content-Type: multipart/alternative; boundary="----=_NextPart_001_0026_01C37959.D7070E80" ------=_NextPart_001_0026_01C37959.D7070E80 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable En blancoHi, I need a code that tell me the name of the document (generally = Document1, Document2), get that name and compare with "Plantilla = 2003+". If the name of the document is equal than "Plantilla 2003+" = application will finish, if not you continue working. I'll put that code = in Document.New and Document.Open place. I've trying with code but can't find the righ code. Please, any help = will be so much important for me. Regards, Omar ------=_NextPart_001_0026_01C37959.D7070E80 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD><TITLE id=3DridTitle>En blanco</TITLE><BASE=20 href=3D"file://C:\Archivos de programa\Archivos comunes\Microsoft = Shared\Stationery\"> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <STYLE>BODY { MARGIN-TOP: 25px; FONT-SIZE: 10pt; MARGIN-LEFT: 25px; COLOR: #000000; = FONT-FAMILY: Arial, Helvetica } P.msoNormal { MARGIN-TOP: 0px; FONT-SIZE: 10pt; MARGIN-LEFT: 0px; COLOR: #ffffcc; = FONT-FAMILY: Helvetica, "Times New Roman" } LI.msoNormal { MARGIN-TOP: 0px; FONT-SIZE: 10pt; MARGIN-LEFT: 0px; COLOR: #ffffcc; = FONT-FAMILY: Helvetica, "Times New Roman" } </STYLE> <META content=3D"MSHTML 6.00.2800.1106" name=3DGENERATOR></HEAD> <BODY id=3DridBody bgColor=3D#ffffff=20 background=3Dcid:002001c37972$fc51d580$0100007f@mipcxt400> <DIV>Hi,</DIV> <DIV> </DIV> <DIV>I need a code that tell me the name of the document (generally = Document1,=20 Document2),  get that name and compare with "Plantilla 2003+". If = the name=20 of the document is equal than "Plantilla 2003+" application will finish, = if not=20 you continue working. I'll put that code in Document.New and = Document.Open=20 place.</DIV> <DIV> </DIV> <DIV>I've trying with code but can't find the righ code. Please, any = help will=20 be so much important for me.</DIV> <DIV> </DIV> <DIV>Regards,</DIV> <DIV> </DIV> <DIV> </DIV> <DIV>Omar</DIV> <DIV> </DIV> <DIV> </DIV> <P> </P></BODY></HTML> ------=_NextPart_001_0026_01C37959.D7070E80-- ------=_NextPart_000_0025_01C37959.D7070E80 Content-Type: image/gif; name="Fondo de En blanco.gif" Content-Transfer-Encoding: base64 Content-ID: <002001c37972$fc51d580$0100007f@mipcxt400> R0lGODlhLQAtAID/AP////f39ywAAAAALQAtAEACcAxup8vtvxKQsFon6d02898pGkgiYoCm6sq2 7iqWcmzOsmeXeA7uPJd5CYdD2g9oPF58ygqz+XhCG9JpJGmlYrPXGlfr/Yo/VW45e7amp2tou/lW xo/zX513z+Vt+1n/tiX2pxP4NUhy2FM4xtjIUQAAOw== ------=_NextPart_000_0025_01C37959.D7070E80-- Tag: Inserting blank lines into a Range Tag: 38016
- Next
  - 1
    - Macro to pull information out of an email Hi, I am not a programmer so any help in this request would be much appreciated. I am trying to create a macro within a word document that would allow me to paste the subject line of an email that I could select out of outlook. If that is easy enough to do, then the next step would be to save the word document and attach it to the email that I selected for the subject line. Again, any help would be appreciated. Thanks, Shaun Tag: Inserting blank lines into a Range Tag: 38009
  - 2
    - Automation Looking for a method to have a document when you open it mail merge itself, print and then close itself. Any pointer in the right direction would be great. Tag: Inserting blank lines into a Range Tag: 38008
  - 3
    - AutoFormat Problems I checked my AutoFormat options under AutoCorrect under the tools menu and it is turned on to turn 3 hyphens into a border. But when I do that on Word it won't work. Why? Can anyone help me? I also tried three =s and then enter for a double line and that didn't work either. Thanks Kay Tag: Inserting blank lines into a Range Tag: 38007
  - 4
    - Inserting WordArt In Headers I am trying to programmatically insert a WordArt object into all the headers in all the sections of a document. I am using the following code: For Each mySection In ActiveDocument.Sections If ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter Then Set FirstPageWatermark = mySection.Headers (wdHeaderFooterFirstPage).Shapes.AddTextEffect (msoTextEffect2, "test", "Arial Black", 36, msoFalse, msoFalse, 0, 0, mySection.Headers (wdHeaderFooterFirstPage).Range) End If Set PrimaryWatermark = mySection.Headers (wdHeaderFooterPrimary).Shapes.AddTextEffect (msoTextEffect2, "test", "Arial Black", 36, msoFalse, msoFalse, 0, 0, mySection.Headers (wdHeaderFooterPrimary).Range) Next In a document set to use a different first page, the result I get is that there are two WordArt objects on the first page and none on the subsequent pages. I suspected it was down to the Anchor property of the shape, but I have messed about with various settings to no avail. I know it can be done using SeekView and moving around the document, but that does not seem very elegant to me - especially when you have to put the document in print layout first and then put it back to whatever the user had originally, etc. Anyone got any better ideas? Tag: Inserting blank lines into a Range Tag: 38005
  - 5
    - Deleting Automatic Macro When I installed Office XP - somehow it decided to install a macro for EZ Photo on my standard toolbar in Word. Unfortunately, I don't have the EZPhoto installed on my computer - so I don't know why this came up. Also, each time I open Word, a new EZPhoto button appears on the toolbar. If I haven't removed the button from the tool bar from the last time that I opened Word, it adds another one. So, I keep having to remove the button. How do I get it to stop running this macro? It shows up as "LaunchEasyPhoto.MAIN" in the macro list. I have tried the delete macro steps in the Tools menu, but it won't let me delete the Project Template for EZ Photo. Thanks. Tag: Inserting blank lines into a Range Tag: 38004
  - 6
    - WORD MACRO I am having lots of problems with what should be a simple macro. I am creating a form in word. What I want to happen is that when the user selects a certain option from the dropdown, it will execute another macro. however my code doesnt seem to do that at all. here is my code Sub dropdown() ' ' dropdown Macro ' Macro created 9/12/2003 by matt ' If dropdown1.Value = "Not Accepted" Then comment End If End Sub Sub comment() ' ' comment Macro ' Macro recorded 9/12/2003 by matt ' Selection.comments.Add Range:=Selection.Range End Sub Can anyone help me so this executes when the dorp down item is selected Tag: Inserting blank lines into a Range Tag: 38002
  - 7
    - Bookmarks in VBA? Hi Folks, How can I loop through the number of bookmarks in a document assigning the name to a VAR and output it to a file? It's mainly the parsing of the bookmark name from the bookmark property I need as I can do teh rest from there. I can loop through the file holding the names of the bookmark and add them to a doc but I can't seem to retrieve them! Cheers J p.s. here's what I tried If ActiveDocument.Bookmarks.Count > 1 Then BKMCount = ActiveDocument.Bookmarks.Count ReDim aMarks(BKMCount) i = 0 For i = 0 To BKMCount Step 1 aMarks = ActiveDocument.Bookmarks.Item(i) Next i filename = "C:\test2.txt" filenumber = FreeFile Open filename For Input As #filenumber On Err GoTo Closefile Do While Not (EOF(filenumber)) Input #filenumber, aMarks(i) i = i + 1 Loop Closefile: Close #filenumber Tag: Inserting blank lines into a Range Tag: 38001
  - 8
    - Disable word asking notes I got this problem. When I use macro for formating tables in long document, Word (after few formated tables) keep asking if I realy want to do this, because it has an insufficient memory and tells me that there will be no possibility to undo this action. I want to disable this asking note, because i wont use undo action. Thank you for helping me out. Batovanja Sasa Tag: Inserting blank lines into a Range Tag: 37994
  - 9
    - Cleaning up and more instances of WORD I have a VB6 program looping through DOC-files in a folder making some statistics on the DOC-files in a Excel-sheet. When the program is runing I can NOT use WORD for other purposes because the DOC-files then open in this instans of Word - sample snip: Set WrdDoc = WrdApp.Documents.Open(App.Path & "\" & FileN) ', , , , , , , , , , , False) . . . gathering some statistics til an Excel-sheet . WrdDoc.Close False Set WrdDoc = Nothing IF I use the parameter Visible=False (commented out here!) I can NOT use the "WrdDoc.Close False" If I comments out the "WrdDoc.Close False" I get ALL tilde- workfiles visible (and it's 10.000'd of files !) How can I clean up nicely by closing each opened document AND use Word for other purposes WITHOUT opening the documents in this extra instance of Word ? KS, Denmark Tag: Inserting blank lines into a Range Tag: 37993
  - 10
    - Parameterized Macro and Open in Browser Hello, I'm trying to take a word document and write a paramterized macro that can be called from client-side javascript to (ideally) open the word document in the browser while supplying the parameter. I almost had it working outside of the browser, except everytime I try to add a parameter to the Macro (in NewMacros) word doesn't recognize it. If I take it out of NewMacros and place it somewhere like ThisDocument's code, I can't seem to be able to run the code to test it. Can anyone provide some guidance??? Thanks, - Nick Coppola Tag: Inserting blank lines into a Range Tag: 37989
  - 11
    - formatting task bar/ tool bar font I want to make the task bar font larger...i can't see it because the default in the program is 8 pt. font. How do i do this\? Tag: Inserting blank lines into a Range Tag: 37988
  - 12
    - Excel Links - File Size Problem I have a Word file which has a large number of links to an Excel spreadsheet. There are about 150 such links. The contents of the Word file are otherwise not very great – about 24 pages of text with a lot of empty space. The size of the file is now 8.3 megabytes, which is much bigger than it should be. I believe the size should be roughly 1 to 1.5 megabytes. In fact the size seemed to suddenly shoot up from 1.2 to 8.3 megabytes after I added the last 4 or 5 Excel links. The large size of the file obviously makes it very time consuming to open and save and generally work on it. Does anybody have any ideas on why the size is so large? Any suggestions about how I can clear out any junk that may be in the file and reduce the size? I tried copying the contents to a new document but that did not make any difference. My thanks to Cindy and Doug of this newsgroup who enabled me to update the Excel file links in this file. Any help with this file size problem would be greatly appreciated. Regards, Partho Tag: Inserting blank lines into a Range Tag: 37981
  - 13
    - simple question re: saving binary data file How can I write and read a binary data file from VBA? I want to create a data file for my code to use, and store it on the user's drive, then be able to reaccess it later. I think of it as a simple database, but I'd like it written as binary data that can't be viewed. Any help appreciated. thanks, gary Tag: Inserting blank lines into a Range Tag: 37975
  - 14
    - Full Outline Data property? (let me try my post again in proper English :) Can someone tell me the property that reports the full outline level for the current selection? There is the .OutlineLevel property, but that only returns the top level of the Outline. For example, say my current selection is at outline level "2.1.7", the .OutlineLevel property only returns "2". I need the full Outline level data, e.g. "2.1.7". Tag: Inserting blank lines into a Range Tag: 37974
  - 15
    - Saving word documents in web site. Hi I am looking for a solution in which a user can open a word document in the Website, make changes to it and save it back to the server. Assuming the user has all permissions to access the website. I am using ASP.Net to do the job. Thanks in advance mahendhar. Tag: Inserting blank lines into a Range Tag: 37973
  - 16
    - Macro to replace header logo (graphic) on many documents Hi , Our logo has changed and I'd like to find a way to replace all instances of a header graphic with the new one (emf, wmf, or even jog would be suitable). Does anyone know if this is possible? thanks in advance. Tag: Inserting blank lines into a Range Tag: 37970
  - 17
    - Macro for Word 2002 to merge to Winfax Pro 10.02 Can anyone point me to a free source for a Macro for Word 2002 to merge to Winfax Pro 10.02. I had one for Word 97 ( I don't remember where I got it.) I use it for merging single page Fax's from a large Word doc containing usually more than 100 Fax's. Thanks, Dave Tag: Inserting blank lines into a Range Tag: 37969
  - 18
    - Need macro to color C keywords in a Word Document In Word 2002, would a macro be the best way to find all instances of 'C' programming language keywords in a Word document and change them to a certain color? The words are if, else, unsigned, short, return, long, for, int, void, etc. I would like all of them to be Blue. They are always all lower case. (If the same words in the document are in upper or mixed case, they should not be changed to Blue.) Also would like to find all comments - that always start with /* and always end with */ - and change them to Green. I am trying to display source code (text files converted to Word documents) with more or less automatic color coding of the keywords and comments similar to how Visual Studio displays them. Having to click a button to color format the document would be fine. Thanks. Tag: Inserting blank lines into a Range Tag: 37967
  - 19
    - Property the reports the full outline level? Can someone tell me the property the reports the full outline level for the current selection? There is the .OutlineLevel property, but that only returns the top level of the Outline. For example, say my current selection is at outline level "2.1.7", the .OutlineLevel property only returns "2". I need the full Outline level data, e.g. "2.1.7". Tag: Inserting blank lines into a Range Tag: 37966
  - 20
    - Macro to add comments to certain words Hi, I'm trying to write a macro that when run will search through the document for certain words and add specific comments to them. While I've programmed in VB before, I don't know where to start with macros. Can someone give advice, or tell me where to look for answers? Thanks! Tag: Inserting blank lines into a Range Tag: 37961
  - 21
    - Is There a Test Document for the VBA security alert. We have just about every kind of mix of Office you can imagine. I would like to scope out the impact of this patch. Mainly because I must find the media for the SP3 to be install before, I apply the patch, which requires the media as well. It would be nice to send a test document/or program (to search the hard drive) around and have users report back to me. 193 nodes and 1 person trying to keep up. Only about 10% are computers, that have come in with OXP-SR1 and are ready to patch. BTW, Does one know how I can work around having the installation media for the patch? It would save me time, if I can get users to apply the patch. Regards, Michael Tag: Inserting blank lines into a Range Tag: 37956
  - 22
    - Find/Replace Code Hi......... I would like to be able to write a Macro that selects the first the current parapraph as well as the one above. If either of those two paragraphs are a secion break, I would like to repalce it with nothing. This code seems to be close, but I think the problem lies with wdRepalceAll (although I could be wrong). I just want the code to find/select/replace the two selected paragraphs and not the entire document. As it stand now, it does the entire doc. Can anyone see where I am going wrong? I might want to consider remove the prompt for wdask as well, so the user is never prompted to check the rest of the document. Thanks in Advance, Don Sub Macro1() ' ' Macro1 Macro ' Macro recorded 9/11/2003 by Gibbons, Del Deo ' Selection.EndOf Unit:=wdParagraph, Extend:=wdMove Selection.MoveUp Unit:=wdParagraph, Count:=2, Extend:=wdExtend Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^b" .Replacement.Text = "" .Forward = False .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting End Sub Tag: Inserting blank lines into a Range Tag: 37955
  - 23
    - System error when trying to insert UserForm into VBA When inserting an userform in VBA in any application that uses VBA, I get a "System Error &H8007007E (-2147024770). The Specific module could not be found." How can I fix this problem? It happens on all three of my computers, hich have windows 2000 or NT, and have ArcGIS software (uses VBA also). Tag: Inserting blank lines into a Range Tag: 37953
  - 24
    - Setting URL in Header When printing a Web document the pageSetup (is set to) include the URL on top of each page. I would like to place that URL in the file, however I cannot find out how to select the text. I have a nice routine for the doc´s FullName which is not usefull for any but myself. Can it be done? pre Tag: Inserting blank lines into a Range Tag: 37952
  - 25
    - Using HTML to insert formatted text into Word I am writing a VB application that will pull text from a database and merge it with a Word template document. Some of the text in the database needs to be formatted (bold, italics, underlined, etc.). I have the formatting done with HTML (<b></b>, <i></i>, <u></u>, etc.) but I am having a hard time finding a way for Word to render this as formatted text instead of literally. I would think this would be a common task, but I can't seem to find a way to do it. More specifically, I am using a Word 2003 XML template, with embedded XML "elements" that will be used to insert the data from the database. But when I try to set the value of these elements in VB.NET, it just inserts the literal values of the HTML. I also tried "tricking" it by inserting Word's XML version of formatted text, but you can't insert XML markup within another XML element. I'm open for any suggestions that could help me accomplish this. Thanks in advance for any advise you can give me. Jerad Tag: Inserting blank lines into a Range Tag: 37951

Hi,

This is a continuation of a prior message which I
accidently hit a hot key and sent...sorry

I'm currently writing code in Access97 to format a Word
document. I have a range(currently the entire document)
and am trying to replace and format this document based on
values in a source doument. Within this range, I'm trying
to move to the end of some text I've just inserted within a
range, and and insert a blank line. When I record the
macro in Word it looks like this:
Selection.EndKey Unit:=wdLine
Selection.TypeParagraph
Selection.TypeParagraph
I'm just not clear on how to accomplish this from Access,
having a Word object open. Should I use a range object?
When I try to insert a blank line, the text I just pasted
gets overwritten....

Any ideas? Thanks!!

Top

Re: Inserting blank lines into a Range by Jay

Jay
Mon Sep 15 14:00:41 CDT 2003

Hi, Peter,

Using empty paragraphs (hitting Enter twice) is a very poor method of
spacing -- using styles with paragraph formatting of Space After is
preferable for simplifying document maintenance -- but it can be painful to
do programmatically from another app. So, without further sermons:

Replace the EndKey line with

Selection.Collapse wdCollapseEnd

If Access VBA complains that it doesn't have a definition for the constant
wdCollapseEnd, use this instead:

Selection.Collapse 0

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://www.mvps.org/word

peterA wrote:
> Hi,
>
> This is a continuation of a prior message which I
> accidently hit a hot key and sent...sorry
>
> I'm currently writing code in Access97 to format a Word
> document. I have a range(currently the entire document)
> and am trying to replace and format this document based on
> values in a source doument. Within this range, I'm trying
> to move to the end of some text I've just inserted within a
> range, and and insert a blank line. When I record the
> macro in Word it looks like this:
> Selection.EndKey Unit:=wdLine
> Selection.TypeParagraph
> Selection.TypeParagraph
> I'm just not clear on how to accomplish this from Access,
> having a Word object open. Should I use a range object?
> When I try to insert a blank line, the text I just pasted
> gets overwritten....
>
> Any ideas? Thanks!!

Top