Copy Table to End of Document

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Word Template for Mac Hello I have done Wordtemplates for PC and i now try to change them to also works in MAC. When i start my Wordtemplate i want Word to start with a Form who will fill in som fields from a textfile. Frmfax.txttillavsÃ¤ndare = System.PrivateProfileString("c:\Mallpaket\min info.txt", "Ett", "strNamn") Frmfax is the form and .txttillavsÃ¤ndare is the field. The path is c:\Mallpaket\min info.txt". Mallpaket is folder and Macintosh HD is the computer and "min info.text" is the textfile And thats the problem, can anyone tell me how this path should be written ? And i believe the path should be written like this Macintosh HD: Mallpaket :min info.txt But What about "System.PrivateProfileString" before the path, i believe that this is Wrong but i have no idea what the rigth is ? Tag: Copy Table to End of Document Tag: 52834
  - 2
    - How do i create and modify a chart in a Word doc from VBA? Hello, i've got a word-document with tables in it. Now i want to generate charts automatically based upon the data in these tables. I've been looking around, but haven't really found any documentation or examples that were helpful to me. These are the questions: * how to create a chart in VBA? * how to get it to base it's data upon a table in my word document? * how to change the type of chart (to bars, pie, ...) Any help would be greatly appreciated! Thx in advance, Thomas Tag: Copy Table to End of Document Tag: 52831
  - 3
    - RE: thanks Thanks thats a good ides, because the binary numbers comes from a huge database and the speed of the applciation is critical. Thanks! Tag: Copy Table to End of Document Tag: 52830
  - 4
    - Working with Tables I have two (probably simple) questions: 1. Why does word append cell values in tables with the strange formatting marks? If I retrieve a cell value by: Debug.Print ThisDocument.Tables(1).Cell(1, 1).Range.Text I get the cell value (e.g., "MyValue") with two extra characters that seem to be a carriage return and a tab line character. I am correcting this by using the following function...but I am thinking maybe there is an easier way (if not, will this function always work?): Debug.Print Left(ThisDocument.Tables(x).Cell(1, 1).Range.Text, _ Len(ThisDocument.Tables(x).Cell(1, 1).Range.Text) - 2) 2. How do you retrieve tables that are in the header/footer area? These don't show up in the Tables collection under ThisDocument --- it only counts the tables in the body region (maybe this has something to do with sections). I am new to the Word object model. Any help is appreciated! Thanks, Seth Tag: Copy Table to End of Document Tag: 52829
  - 5
    - Do While or While & Selection or Range Object? Hi Folks, I've written some code to check the character style in paragraphs and 'do stuff' based of the style found. First question: Is it better to use the 'Do While' clause with this (which I'm thinking it might be). Second Question: Is it better to use range instead of selection, and if so how do I convert this to ranges? I've never used ranges before and don't really know that much about the properties/methods. Any pointers/improvements gratefully accepted. Cheers J Dim x As Integer, y As Integer, s As Integer Dim StyleNow As String Dim test As Variant, test1 As Variant StyleNow = "Persname" SavedMemData = _ ActiveDocument.BuiltInDocumentProperties(wdPropertyParas) For x = 0 To SavedMemData - 1 styletype = Selection.Style For s = 1 To 6 y = 0 Persname: test1 = Selection.Paragraphs.Last test = Selection.Document.Paragraphs.Item(x + 1) If test <> test1 Then GoTo End1 If Selection.Style = StyleNow Then StyleNow = Selection.Style Selection.MoveLeft wdCharacter, 1 Selection.MoveRight Unit:=wdWord, Count:=1, _ Extend:=wdExtend If StyleNow = "Persname" Then GoTo Pers1 If StyleNow = "Perstitle" Then GoTo perstitle1 If StyleNow = "Persinits" Then GoTo persinits1 If StyleNow = "Office" Then GoTo office1 If StyleNow = "Department" Then GoTo department1 If StyleNow = "Email" Then GoTo email1 Pers1: While StyleNow = "Persname" Selection.MoveRight wdWord, 1, wdExtend If Right(Selection.Style, 5) = "Entry" Then Selection.MoveLeft wdWord, 1, wdExtend Selection.MoveLeft wdCharacter, 1, wdExtend StyleNow = Selection.Style GoTo CheckEntry End If Wend perstitle1: While StyleNow = "Perstitle" Selection.MoveRight wdWord, 1, wdExtend If Right(Selection.Style, 5) = "Entry" Then Selection.MoveLeft wdWord, 1, wdExtend Selection.MoveLeft wdCharacter, 1, wdExtend StyleNow = Selection.Style GoTo CheckEntry End If Wend persinits1: While StyleNow = "Persinits" Selection.MoveRight wdWord, 1, wdExtend If Right(Selection.Style, 5) = "Entry" Then Selection.MoveLeft wdWord, 1, wdExtend Selection.MoveLeft wdCharacter, 1, wdExtend StyleNow = Selection.Style GoTo CheckEntry End If Wend office1: While StyleNow = "Office" Selection.MoveRight wdWord, 1, wdExtend If Right(Selection.Style, 5) = "Entry" Then Selection.MoveLeft wdWord, 1, wdExtend Selection.MoveLeft wdCharacter, 1, wdExtend StyleNow = Selection.Style GoTo CheckEntry End If Wend department1: While StyleNow = "Department" Selection.MoveRight wdWord, 1, wdExtend If Right(Selection.Style, 5) = "Entry" Then Selection.MoveLeft wdWord, 1, wdExtend Selection.MoveLeft wdCharacter, 1, wdExtend StyleNow = Selection.Style GoTo CheckEntry End If Wend email1: While StyleNow = "Email" Selection.MoveRight wdWord, 1, wdExtend If Right(Selection.Style, 5) = "Entry" Then Selection.MoveLeft wdWord, 1, wdExtend Selection.MoveLeft wdCharacter, 1, wdExtend StyleNow = Selection.Style GoTo CheckEntry End If y = y + 1 If y = 20 Then Selection.MoveLeft wdCharacter, 2, wdExtend GoTo CheckEntry End If Wend Selection.MoveLeft Unit:=wdCharacter, Count:=1, _ Extend:=wdExtend CheckEntry: If StyleNow = "Persinits" Then txtInits(x) = Selection.Text ElseIf StyleNow = "Perstitle" Then txtTitles(x) = Selection.Text ElseIf StyleNow = "Persname" Then txtpersname(x) = Selection.Text ElseIf StyleNow = "Office" Then txtOffices(x) = Selection.Text ElseIf StyleNow = "Department" Then txtDepartments(x) = Selection.Text ElseIf StyleNow = "Email" Then txtEmails(x) = Selection.Text End If Selection.MoveRight wdCharacter, 3 Selection.MoveLeft wdCharacter, 1, wdExtend StyleNow = Selection.Style If test <> test1 Then If Right(Selection.Style, 5) = "Entry" Then ListType(x) = Selection.Style End If End If 'GoTo Persname Else End1: End If If test <> test1 Then s = 6 Next s Next x endnow: Tag: Copy Table to End of Document Tag: 52823
  - 6
    - Word Templates Hello I have done Wordtemplates for PC and i now try to change them to also works in MAC. When i start my Wordtemplate i want Word to start with a Form who will fill in som fields from a textfile. Frmfax.txttillavsÃ¤ndare = System.PrivateProfileString("c:\Mallpaket\min info.txt", "Ett", "strNamn") Frmfax is the form and .txttillavsÃ¤ndare is the field. The path is c:\Mallpaket\min info.txt". And thats the problem, can anyone tell me how this path should be written ? Mallpaket is folder and Macintosh HD is the computer and "min info.text" is the textfile Tag: Copy Table to End of Document Tag: 52820
  - 7
    - VBA with Word Viewer (relates to MS Access and Word) Hi all, I'm going to start by talking about MS Access, but this is a Word question and relates to the Word VBA library. The situation is I have a MS Access DB that will be running using the Access runtime environment. The application I'm developing is for a developing country, and therefore I cannot assume users will have Access or Word available. Developing the database is not a problem - there is a runtime version of Access and we have the budget to afford unlimited licenses for distribution. However, one of the outputs of the application needs to be a great variety of printed forms (tax returns, appeal applications, tax refund applications, etc) which all exist in Word format. Getting the DB to pull out data and programmatically write it to word documents is not a challenge - as long as the user has Word 2000 on their system. I'm doing it in a module in Access as below: 'get a load of data from the DB dim wordObj as Object Set wordObj = New Word.Application wordObj.Visible = False wordObj.Documents.Open "whateverTaxFormTheUserChooses.dot" 'programmatically search for placeholders in the tax form and replace with data from the DB wordObj.Visible = True 'then print it, save it etc Not a problem - BUT - can I still do this if my user does not have MS Word installed? I've downloaded the Word Viewer, which is free and great so far as all that needs to be done is to open and print a document, but from what I can tell I won't be able to use it to generate documents on the fly like I'm doing above, so I guess my question is: 1) As long as I've got the appropriate libraries enabled in Access, can I still get at the classes I need to programmatically edit Word documents even if Word is not installed? (And then display them with the word viewer). 2) Do I have any other options? Any advice from you knowledgable folks out there would be muchly appreciated. Thanks, Ganeth Tag: Copy Table to End of Document Tag: 52818
  - 8
    - Save File Problem: HTML format I've a line as below: ( save file as a HTML format ) ActiveDocument.SaveAs FileName:="f:\homepage\Leave2004.html", FileFormat:=wdFormatHTML, _ LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _ :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _ SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _ False While I ran the line the 2nd time ( ie file name exist ), a message up( error: 6048 - file in use, retained, please use a new file name ). Question: How can I force save the file? Johnny Tag: Copy Table to End of Document Tag: 52815
  - 9
    - Numeric (\#) field switches Am setting up a form template which will be used in France. They use the following numeric format for dollars: $x xxx xxx,00. Spaces instead of commas and a comma for the decimal place holder. I have 1)changed my "Regional Options" under the Control Panel to France and made the appropriate changes to the comma separator and decimal place holder. 2) Altered my US formula (which works) by substituting the spaces and commas. The calculation does not work! qty cost ea total 1 $5 336 205,00 $ 646 WRONG! My formula is written as: {=x*y\# $# ##0,00;($# ##0,00);} and is inserted into a table cell from "Table-Formula". If I substitute in the commas and decimals of the US the formula works fine. Can someone show me what I'm missing to make it work? Tag: Copy Table to End of Document Tag: 52803
  - 10
    - (newbie) add Mail Merge Can anyone assist with a Macro this will add a superscripted (th, st, nd, rd) to a date (field name 'day') in a Mail Merge document. Can someone assist Tag: Copy Table to End of Document Tag: 52795
  - 11
    - Column Headers in Catalog Merge? Hello All, I am programatically using the Word 2000 Object Model to execute a mail merge via a Visual Basic program. The main document type is set as Catalog and the output produces a single table with invoice payment line items. The table is created successfully after the merge, however I would like to be able to put column headers on the table as well. If I add column headers to the main document and then merge, I end up with the headers being repeated in every other row of the table. For example: Headers First Payment line item Headers (Repeated) Second Payment line item Headers (Repeated) Third Payment line item etc... I was wondering if there was a way to designate that the column headers should only be displayed once (either programatically via the Word object or in the main document itself). If anybody has any information on how to do this, it would be greatly appreciated. Thanks, Neil Dittmar Software Developer Aurora Information Systems Tag: Copy Table to End of Document Tag: 52794
  - 12
    - Save Word doc with current date I have a Word checklist template that I open every day, make my checklist changes and save it as a doc ... I would like a macro that will prompt me to save he document with the date eg checklist_2004-06-23.doc Can anyone assist? Thanks a million Tag: Copy Table to End of Document Tag: 52792
  - 13
    - Hi how do i give an integer a binary value? I would use 0x1010101010 in c, but how do I do it in vb? thanks! Tag: Copy Table to End of Document Tag: 52789
  - 14
    - How to EMBED a DOC via VB? I need to know the exact syntax of the Fields.Add method, in order to EMBED a Word 2002 doc into another. Thanks! Tag: Copy Table to End of Document Tag: 52786
  - 15
    - Word mail merge and files per receiptent I use the Word mail merge functionality to mass produce letters. I have a word template with defined fields and a data source (Excel-file). The mail merge functionality however, merges the data source with the template into one single Word-document containing all letters (multiple receiptents in one file). Is there a way to merge into on document/file per receiptent? Second question: To handle this missing functionality mentioned above, I made a VB snippet to split the big merged document into one file per receiptent. This is how the VB code I wrote performs this: 1. I make a SELECTION in the merged document (with multiple letters), ranging from beginning to end of the letter for ONE person. 2. Copy this content to the clipboard. 3. Open a new blank document. 4. Paste it into the new blank document. 5. Saving to a new file. The problem here however was: How can I specify a SELECTION in a document by page numbers? I had to specify the SELECTION range by number of paragraphs, which is not a precise specification. All help appreciated. -Jørn A. Tag: Copy Table to End of Document Tag: 52778
  - 16
    - Weirdness with two docs open based on same template i have a Word VBA template with a lot of code and userforms in it, and everything is working fine. however, i've discovered that, if I create two documents (doc1 and doc2) based on that same template and have both open at once, I get strange behavior. Specifically, whenever i call the .Show method of a userform in doc1, all is fine. But if I call the .Show method of one of my userforms in doc2, then doc1 becomes the ActiveDocument before that userform is displayed. As a result, when the userform inserts text into the document, it always gets inserted into doc1. And doc1 remains the ActiveDocument. I don't understand what I could be doing to change Word's idea of the ActiveDocument, but I must be. Is there something special I need to do in my code to handle having multiple documents open that are referring to code in the same template? any help/pointers appreciated. thanks, garyh Tag: Copy Table to End of Document Tag: 52769
  - 17
    - Error - the Range cannot be deleted Hello Everyone, We have a subroutine called "setFooterString" that is supposed to override the left section of the footer in a Word document if parameter "boolOverrideLeftFooterOnly" is set to true. Private Sub setFooterString(ByRef objHeaderFooter As HeaderFooter, ByVal strTextString As String, ByVal boolOverrideLeftFooterOnly As Boolean) On Error GoTo handler_Error_Function With objHeaderFooter.Range .Style = wdStyleFooter .Font.Size = 10 If boolOverrideLeftFooterOnly = True Then 'If we qualify setRange with "objHeaderFooter.Range" it does work in cases where the left section of the footer is a word supported text .SetRange Start:=.Start, End:=getLeftFooterLen(objHeaderFooter) End If .Text = strTextString End With Exit Sub handler_Error_Function: If Err.Number <> 0 And Err.Number <> cdlCancel Then Call GlobalErrorHandler(Err.Number, Err.Description, Err.Source) GoTo handler_Garbage_Collection End If handler_Garbage_Collection: End Sub If the current left section of footer is a user enterred custom text say "abc", the subroutine works fine(overrides left section of footer) . If the current left section of footer is a word supported text such as date, page number etc. the subroutine generates an error saying "the range cannot be deleted" upon reaching the following line in code: .Text = strTextString Shouldn't it behave consistently. Also, strangely above mentioned error does not occur if we replace following line .SetRange Start:=.Start, End:=getLeftFooterLen(objHeaderFooter) with objHeaderFooter.Range.SetRange Start:=.Start, End:=getLeftFooterLen(objHeaderFooter) Can someone please help us understand the problem? Is it a bug in VBA or is it bad coding? Thanks, Karthik Tag: Copy Table to End of Document Tag: 52768
  - 18
    - Is there a way to disable or bypass routines that are meant to override Word's builtin Word commands under Tools > Macros? Hello, I am currently experiencing the following problem: Template contains routines meant to override Word's builtin Word commands (i.e. there is an "EditPaste" VBA routine that is meant to fire when the user does Ctrl + V or Edit > Paste). The routine fires on my own 2000 and XP machines but does not fire on the client's machines. Is there some way to disable these customizations or is there some 3rd party tool or virus tool that disables the routines? Thanks & Regards, TC Tag: Copy Table to End of Document Tag: 52764
  - 19
    - Word wont start I am running Office '97 on windows '95 and suddenly Word won't start. It gives an error: "This program has performed an illegal operation and will be shut down. If the problem persists..." I have tried reinstalling Office but it hasn't helped. Does anyone know what can cause this problem and how can I get Word to run again. Thanks for any help. Fred Tag: Copy Table to End of Document Tag: 52762
  - 20
    - Closing custom toolbar when document closes I have a custom toolbar which appears when a document is created using a template. How do I close this custom toolbar when the document closes as this toolbar is only associated with that template/document. Code for creating/showing toolbar: Sub CreateToolbar() Dim cbar As CommandBar, cbct1 As CommandBarControl 'Create a floating toolbar Set cbar = CommandBars.Add(Name:="Agenda Hyperlink", Position:=msoBarFloating) cbar.Visible = True 'Add a custom button control to execute a macro Set cbct1 = cbar.Controls.Add(Type:=msoControlButton) cbct1.Visible = True cbct1.Style = msoButtonCaption cbct1.Caption = "Add Hyperlink" 'Run the following macro cbct1.OnAction = "Hyperlink" End Sub Sub Hyperlink() Dim fd As FileDialog, displaytext As String 'Create a FileDialog object as a File Picker dialog box. Set fd = Application.FileDialog (msoFileDialogFilePicker) 'Use a With...End With block to reference the FileDialog object. With fd 'Set the initial path to the Agenda Attachments folder. .InitialFileName = "\\alchemy\data\processes\documents\agenda attachments\" .Title = "Select the File to which you want to create the link" 'Use the Show method to display the File Picker dialog box and return the user's action. 'If the user presses the action button... If .Show = -1 Then displaytext = .SelectedItems(1) While InStr(displaytext, "\") > 0 displaytext = Mid(displaytext, InStr (displaytext, "\") + 1) Wend displaytext = Left(displaytext, Len (displaytext) - 4) ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:=.SelectedItems(1), TextToDisplay:=displaytext ' 'If the user presses Cancel... Else End If End With 'Set the object variable to Nothing. Set fd = Nothing End Sub I tried to create a custom toolbar by right-clicking on a toolbar in Word (2002), Customize, Commands, Macros and there should of been an option to create a custom toolbar but there isn't!!! Help anyone... Lee Tag: Copy Table to End of Document Tag: 52755
  - 21
    - Drop-down Form Field data source How can I populate a MS Word Drop-down Form Field with data from an MS Access Table? Thank u. Tag: Copy Table to End of Document Tag: 52745
  - 22
    - Drop-down Form Field Data Source How can I populate a Drop-down form field with data from an MS Access table? Tag: Copy Table to End of Document Tag: 52744
  - 23
    - Print dialog: What to print drop down list Somehow, by screwing around with SendKeys, I managed to corrupt my settings so that when I print a document I ALSO get a listing of the document's properties. Note that the Print menu showed that I was printing the Document, not the document properties. Only way I found to get rid of this was to delete the Data key for Word in the registry. I noticed that the drop down list in the Print menu has items that seem to correspond to all the allowed values for wdPrintOutItem, except for wdPrintComments and wdPrintEnvelope. I ASSuMEd that an entry for comments would be included if I added a comment to the document. Well, after adding the comment, there was no entry for comments in the drop down list, however, when I printed the document, comments were displayed, with no obvious (to me) way to disable the display of comments. Do I need to again delete the Data key? Have I stumbled upon a bug/"feature" or am I missing something? -- http://www.standards.com/; See Howard Kaikow's web site. Tag: Copy Table to End of Document Tag: 52738
  - 24
    - Macro overriding Xerox settings Hello all, I've been developing a macro to print out documents to seperate trays of a printer, based upon the contents of each page. I've come up with a solution that works when tested upon my HP LaserJet 4500. However, the people I have been constructing this macro for require it to be used on a Xerox Docuprint machine. The Xerox machine has its own software which specifies how each job is printed based upon the computer from which it is sent. Does anyone know how it would be possible for my macro to override the Xerox's settings? I've included the macro's code. Sub SortPrintTrays() 'Gets page count Dim intPages As Integer intPages = ActiveDocument.BuiltInDocumentProperties (wdPropertyPages) 'Creates placeholder for White characters Dim s As String 'Custom Function, clears any previous search settings Resetsearch 'Creates variable for the entire document Dim oRng As Range Documents("Document1").Activate Set oRng = ActiveDocument.Range 'Sorting FOR Loop, finds each White character and prints page accordingly For Sort = 1 To intPages With oRng.Find .ClearFormatting .Font.Color = wdColorBlack .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False oRng.Find.Execute s = oRng.Text ActiveDocument.Bookmarks("\Page").Select oRng.Collapse direction:=wdCollapseEnd oRng.Select If s = 1 Then Options.DefaultTrayID = 256 ' Tray 1 ActiveDocument.PrintOut Range:=wdPrintCurrentPage Else Options.DefaultTrayID = 258 ' Tray 2 ActiveDocument.PrintOut Range:=wdPrintCurrentPage End If oRng.End = ActiveDocument.Range.End End With Next Sort End Sub Tag: Copy Table to End of Document Tag: 52737
  - 25
    - Removing hyperlinks from a paragraph Hello Group, Can one use VBA to to remove a number of hyperlinks in a section ? If I select a group of text in which there are hyperlinks, the normal R click menu leads to a greyed out "Remove Hyperlink" Thanks, Michael Singmin Pretoria Tag: Copy Table to End of Document Tag: 52734
- Next
  - 1
    - MS-Word events for handling changes in documents Hi, I'm developing a small office addin and I need to trap the events from MS-WORD. I want to know if word fires an event when some one tries to edit an open word document something which would denote the current open document is being modified. I tried the DocumentChange but unfortunately I relaised it is meant for something else - fired when I change between documents on a focus change ,open or close. Thank you. Sincerely, Rajesh Tag: Copy Table to End of Document Tag: 52723
  - 2
    - Q: How to suppress a warning dialog when saving through XSLT? I use my own XSLT when saving my XML files in Word 2003. Every time user starts to save a file, he gets an annoying warning about some properties of a document may be lost. How can I switch off this warning? Tag: Copy Table to End of Document Tag: 52714
  - 3
    - Suppress "file is in use" message Is there a way in a vb macro to suppress the messagebox that a file is used by another user, i.e always open it as read_only? I tried on error and displayalerts but both don't work Win2K, Word2k Tag: Copy Table to End of Document Tag: 52711
  - 4
    - Default Filename This is a macro sitting in a Word template. The template is linked to an extract that is dowloaded from another system. The download is produced over and over again with new data each time. The macro undo the links and therefore I want to avoid that the template by mistake is saved without links. The Macro below works, however I want to display a different filename to the default Word is providing. Please help.......... Sub Browse_Save_and_Undo_Links() Application.ScreenUpdating = False If Dialogs(wdDialogFileSaveAs).Show = 0 Then GoTo A ' If user presses cancel Else Selection.WholeStory Selection.Fields.Update Selection.Fields.Unlink Selection.HomeKey Unit:=wdStory ActiveDocument.Save End If Application.ScreenUpdating = True A: End Sub Tag: Copy Table to End of Document Tag: 52710
  - 5
    - macros runs faster within the vba editor If I execute a vba macro (Word 97) within the vba editor, it runs much more faster as outside (via AutoOpen) the vba editor. Is it possible to get the same performace when I execute a macro outside the vba editor? Tag: Copy Table to End of Document Tag: 52709
  - 6
    - something like document image writer in Windows 2000? Hi: Anybody knows if exists in Office 2000 something like document image writer. I must save a .doc as .tiff using Office 2000. Thanks in advance. Frank. Tag: Copy Table to End of Document Tag: 52708
  - 7
    - getting text into a macro Hi, The following macro works fine, but instead of putting a phone number in the function call i would like to use a phone number i generate from our database, this number could be input into the 1st line of the word document automatically,but i dont see how i can then get it into the macro. If any one can point me in the right direction i would be very grateful, or even list some popular Word/vb forums. ************************* Private Sub Document_Open() Result = SendMessage("user", "password", "*INPUT NUMBER HERE*phone number", "subject", "Hello World") End Sub Function SendMessage(strUserName, strPassword, strSmsTo, strSMSFrom, strSmsMsg) Dim xmlhttp, sResponse strUserName = URLEncode(strUserName) strPassword = URLEncode(strPassword) strSmsTo = URLEncode(strSmsTo) strSMSFrom = URLEncode(strSMSFrom) strSmsMsg = URLEncode(strSmsMsg) Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") xmlhttp.Open "POST", "http://www.24x.com/sendsms/sendsms.aspx", False xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" xmlhttp.send "user=" & strUserName & "&password=" & strPassword & "&smsto=" & strSmsTo & "&smsfrom=" & strSMSFrom & "&smsmsg=" & strSmsMsg sResponse = xmlhttp.responseText Set xmlhttp = Nothing SendMessage = sResponse End Function Function URLEncode(strData) Dim I, strTemp, strChar, strOut, intAsc strTemp = Trim(strData) For I = 1 To Len(strTemp) strChar = Mid(strTemp, I, 1) intAsc = Asc(strChar) If (intAsc >= 48 And intAsc <= 57) Or _ (intAsc >= 97 And intAsc <= 122) Or _ (intAsc >= 65 And intAsc <= 90) Then strOut = strOut & strChar Else strOut = strOut & "%" & Hex(intAsc) End If Next URLEncode = strOut End Function Tag: Copy Table to End of Document Tag: 52707
  - 8
    - printing problem In Word XP, when printing a page sized table, a (background) image is printed through the text, but this image is not visible in the document, no matter what view is selected. The image (a familiar one, that I added myself to this document long ago) that is printed trhough the text is a vertical stripe Text box) containing text from top to bottom. I have tried copying the entire table to a new document, and printed the table from there, but the image was still printed along with the table. Is there a way to make all elements of a document visible? Do I need to do this with VBA. TIA, ANDy Tag: Copy Table to End of Document Tag: 52701
  - 9
    - Requirements on Target Machine - Office 11 Hi; What's the best way to add Word 2003 as a requirement for a setup program? The best I can think of is to look for HKCU/Software/Microsoft/Office/11.0/Word but that seems like a hack. ??? - thanks - dave Tag: Copy Table to End of Document Tag: 52692
  - 10
    - Bookmark disappears after Fields.Update I'm programmatically inserting a field referencing text from a bookmark in another file. I immediately update the field once I've created it and then I add a bookmark for the fields result range. Sometimes the bookmark disappears once the field updates. Is there any way around this? I'd like the bookmark to encompass the field no matter the contents of the field. Tag: Copy Table to End of Document Tag: 52690
  - 11
    - IDTExtensibility2 & Office 10 Hi; If I use IDTExtensibility2 & .NET/C#, is there any reason whay I can't use Office 10 instead of Office 11? And if it is ok, what do I change? It looks like I get the office 10 versions of: Microsoft.Office.Core (Office.dll) VBIDE (Microsoft.Vbe.Interop.dll) Word (Microsoft.Office.Interop.Word.dll) And are those the correct references to have? thanks - dave Tag: Copy Table to End of Document Tag: 52688
  - 12
    - Lots of weirdness - on my computer only Hi; I'm having a bunch of weird things happen with my add-in, but on my machine only. First off, this is a C# add-in that was originally written for VSTO but I switched it to IDTExtensibility2. I did this by creating a new project so VisualStudio made the framework then copying files over. But this may have left some weirdness in the registry. I also had the VSTO solution and the new IDTExtensibility2 solution set to launch Word when I press F5 to debug my add-in. None of these problems happen on any of the test systems - just my system. 1) The #import for the IDTExtensibility2 interface in the shim COM app's stdafx.h stopped finding it. I had to run regsvr32 on the dll containing it (don't remember the name). The thing is - it was working fine for days and just stopped. 2) I can't deserialize data in the add-in. It says it can't find the assembly with the classes in it and lists out the strong name of the needed class. That is identical to the strong name of the class that is calling deserialize. This only happens on my system. 3) If I run the install program on my computer then run debug - I get Word launched twice. But when I look in the registry there is only the entry for the one add-in that the installer put there. (This makes sense if it is running the "installed" version plus what the debugger feeds it - but should that start word twice?) Any ideas? thanks - dave Tag: Copy Table to End of Document Tag: 52687
  - 13
    - menu objects disappearing - if 2nd Word, close 1st Word, close document Hi; First off, this is a C# IDTExtensibility2 (not VSTO) add-in - under Word 2003. Ok, here's the really weird bug. Start Word From Word select new document so I get a second instance of Word. Close the first Word application. Close the document in the second instance of word. Now my CommandBarControl objects from the menu I created throw an exception when I try to access their Enabled property. The menu is still there. This does not happen if the first instance of word is the one I close the document in. Any ideas? thanks - dave Tag: Copy Table to End of Document Tag: 52686
  - 14
    - TwoPagesOnOne The list of "Language-Specific Properties and Methods" for both Word 2000 and Word 2002 lists TwoPagesOnOne as a property that is available only in Asian or right-left languages. Using the English (US) version of Word 2000, Word 2002 and Word 2003, I was able to make code that seemed to work with TwoPagesOnOne. and the property is available via the GUI in the Page Setup dialog. However. I'm having trouble porting a simple example into a real app. I see at least the following issues: 1. The property setting sometimes won't change. 2. I have trouble using the setting and switching to/from Portrait/Landscape. Indeed, I get invalid parameter messages when doing such switching, in some cases. 3. Worst, it seems that the output gets squashed with consecutive uses. 4. An undocumented setting for the Gutter position."inside", is used. You can see this just by toggling between Portrait and Landscape with "2 pages" selected in the GUI. I do not recall installing any Asian or right-left languages in Word. Is TwoPagesOnOne supposed to work in English(US) Word? Inclusion in the GUI would seem to indicate that it should work. -- http://www.standards.com/; See Howard Kaikow's web site. Tag: Copy Table to End of Document Tag: 52682
  - 15
    - Creating menu item programmatically Hi! I am dealing with Word 2000. I need to create a new menu item on the main toolbar probably between Help and Window. The new menu will drop when clicked and have 3 more submenus(submenu1, submenu2, submenu3). Each of the submenus will have 2 more subsubmenus(subsubmenu1, subsubmenu2). I am having a hard time getting started. Can you point me to any on-line examples on how to do it, please? Any code examples you can share? I do not even know where to start. Your help is greatly appreciated, --Mike Tag: Copy Table to End of Document Tag: 52678
  - 16
    - Adding a search So, I am trying to create a dictionary with my own temrs and definitions. I have created a "Definition" document that contains a 2-column table. First column = Word, second = Meanings/Definitions. I have created a code for my "searc" box: Sub Test() Dim Message, Title, Default, MyValue Message = "Search" ' Set prompt. Title = "Dictionary" ' Set title. ' Display message, title, and default value. MyValue = InputBox(Message, Title, Default, 100, 100) End Sub Now, I am confused with how I can link a search to that box? Would I use an altered form of this code: 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 How then could I link it to the box that I created? THANKS! Tag: Copy Table to End of Document Tag: 52675
  - 17
    - Running for wrong window Having a problem with a macro under Word 2003. It runs fine with one document, but as soon as you have multiply documents open you can never be 100% sure which one it is going to run for. I have tried doing things like going to the bottom and top of the document but it still does not work. Tag: Copy Table to End of Document Tag: 52670
  - 18
    - word i use windows x pro. during downloading some progs, i guess i did something wrong and i cannot read my word documents anymore. whwn i try to open a document, it says this.doc cannot be used. when i try to close word application, it asks "there is already a file named normal.dot, do you want to change it. if i dont press yes appl. will not close. would you pls help me. Tag: Copy Table to End of Document Tag: 52662
  - 19
    - Mail merge into single document... Hello All, I am currently developing a visual basic application that will merge a word table datasource and "template" document into a single word document. The datasource (.doc file) contains a single table (dynamically created using Word Object Model in VB) that includes payment line items that are input via another program. This datasource is then programatically merged (using the Word object model) into a "template" document (.doc file) with the corresponding data fields placed appropriately. The problem is that when I perform the merge (either programatically or via the Word GUI) I get the typical line breaks, header repeats, etc. that I would get while doing a mailmerge. I am wondering if it is possible via the merge function (or some other function) to merge the data from the datasource into a single word document without page breaks, repeating headers, etc. Any information would be greatly appreciated. Thanks in advance, Neil Dittmar Software Developer Aurora Information Systems Tag: Copy Table to End of Document Tag: 52661
  - 20
    - Mail Merge Issue - <Next Record> When I set up a mail merge I can get it to work without a problem. The issue I find problematic is the first page of the mail merge contains the <Next Record> on it. If my mail merge will encompass multiple pages only the first page will be merged unless I manually create additional pages by copying the <Next Record> code to the additional pages I need. I am using Word 2003 and merging with an Excel file. Am I suppose to be copying the <Next Record> to all additional pages or am I doing something wrong so that all records in Excel are automatically placed in the Word mail merge? If I am doing it correctly then can I automate the copying of the <Next Record> to all subsequent pages which I will need? If so, how? Thanks, Jim Tag: Copy Table to End of Document Tag: 52659
  - 21
    - VB Sorting Macro Alright, I've asked quite a few questions on my quest to figure this VB thing out, but I'm completely stumped now. What I'm trying to do is create a solution for print-tray issue. The QC people want to automate the process of sorting documents that need to be printed on different types of paper, between trays 1 and 2 of an HP 5, for documents that go up into the 200 page range. My solution was to insert a white colored 1 or 2 at the beginning of each page (there's a universal "first-line blank" margin for the documents) that the macro could find and sort accordingly. So I've set up the following macro to search for white- colored characters, and depending upon the results, send the page to tray 1 or tray 2. However, when it searches, it finds either the entire document (which is all black) or it finds nothing. In a seperate test environment, where I had two blank pages and a white 1 on the top of page 1 and a white 2 on the top of page 2, it found both characters and all of the space in between and then still didn't process the sorting portion. I know this code is incomplete (for example, if it were to work right now it'd just send the entire document to each print tray until it was done searching) but basically what I need to know is this: Why doesn't it search one object at a time? Why doesn't it find the '1' at the top of page one, process, and then search for the '2' ? I suspect it has something to do with my coding in of the myRange object. Code: Sub SortPrintTrays() 'Gets page count Dim intPages As Integer intPages = ActiveDocument.BuiltInDocumentProperties (wdPropertyPages) 'Creates placeholder for White characters Dim trayMarker As Integer 'Creates variable for the entire document Dim myRange As Range Documents("Document1").Activate Set myRange = ThisDocument.Content 'Test Message MsgBox "This document contains " & Documents.Count & " pages." 'Sorting FOR Loop, finds each White character and prints page accordingly' For Sort = 1 To intPages With myRange.Find .Forward = True .Font.Color = wdColorWhite .Execute If .Found = True Then GoTo out End If End With GoTo startover 'This is the part where it sends the Job to tray 1 or 2, depending upon the FIND results out: MsgBox ("Found " & myRange) If myRange = "1" Then MsgBox ("Printing to Tray 1!") Options.DefaultTrayID = wdPrinterUpperBin ActiveDocument.PrintOut Else MsgBox ("Printing to Tray 2!") Options.DefaultTrayID = wdPrinterLowerBin ActiveDocument.PrintOut End If startover: Next Sort End Sub Thanks. Tag: Copy Table to End of Document Tag: 52657
  - 22
    - how to specify the Row Source of a combo box I'm trying to create a combo box in a form in Word 2002, but I can't figure out how to specify the data contents in the Row Source property of the combo box. I tried using online help in Word, but it only talks about referring to the cell address of the range of data as if I were building a combo box in Excel. If I were in Excel or Access, I'd know how to do this. But how do you specify a Row Source for a combo box in Word? That is, where do you put the data, and how do you refer to it in the Row Source property box? Thanks in advance. Paul Tag: Copy Table to End of Document Tag: 52646
  - 23
    - Access DB Queries to MS Word Document, Applying Styles Office 2003. Sorry if these are the wrong newsgroups or I missed finding the answers in my Google and Office help searches. ;-) I _did_ look quite awhile before posting... I'm about 20% done with a research project. I'm assembling the data in a multi-table Access DB because it's a lot easier to work with the data in Access than Word. The Access forms and reports are exactly what is needed for this phase of the project. But one of the main *required* outputs of the project is a Word document. In Access, the toolbar option "OfficeLinks | Publish It with Microsoft Office Word" works nicely, but the resulting document requires lots of formatting to apply the desired styles. Since I'm already well over 20 pages, and I expect to have to produce many iterations of the document as work progresses, I don't want to apply the formatting manually. Could someone provide links to building a Word document from Access data, applying styles and formatting in VBA as the document is constructed? I think it's just a matter of figuring out the objects needed, because I created poster-size Excel 2000 worksheets from Access 2000 DBs a few years ago. "I know what I want to do, but where in this tree is it?" <g> Thanks in advance. -- Mark Tag: Copy Table to End of Document Tag: 52641
  - 24
    - Capturing data for comparison that's consistent yet inconsistent Hi All, Backround on me: first post (Howdy do!) and many years of computing experience. Have worked with Word macros and scripts before, but it's been a little while. Software: MS-Word 2000 What I'm trying to do: We receive a file that is in RTF and contains account, name and address information. This file averages 65-75 pages daily. Current procedure is to print entire file, do an eyeball search for the records that don't match, and update our file with new information. There does not appear to be a way to fully automate this due to the software we are using and the capabilities of the people involved. My thought was if we can't automate the entire process, at least automate the matching process and limit the print-out to only those entries requiring action - saving time, toner and paper. The report is so long that it is usually printed out and put into a box with the idea that it will be gotten to when all the other work is done - which is not very often. The report has headers and footers - easy part already am getting rid of those. Each set of data to match is on two lines. The first line contains what we had for information and the second line contains 'corrected information' with the first two fields being replaced with one long tab. The tab stops on the two lines are set differently. Often their information and ours matches. These are the ones I want to get rid of. The problem is that while the information to be compared appears on the same place on the printed page, within Word there are two fields at the end of line 1 where there may be 1, both or none listed for each entry and another field often has extraneous tabs in it. Here's the question: Is there a way to snag the pieces of info to be compared using some sort of function that relies on the ruler? For example, piece one to compare runs from point A to point B on the ruler; piece two runs from point B+1 to point C, piece three runs from point C+1 to D, and piece four runs from point D+1 to E. A, B, C, D, and E would remain constant every time this file is checked. Can I define in the program/macro what unit of measure to use to eliminate the differences in user preferences? Any ideas? regards, scribe Tag: Copy Table to End of Document Tag: 52639
  - 25
    - week number Can anyone tell me how to display the week number in a word 2003 document. The week number should be a number between 1 and 53. I need a functions like weeknumber(Date) which takes a date as input and displays the actual week number in the document. The document I am working with is being used for a mail merge document. Therefor I can not use a Macro since that would require that I use the macro on every document in the merge. I don't understand why this is not already a function or field in word already since I believe a week number is being used very often. Tag: Copy Table to End of Document Tag: 52628

