Table Macro

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Can't sort data from mailmerge-file before merging Hello, Searching all through the internet, I am out of ideas to how to sort the data in my mailmerge-file. The file is obtained from another program, which outputs a tabulator seperated file for merging. The problem is that it is sorted by the wrong column. The SQL would be something like "SELECT * FROM <filename.doc> (?) ORDER BY deltfnavn ASC", but SQL is not allowed, when the datasource is tabulator seperated. Regards, Tue Tag: Table Macro Tag: 97647
  - 2
    - Clear Style and Formatting In MS word, U clear formatting for the selected text by clicking the "Clear Formatting" from the "Styles and Formatting" box How can I achieve this in VBA activedocument.paragraphs(1). ?? I cant find .clearFormatting Thanks Tag: Table Macro Tag: 97643
  - 3
    - vba fucntion that valid isbn Hi, Is there any1 who have written function that check if ISBN is valid or not?? Thank you Tag: Table Macro Tag: 97639
  - 4
    - scan a text document and be able to modify it in MS word. You should be able to scan a text document, and have it come up in word as if you had just typed it. This way you could modify it or save it to your computer. ---------------- This post is a suggestion for Microsoft, and Microsoft responds to the suggestions with the most votes. To vote for this suggestion, click the "I Agree" button in the message pane. If you do not see the button, follow this link to open the suggestion in the Microsoft Web-based Newsreader and then click "I Agree" in the message pane. http://www.microsoft.com/office/community/en-us/default.mspx?mid=65df7555-11b7-4971-b608-4ec09f771e45&dg=microsoft.public.word.vba.general Tag: Table Macro Tag: 97638
  - 5
    - Hide or collapse section Hello, I have a form with about 8 sections. Not all section may be used at once so in order not to see it or print it, could I hide it or collapse it until it needs to be used then have the user click on it to open? Example: Thee are three (3) setions for Collateral. Section one is for the main collateral and sections two and three are for additional collateral. If there is only the main and one additional collateral, I do not want the third section of additional collateral to show or print. This will make the form smaller and more user friendly I think. Please let me know if there is an possiblitiy to make this happen. Thanks!! Tag: Table Macro Tag: 97619
  - 6
    - Making a Word doc unprintable There doesn't seem to be a non-programmable way of making a Word doc unprintable. Does anyone know an easy solution? Making a Word doc unprintable? I would appreciate an comments. Thanks! Tag: Table Macro Tag: 97616
  - 7
    - AutoText entries macro Hi. I have 100 words I need to enter in the AutoText database in Word 2003. Can I create a macro instead of entering one by one in the database. I have a macro that i'm using for AutoCorrect (see code below). Can I do something like this for the AutoText? AutoCorrect.Entries.Add Name:= "AL", Value:="Alabama (AL)" ------------------------------------------ Smile...it is good for you! :) Tag: Table Macro Tag: 97613
  - 8
    - macro to send email I have created a form in word that has a button that when you click on it pulls data from the form and puts it in a new email. When you click the button, the word doc jumps around and flashes. Is there any way to stop this? Tag: Table Macro Tag: 97612
  - 9
    - Adding control to the document and focus I dynamically add a control to the active document with "this.Controls.AddControl " which is triggered by the text the user types. After the control appears, the next letter the user types overwrites it with their text. It acts like the control is selected, but the control never has focus (according to it's events/properties), yet their cursor is no longer blinking on the document. Tag: Table Macro Tag: 97611
  - 10
    - Explanation of Automation Error Please The standard VBA InputBox does not provide a means of determining if the user clicked on cancel or just left the input field blank. I put together a UserForm to perform the role of an InputBox that allows me to determine which user action occurred. I basically built a form with a label, a textbox, an OK commandbutton and a Cancel command but. I assigned "Cancel" = True for the Cancel commandbutton. In my code I set the value of the textbox to "**Canceled by user**" if the user clicked the cancel button, clicked Esc, or clicked the close form "X." While perhaps crude, it worked like I expected. Next I thought I might set the value of the .Tag property to "**Canceled by user**" if one of the actions above occurred and set .Tag to "TextBox1.Text" if the OK command button was pressed. This worked also except for when the user closed the form with the "X" button. On that action, the VB Editor returned an: Run Time Error '2147418105(8011007)' Automation Error. The callee (server [not server application]) is not available and dissappared. All connections are invalid. The call may have been executed. After stepping through my code I can "almost" understand why that occurs. However, I don't understand why it occurs when I use .Tag vice .TextBox1.Text Here is my code with both variations. The current arrangement uses .TextBox1.Text. It works as expected. If you change the arrangement and use .Tag, the error occurs on the line: CallInputBox = myFrm.Tag Main Macro: Sub ScratchMacro() Dim myStr As String myStr = CallInputBox("User Name", "What is your name?") If myStr = "**Canceled by user**" Then Exit Sub Else MsgBox myStr End If End Sub Function opens the UserForm: Function CallInputBox(ByRef pTitle As String, ByRef pPrompt As String, _ Optional ByRef pDefualt As String) As String Dim myFrm As myInputBox Set myFrm = New myInputBox myFrm.Caption = pTitle myFrm.Label1 = pPrompt myFrm.TextBox1 = pDefualt myFrm.Show CallInputBox = myFrm.TextBox1.Text 'CallInputBox = myFrm.Tag Unload myFrm Set myFrm = Nothing End Function UserForm code: Private Sub CommandButton1_Click() If Me.TextBox1.Text = vbNullString Then MsgBox "Please enter your name in the text field provided" Me.TextBox1.SetFocus Else Me.Tag = Me.TextBox1.Text Me.Hide End If End Sub Private Sub CommandButton2_Click() Me.TextBox1.Text = "**Canceled by user**" 'Me.Tag = "**Canceled by user**" Me.Hide End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = 0 Then Me.TextBox1.Text = "**Canceled by user**" 'Me.Tag = "**Canceled by user**" End If End Sub If I step through the code and close the Userform with the "x" I can see that the UserForm_QuerryClose Event (and Terminate Event) fires before the Function CallInputBox gets its value. So why does myFrm.TextBox1.Text work when myFrm.Tag throws the error? Also interested in other ideas to streamline or improve on this UserForm idea. Thanks. Tag: Table Macro Tag: 97610
  - 11
    - problem saving HTML/other web formatting in Word 2007 Am having trouble saving an HTML/XML based order page in Office 2007- it changes the formatting! Office 2003 does not however- what's the deal? Tag: Table Macro Tag: 97603
  - 12
    - Saving A multi Page Doc? Hello, I have a 93 page doc. I need to save each page as an individual document. Is there any way to do that without coping and pasting each page? Perhaps with some code? Thanks, Lime Tag: Table Macro Tag: 97600
  - 13
    - Watermark only appears in first section I have a Word document with nine sections. None of the sections are linked because there is specific text in each header. From an Access database, I have code that opens the Word document, replaces a bunch of bookmarks, updates some fields and the table of contents, saves the document, and exits. Now, I have to add a watermark. After spending way too much time coming up with a solution, it turns out that the code only writes the watermark in the first section. So I am looking for any help, advice, tips, code samples, or anything else you can think of that will help me out (and take pity on me, as I am a PowerBuilder developer by trade, acting as a VB/VBA developer as a favor to my boss). Thanks, Glenn Harland Here's the code: wmtext = IIf(IsNull(watermark_text.Value), "", watermark_text.Value) For ctr = 1 To oTemp.Sections.Count For idx = 1 To 3 With oTemp.Sections(ctr).Headers(idx).Shapes.AddTextEffect(powerpluswatermarkobject1, wmtext, "Times New Roman", 1, False, False, 0, 0) .TextEffect.NormalizedHeight = False .Line.Visible = False .Fill.Visible = True .Fill.Solid .Fill.ForeColor.RGB = RGB(192, 192, 192) .Fill.Transparency = 0.5 .Rotation = 315 .LockAspectRatio = True .Height = oWord.InchesToPoints(2.27) .Width = oWord.InchesToPoints(7.95) .WrapFormat.AllowOverlap = True .WrapFormat.Side = wdWrapNone .WrapFormat.Type = 3 .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin .RelativeVerticalPosition = wdRelativeVerticalPositionMargin .Left = wdShapeCenter .Top = wdShapeCenter End With Next Next Tag: Table Macro Tag: 97599
  - 14
    - How to move normal.dot to 2007 I have a lot of macro's and customisation of the menu and toolbar stored in my normal.dot. How can I move everything to Word 2007? Hans List Tag: Table Macro Tag: 97595
  - 15
    - Word XML This is probably not the right news group, but perhaps someone can help me: Word 2007 docx, part from: document.xml is: </w:t></w:r><w:r><w:rPr><w:b/></w:rPr><w:t>aBC</w:t></w:r><w:r><w:t xml:space="preserve"> Where can I find the meaning of the codes between <>? </w:t> </w:r> <w:r> <w:rPr> <w:b/> </w:rPr> <w:t> etc. Thanks a lot! Hans List Tag: Table Macro Tag: 97592
  - 16
    - VBA Runtime Error 5281 I'm getting a randome Runtime Error #5281 when I run a macro that creates a paragraph style in a document. The error says something like the style I'm trying to create is based on too many styles. The funny thing about this is that if I quit out of Word and load the macro again, it doesn't necessarily happen. I've created 120 style macros. When a user activates a User Form through a command bar, a selection of buttons are available to apply style to text. You highlight the text and then click a button. It checks to see whether the style is already created and if it isn't it creates the style, then applies it to the selected text. It was very odd. It was working fine yesterday. Then, when I created a few more style macros, it suddenly started giving me the error. After closing and opening the project template, it then allowed me to cycle through all the macros with no error. I don't know what is going on. I couldn't even find the error when I checked with Microsoft. Help Tag: Table Macro Tag: 97586
  - 17
    - VBA Runtime Error 5843 I'm kinda a newbie to Word VBA. I generated a macro for removing right, top, bottom borders of a cell frm a table. But when i try to run the macro after modifying the code to run for multiple cells. I gives an error msg Run-Time Error 5843: One of the values passed to this method or property is out of range. With Selection.Cells With .Borders(wdBorderLeft) .LineStyle = wdLineStyleOutset .LineWidth = wdLineWidth075pt ---> Errors out on this line .Color = wdColorAutomatic End With .Borders(wdBorderRight).LineStyle = wdLineStyleNone .Borders(wdBorderTop).LineStyle = wdLineStyleNone .Borders(wdBorderBottom).LineStyle = wdLineStyleNone .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone .Borders.Shadow = False End With With Options .DefaultBorderLineStyle = wdLineStyleOutset .DefaultBorderLineWidth = wdLineWidth075pt .DefaultBorderColor = wdColorAutomatic End With Any advice on this would help. Thanks. Tag: Table Macro Tag: 97573
  - 18
    - Office Clipboard Format I am copying a range from Excel and pasting it into a Word document. The problem is that sometimes it pastes the clipboard item as a table (the format I want it in) but other times in a tab delinated format. Is there a reason for this? How do I force it to paste as a table? Tag: Table Macro Tag: 97571
  - 19
    - vba newbie question Hi all, I want to create a vba program that allow user to input a num(eg 3) Then the program will add 3 textbox in the form The problem is how I can get the value of these textbox? The easiest way to do that is I create couple of textbox in the form, and hide them When the user enter 3, I just show the first 3 textbox. Also, I can get the text from the textbox, becoz the textbox exist. Is there a better way to do it?? For other language, I can run a string as a line of code. As I know, vba can't.... Dim i as integer for i = 1 to num ( from user) textbox & "i".text = "hihi" <---- I know I cant do it @@ next Sorry for my bad English. I hope u guys understand what I'm saying Thanks Tag: Table Macro Tag: 97570
  - 20
    - Formatting dates? I can't seem to figure out how to make a date come out in a specific format. I parse thorugh a text file sent ot me by someone else. One day the date will be 3/5/07, the next 5 Mar, the next 05 March 2007, etc. I've tried capturing whatever I get into a variable Dim ThisDate as Date, then using Format(ThisDate, "yyyymmdd") to get 20070305 - but it didn't work like I hoped it would. Any suggestions? Ed Tag: Table Macro Tag: 97569
  - 21
    - AutoOpen not Executing When Document Macros Disabled If I answer Enable Macros when opening a document containing macros then both Normal.dot.NewMacros.AutoOpen and then opening document AttachedTemplate.ThisDocument.Document_Open execute. If I answer Disable Macros when opening a document containing macros and VBE is closed Normal.dot.NewMacros.AutoOpen and opening document AttachedTemplate.ThisDocument.Document_Open do not execute. Other Normal.dot and AttachedTemplate.macros execute when invoked. Of course, macros in the opened document do not execute. If I answer Disable Macros when opening a document containing macros and VBE is _open_ Normal.dot.NewMacros.AutoOpen executes, but the opening document AttachedTemplate.ThisDocument.Document_Open does not execute. Other Normal.dot and AttachedTemplate.macros execute when invoked. Of course, macros in the opened document do not execute. In all cases, I start with Word open with no other documents open. Is this behavior expected? How do I cause Normal.dot.NewMacros.AutoOpen and opening document AttachedTemplate.ThisDocument.Document_Open to execute? Word 2003 SP2, Macros security set to Medium, Windows XP SP 2. Tag: Table Macro Tag: 97568
  - 22
    - Selection.Find.Execute Problem I am pulling a number (eg, 3.2.1.1.1.2) from an Excel doct and then trying to locate that position in a Word(2003) doct., and insert some text below that line. The sub works properly the first time through, but fails after that. The cursor ends up at the top of the doct but the Find.execute does not happen after that. Can someone help me with this? Thanks Sub Locate_in_Doct() ' ' Locate_in_Doct Macro ' ' ActiveDocument.Range(0, 0).Select Selection.Find.ClearFormatting With Selection.Find .Text = sExcelTextJ ' Example "3.2.1.1.1.2" (SExcelTextJ is a Public String) .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = True .MatchWholeWord = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.Collapse Direction:=wdCollapseEnd If Selection.IPAtEndOfLine = False Then Selection.EndKey Unit:=wdLine, Extend:=wdMove End If Selection.TypeText Text:=vbCrLf & "Locate Here " & vbCrLf End Sub Tag: Table Macro Tag: 97567
  - 23
    - Word 2003 not allowed to FAX word file through Web Application Hi All, I have developed the Fax Application in ASP.NET, on windows 2003 server and i want to fax the word file. I am using office 2003 for faxing the file. But i not able to fax the doc file. If i use the .txt file than it work but when i use the .doc file than gives error. The code is given below. Imports FAXCOMEXLib Imports System.IO Partial Class _Default Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim fsc As New FaxServerClass Dim doc As New FaxDocumentClass doc.Body = "c:\TEST.doc" //document body doc.DocumentName = "test.doc" 'FNStr;//document name doc.Priority = FAX_PRIORITY_TYPE_ENUM.fptNORMAL doc.Recipients.Add("9084509299", "Mitesh Patel") doc.ReceiptType = 0 doc.ScheduleType = 0 doc.Sender.Name = "Test Fax" 'FName.Text.Trim(); doc.Sender.TSID = "FAX" doc.AttachFaxToReceipt = True Do_Conn(fsc, doc) End Sub Private Sub Do_Conn(ByVal fsc As FaxServerClass, ByVal doc As FaxDocumentClass) Try fsc.Connect("rangam03") fsc.Connect("rangam03") doc.ConnectedSubmit(fsc) fsc.Disconnect() Catch ex As UnauthorizedAccessException ErrLabel.Text = ex.ToString() Catch eio As IOException ErrLabel.Text = eio.ToString() Catch e As Exception ErrLabel.Text = e.ToString() End Try End Sub End Class Error comes: System.IO.FileNotFoundException: Operation failed. at FAXCOMEXLib.FaxDocumentClass.ConnectedSubmit(FaxServer pFaxServer) at _Default.Do_Conn(FaxServerClass fsc, FaxDocumentClass doc) in D:\Utpal\LinkIt\FAX\Default.aspx.vb:line 31 I am sure that this error is due to the office 2003 so pleas help me in this context Thanks in Advance Mitesh Patel Tag: Table Macro Tag: 97566
  - 24
    - Uploading text file to form Is there an easer way to upload a text file into a form than what I have written below. Some of my forms are rather large. Dim tempfile Dim bk1, bk2, bk3, bk4 ChangeFileOpenDirectory "C:\History\" With Dialogs(wdDialogFileOpen) If .Display = -1 Then Application.DefaultSaveFormat = "Text" tempfile = .Name Open tempfile For Input As #1 Input #1, bk1, bk2, bk3, bk4 Cmd1.Value = bk1 Cmd2.Value = bk2 Text1.Value = bk3 Text2.Value = bk4 Close #1 End If End With Tag: Table Macro Tag: 97562
  - 25
    - Text Form Calculations I have two Date Text forms in a template e.g 01/10/1970 and 07/10/2005. I need to create a box or test form and calculate the difference of these two text e.g 30.5 years. Can this be done? I need help in this one. Tag: Table Macro Tag: 97557
- Next
  - 1
    - How you call these task I have a template. In this template when a click this Grey line the document expand. In other words a optional table information is added to the document. If I click the line again the information collapse. (Disappear). How you call this task. Is this a macro? Tag: Table Macro Tag: 97556
  - 2
    - Text Form Field I need to duplicate the information entered in a Text Form Field of a template in differents pages of this document. Do you have any suggestions how this can be done? Tag: Table Macro Tag: 97555
  - 3
    - Word 2003 VBA error I receive the following error message 'Run-time error 4605; This command is not available. I built this template 3 months back and works just fine then, now that the user has request a new table column added, I add the new column to an exists table and saved the *.dot. I run it and get this error. I'm guessing some MS patch that was applied made this not function anymore. If I open and save the template in office 2007 as a template with embedded macros, it works again. My plans are not to deploy the new office until later this year, so any ideas for my fix. Thanks, Jay Bukstein Tag: Table Macro Tag: 97549
  - 4
    - Add Header footer to word doc Hi, I'm currently developing a documents manager that stores th documents in sql server. The application is developed in classic ASP sqlserver and pffice automation. The application lets you program circuit o responsabilities and many other features. I use IExplorer and DSOFramer ActiveX Office Control to process and print and perform other processes to office docs. Currently I have found a solution having 2 instances of dsoframer o the page. I use vbvscript to control the instances. I open a templat (.dot) into the first dsoframer control instance (lets call it oDodT) Then Word Document (.doc) into the another instance of dsoframe control (lets call it oDOcD). Select wholestory from oDocD, selec bookmark("doc_content") from oDocT. Then do PasteandFormat to oDocT. S this way the application lets you select between templates to print you docs. But have a problem with some documents written in word 97 found in man companies nowadays. When the content is pasted, oooppssss, somethin extrange occurs. The normal text becomes Italic and the italic Tex becomes Normal. So I decided to follow another way to give header and footer to offic docs. Instead of pasting the contents of docs to templates I want t ADD header and footer to Docs. I'm not an expert on this. I'm a senior web apps developer. I foun difficult to translate to vbscript some vba sintax but after man try/error I have come up with something. Here's my email address martinb2007@hotmail.com (MSN welcomed), so w can share our knowledge or codes. I want to copy header and footer from a template, or create them on th fly, then add them (or paste them) to .doc. Resuming: 1 - now I do -> Open .Dot, Open .Doc, Select .Dot, Select content o Tag: Table Macro Tag: 97547
  - 5
    - Word vb altered by Outlook or mail filter software? Is it possible that the process of emailing using Outlook (combined with company email filters) could do anything to alter the state of vb code and vb controls? I emailed (using Lotus Notes) a vb document complete with vb controls/userforms, I had thoroughly tested, to others in remote locations to do further testing in the true environment. They received document ok, and the functionality worked when they opened the document there, but when they returned it to me, it was corrupted, it would open up stuck in design mode, the code was getting mixed up, the controls were getting renamed, such as cmdEdit would become cmdEdit1, then cmdEdit11, etc. We thought we pinned it down to them working on the document while opening it from Outlook instead of saving first to server/hard drive, then editing, then re-attaching, as they were also emailing directly from Outlook, instead of saving the document, then attaching to email. But when they completely saved/closed the document, then attached it, it was still corrupted upon receipt by me. I am beginning to wonder if there are any known issues between Outlook/Word, and/or if spam filtering software used by companies could be tinkering with the code somehow, because when I receive the corrupted document, it still works fine on their end, and the only difference is that it's been transported via email. Thanks for any suggestions. Tag: Table Macro Tag: 97546
  - 6
    - How I can change some words in XPS, using C#? I have a XPS generated by Microsoft Word 2007 document and I would like to modify some words in this XPS. I am developing an application in Visual Studio (C# - with VSTO) that will manage this XPS document. I need to know, how I can change some words in this XPS, using C#? Tag: Table Macro Tag: 97537
  - 7
    - turn off compile error box I am new to VBA programming and wish to turn off the compile error message box that constantly appears as I am writing code. Tag: Table Macro Tag: 97532
  - 8
    - Get section number if selection in header/footer Hi folks, Is there a way to return the number of the SECTION whose header or footer the cursor is in? Obviously (um, ok, not obvious to me til just now), Selection.Sections(1).Index doesn't do it. Thanks for any help. Mark Tangard Tag: Table Macro Tag: 97530
  - 9
    - How do I automatically insert the date one month from today? I need to have the date one month from the current date automatically inserted into a new document. Tag: Table Macro Tag: 97523
  - 10
    - Display file list I have a macro that prompts me to enter a file name and then it gets the text and writes it to my document. I have too many file names now to remember them all. Is there a way to display all the files in my folder and I can just choose the one I want? Here is the first part of my macro that gets the file: Dim tempfile Dim bk1, bk2, bk3, bk4, bk5, bk6, bk7 tempfile = InputBox("Input your file name") tempfile = "C:\History\â?? + tempfile + ".txt" If Dir(tempfile) = "" Then MsgBox "This file doesn't exist please try again", , "No File" Exit Sub End If Open tempfile For Input As #1 Tag: Table Macro Tag: 97513
  - 11
    - Determine which toolbar button was pressed? Okay, I would like to dynamically build a menu of items to be inserted. This menu would be created based upon the existence of files in a certain directory. The filename of each item would be used as the name of the menu button for each item. Everytime one of those dynamically-created buttons is pressed, I'd like it to call a bit of code that inserts the same-named item. The only way I can think of to do this (without maintaining a list of the possible items to insert somewhere), would be to call one standard macro which knows what button on the toolbar was pressed, as the button's name would correspond to the file's name. Is this possible at all? Or are there any better solutions? Thanks for any help! Tag: Table Macro Tag: 97502
  - 12
    - Sequentially numbering a word document on SharePoint I have a word template on SharePoint and would like to set it up to Sequentially number each form. The code to call a file from the C: drive is Order = System.PrivateProfileString("C:\Settings.Txt", _ "MacroSettings", "Order") But a SharePoint link does not work with System.PrivateProfileString - Can anyone tell me what to use when I need to call the file in SharePoint. ( http://us-team-it.hereIam.net/sites/gesfa/BEN/ChangeRequest/PMIS%20Change%20Request/Forms/Settings.txt) -- DJK Tag: Table Macro Tag: 97500
  - 13
    - Open Dialog Box... HELP I'm trying to tweak a MSDN Article that allows me to import data from a Word form to a Access db.... I'm wanting to have a directory open dialog box pop open and feel i've traveled into hositle waters on this..... Your help is appreciated!!! Sub GetWordData() Dim appWord As Word.Application Dim doc As Word.Document Dim cnn As New ADODB.Connection Dim rst As New ADODB.Recordset Dim strDocName As String Dim blnQuitWord As Boolean Dim d As FileDialog On Error GoTo ErrorHandling strDocName = "C:\Documents and Settings\chavira\Desktop\CPD\" & _ InputBox("Enter the name of the Word contract " & _ "you want to import:", "Import Contract") Set appWord = GetObject(, "Word.Application") Set doc = appWord.Documents.Open(strDocName) cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=C:\My Documents\" & _ "CPD Form.mdb;" rst.Open "CPD_Table", cnn, _ adOpenKeyset, adLockOptimistic Tag: Table Macro Tag: 97499
  - 14
    - Text Formfields? Hi, I've created a userform with a textbox that allows the user to enter multiple lines of text and use the Enter key to add additional paragraphs. I'm trying to move this text to a text formfield but it's pulling out the hard carriage returns. I know that if the user was filling out the formfield directly, they would be able to use the Enter key within the field. I've already tested the code to ensure that it works, for example, when I use a simple bookmark (instead of the formfield) and it does. The obvious solution is to use a bookmark but this option isn't viable due to other issues. Any suggestions on getting the text formfield to recognize the hard carriage return? Really desperate for an answer so any thoughts would be most appreciated. Thanks, Jille Tag: Table Macro Tag: 97497
  - 15
    - Testing For Valid Collections How do you test if a collection is valid? For example, for inline shapes the Count is always available, even if it's zero. On other hand, ShapeRange will be "Requested object is not available" if it's zero. How do you texst for that case? Tag: Table Macro Tag: 97490
  - 16
    - Grammar checking error The checker could be made to detect conjunctions, and to not flag conjoined words as different parts of speech. An example: "I would like to call him or her to get the move scheduled." The grammar checker flagged "her," suggesting that "she" was the appropriate word. The "Explain" button resulted in the (not very) sage advice that the "marked pronoun needs to reflect its function in your sentence." Of course, its function is as an object, and "she" is used for a subject. In any case, to be consistent, "him" should have been (incorrectly) flagged for a change to "he," matching the suggested "she." ---------------- This post is a suggestion for Microsoft, and Microsoft responds to the suggestions with the most votes. To vote for this suggestion, click the "I Agree" button in the message pane. If you do not see the button, follow this link to open the suggestion in the Microsoft Web-based Newsreader and then click "I Agree" in the message pane. http://www.microsoft.com/office/community/en-us/default.mspx?mid=7579110b-6875-4642-b24e-8ec44e0abad0&dg=microsoft.public.word.vba.general Tag: Table Macro Tag: 97486
  - 17
    - An idiot needs help with a macro I'm writing a script. I would like to write a macro that allows me to go Center/Caps On/enter text(character name)/Return/Caps Off. This seems like a pretty simple thing to do, but I have tried using the macro editor and weirdness ensues. The cap lock won't work, or the cursor returns to center on the subsequent line, or it just bounces back to the left margin...I don't know enough about the visual basic editor to just write the commands. Can anyone help? do I have to write two macros? Thanks in advance, Tag: Table Macro Tag: 97480
  - 18
    - Parsing Bulletin (in Numbering Format) in MS Word Document Hi there, I know reading/writing of document in VB, .Net But due to lack of exact file format, and unavailaibilty of enough documentation for Doc file format i dont know how to extract the Section, bulletin in Word Doc. I want to search a particular text in a Word Document, & i need to extract the session, or bulletin (in number format) for e.g. if my text to be searched is "TEstData123" & if it is present in say in section 1.2, 3.2.1, 4.2.3.1, 5.1 .... and so on So wherever it is present i need to extract all these sections(1.2, 3.2.1, 4.2.3.1, 5.1 .... ) as an output So would any one plz help me in doing so Eagerly waiting for help Thanks in Advance :) Tag: Table Macro Tag: 97476
  - 19
    - My Template When I run my template on my computer by going to File, New, From Exisitng Document, Choose the template, Enable the Macros - It works perfectly when my colleague does it by going File, New, Recently used documents, Choose the template - it doesnt work - Visual Basic Error??? Any ideas please? Thanks Tag: Table Macro Tag: 97471
  - 20
    - update other sheet I am looking for a macro that can do the following task. In a w/sheet I have three columns and five rows data to be entered every day. At 6th row totals are calculated for all the three columns.Whenever I press 'Update' (button has to be inserted in the sheet) these three totala have to be copied and pasted in sheet 2 next available empty row.After updating the forst sheet data should become blank.Can anybody give the code please. -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.aspx/word-programming/200703/1 Tag: Table Macro Tag: 97469
  - 21
    - Extract RTF text from word without clipborad function????? Hi All, I'm trying to extract RTF text from a given word document and I'm using clipboard functionality to get RTF text which is as follows. I'm using .NET technology. I dont mind accepting VB6\VBA solution. Dim data As IDataObject oParagragh.Range.CopyAsPicture() data = Clipboard.GetDataObject() If Not data Is Nothing AndAlso _ data.GetDataPresent("Rich Text Format") Then strParagraphText = data.GetData("Rich Text Format", True) End If As it intereferes with user copy\paste functionality I just want to findout whether there are any other possible ways to extract RTF text without using clipboard logic. -- Cheers, Rama Tag: Table Macro Tag: 97468
  - 22
    - resize images with macro Hi, I need to resize some images in MS Word. The pictures are various in size, but I need them to be scaled to a height of 12pts. The width is not important, as long as the aspect ratio is locked. Thnx Tag: Table Macro Tag: 97467
  - 23
    - Macro Dear, Is it possible te create a macro in Word, that is registered in word itselfs and not in a document, so the macro kan run on differt docs in word ? I want to create a macro that inserts automatically a border Page setup - layout - border I also want te insert automaticallyu header and foodnote. Is this possible ? Thanks in advance ! Tom Tag: Table Macro Tag: 97465
  - 24
    - Someone know event to determine something are typed??? User type some text on word, words counter(It exist on status bar) are change dynamically. I'm making like this app. If someones type some text on word, how can I know text are inputed? I want to know user have typed something!!! I try to find predefined event like 'AfterInsert', 'TextChanged' or 'KeyDown', but it's not exist in word 2007 apis. So, I use timer. It's so bad. ;( Anyone know event api, help me. - Sorry poor my English. :) Tag: Table Macro Tag: 97464
  - 25
    - How can I save a Document from a Template witha Conditional File Name Pre-Defined I have a MS Word 2003 Template that I fill out when start a contract or Proposal I want to be able to save the individual Contract Files in a Specific Format ie. PP-RW_030507_REV0102A PP is Preliminary Proposal RW is Riverside Wholesalers 030507 is Date March 5, 2004 REV0102A is Revision 01.02.A These are All Fields on the Form that are filled out but I would like to save it with the Naming convention that I have for all my clients like in this format automatically after every change or addition to the proposal any help would be greatley appreciated TIA Guy Montecalvo Tag: Table Macro Tag: 97461

This may be asking too much but here goes

I need a macro to insert a Paragraph Mark at the end of each table cell

I have tried looking for examples of code but so far no luck

Thanks
Al

Top

Re: Table Macro by Jay

Jay
Fri Mar 09 09:26:22 CST 2007

Al wrote:
> This may be asking too much but here goes
>
> I need a macro to insert a Paragraph Mark at the end of each table
> cell
>
> I have tried looking for examples of code but so far no luck
>
> Thanks
> Al

If any of the following is still a mystery, post back and point to what you
don't understand.

Sub AddParaToEachCell()
Dim myTable As Table
Dim myCell As Cell
Dim myRange As Range

For Each myTable In ActiveDocument.Tables
For Each myCell In myTable.Range.Cells
Set myRange = myCell.Range
With myRange
' move the end of the range to
' the spot between the last
' character and the cell marker
.MoveEnd wdCharacter, -1

' collapse the range to that spot
.Collapse wdCollapseEnd

' insert a paragraph mark
.Text = vbCr
End With
Next
Next
End Sub

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