after i do

activedocument.tables(1).range.copy

how should i go about pasting it to the end of the document?

Is there a better/faster way to copy a table to the end of the document?

Thanks!!

Top

Re: Copy Table to End of Document by Helmut

Helmut
Thu Jun 24 11:30:07 CDT 2004

Hi Sonny,
have a look at this one:
Sub Test556()
Dim oDcm As Range
Set oDcm = ActiveDocument.Range
oDcm.Tables(1).Range.Copy
oDcm.Collapse direction:=wdCollapseEnd
oDcm.Paste
End Sub
Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word XP, Win 98

Top

Re: Copy Table to End of Document by Jay

Jay
Thu Jun 24 11:43:19 CDT 2004

Sonny Maou wrote:
> after i do
>
> activedocument.tables(1).range.copy
>
> how should i go about pasting it to the end of the document?
>
> Is there a better/faster way to copy a table to the end of the
> document?
>
> Thanks!!

Hi Sonny,

If you use the Copy method, it goes like this:

ActiveDocument.Tables(1).Range.Copy
Selection.EndKey unit:=wdStory
Selection.Paste

I don't care for that method, for two reasons: (1) If you had something on
the clipboard that you wanted to keep, it's replaced by the table, and (2)
it moves the cursor to the end of the document.

A better method IMHO is to use a Range object collapsed to the end of the
document, and just assign the table's .FormattedText to it:

Dim oRg As Range
Set oRg = ActiveDocument.Range
oRg.Collapse wdCollapseEnd
oRg.FormattedText = _
ActiveDocument.Tables(1).Range.FormattedText

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

Top

Re: Copy Table to End of Document by Sonny

Sonny
Thu Jun 24 12:32:13 CDT 2004

Jay Freedman wrote:

> Sonny Maou wrote:
>
>>after i do
>>
>> activedocument.tables(1).range.copy
>>
>>how should i go about pasting it to the end of the document?

> A better method IMHO is to use a Range object collapsed to the end of the
> document, and just assign the table's .FormattedText to it:
>
> Dim oRg As Range
> Set oRg = ActiveDocument.Range
> oRg.Collapse wdCollapseEnd
> oRg.FormattedText = _
> ActiveDocument.Tables(1).Range.FormattedText

Exactly what I was looking for... Thanks Jay.

(And thanks Helmut for your input, too! :) )

Top