Obtaining full name in VBA

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - AutoText and Image question (Report for Database) Let me explain what i'am doing. I'd like to use Microsoft Word as a report generator for my database. (I created a VB6 application that creates and has access to a Microsoft Access database ) One of my fields contains links to photos (full path). I want to print/save every record on a new page. (One photo (with some text) per page in one single document) I created a Ms Word template with bookmarks (within cells) for my fields and has access from my VB application to this document. I create a new page for every new record from my database and use AutoText to create new Bookmarks. First question: If Ms Word is already active, the AutoText fails (Error numer 5825, The object is removed (translated from Dutch)) What can/must i do to prevent this ? (This error only occurs when Ms Word is already active) Second question: Is it possible to define the photo size in my template. (I has to resize the original photo to approximately 13 x 17 cm) When the original photo is 2272x1704 everything goes well. The photo fills the cell. (about 13x17 cm) But when the original photo is 800x600, it doesn't fill the cell) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Some code i'am using: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Dim WordObj As Word.Application Dim WordDoc As Word.Document Dim WordRange As Word.Range Set WordObj = CreateObject("Word.Application") Set WordDoc = WordObj.Documents.Add(App.Path & "\report.dot") WordObj.Visible = False ' The code below will place the text/photo in the bookmarked location 'DESCRIPTION Set WordRange = WordDoc.GoTo(What:=wdGoToBookmark, Name:="description") WordRange.InsertAfter rs!description 'PHOTO Set WordRange = WordDoc.GoTo(What:=wdGoToBookmark, Name:="photo") WordRange.InlineShapes.AddPicture Filename:=rs!filename, LinkToFile:=False, SaveWithDocument:=True ' The code below will go to end of page, create a pagebreak and insert the AutoText Selection.EndKey Unit:=wdStory Selection.InsertBreak Type:=wdPageBreak WordDoc.AttachedTemplate.AutoTextEntries("MyAutoText").Insert Where:=Selection.Range, RichText:=True - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Thanks in advance, Robertico Tag: Obtaining full name in VBA Tag: 74142
  - 2
    - AutoText and Image question (Report for Database) Let me explain what i'am doing. I'd like to use Microsoft Word as a report generator for my database. (I created a VB6 application that creates and has access to a Microsoft Access database ) One of my fields contains links to photos (full path). I want to print/save every record on a new page. (One photo (with some text) per page in one single document) I created a Ms Word template with bookmarks (within cells) for my fields and has access from my VB application to this document. I create a new page for every new record from my database and use AutoText to create new Bookmarks. First question: If Ms Word is already active, the AutoText fails (Error numer 5825, The object is removed (translated from Dutch)) What can/must i do to prevent this ? (This error only occurs when Ms Word is already active) Second question: Is it possible to define the photo size in my template. (I has to resize the original photo to approximately 13 x 17 cm) When the original photo is 2272x1704 everything goes well. The photo fills the cell. (about 13x17 cm) But when the original photo is 800x600, it doesn't fill the cell) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Some code i'am using: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Dim WordObj As Word.Application Dim WordDoc As Word.Document Dim WordRange As Word.Range Set WordObj = CreateObject("Word.Application") Set WordDoc = WordObj.Documents.Add(App.Path & "\report.dot") WordObj.Visible = False ' The code below will place the text/photo in the bookmarked location 'DESCRIPTION Set WordRange = WordDoc.GoTo(What:=wdGoToBookmark, Name:="description") WordRange.InsertAfter rs!description 'PHOTO Set WordRange = WordDoc.GoTo(What:=wdGoToBookmark, Name:="photo") WordRange.InlineShapes.AddPicture Filename:=rs!filename, LinkToFile:=False, SaveWithDocument:=True ' The code below will go to end of page, create a pagebreak and insert the AutoText Selection.EndKey Unit:=wdStory Selection.InsertBreak Type:=wdPageBreak WordDoc.AttachedTemplate.AutoTextEntries("MyAutoText").Insert Where:=Selection.Range, RichText:=True - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Thanks in advance, Robertico Tag: Obtaining full name in VBA Tag: 74141
  - 3
    - Macro on Folder and Subfolders Hi, with the help of another post I am trying to combine two macros into one to execute the macro on a folder of .doc files. Here is my code that has a bug: Sub Macro1() ' ' Macro1 Macro ' Macro recorded 22/09/2005 by Warringah Council for folder macro on Position Descriptions With Application.FileSearch .NewSearch .LookIn = "C:\Documents and Settings\gilleg\Desktop\testPDF\" .SearchSubFolders = True .FileName = "*.doc" If .Execute() > 0 Then For i = 1 To .FoundFiles.Count With Selection.Find .Text = _ "<http://intra.warringah.nsw.gov.au/pdf/oh&s/GM Ohsrprocedures201 OHSR Respon.pdf>" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = _ "http://intra.warringah.nsw.gov.au/pdf/oh&s/GM Ohsrprocedures201 OHSR Respon.pdf" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Paste Next i End If End With End Sub Thanks. Tag: Obtaining full name in VBA Tag: 74133
  - 4
    - Unlinking a document from the template Hi Group Once again I'm trying to let people use my templates not only at work, but at home as well. To make things complicated, they shouldn't need to take the template with them. So, I need to get things out of the template and into the document. Three problems arise: 1) There can't be autotext in a document (right?), so I'll have to unlink the autotext entries from the template and insert them directly into the document. 2) Macros, Toolbars, Menus: I'll have to copy them to the document in Document_new. 3) Styles are automatically copied by word and only updated from the template on request. So, for once, Word is working with me. So, my questions are: Is this all right? Isn't there an easy way of doing all this? And: how can I do 2) right? E.g. I can't see any means of enumerating all macros (and forms, and toolbars, etc.) in a certain document. Thanks for any input! cheers, Bernhard Tag: Obtaining full name in VBA Tag: 74130
  - 5
    - Can I print a document so that the print is in reverse I want to try and make my own rubb-off lettering and need to print a document so that the letters are reversed. I am using Windows ME. Tag: Obtaining full name in VBA Tag: 74125
  - 6
    - Macro allowing user to select one of two templates I need to create a macro that has two option buttons. If the user selects the first option button, a specific template using singular language will run. If the user selects the second option button, a specific template using language for multiple signers will run. Tag: Obtaining full name in VBA Tag: 74116
  - 7
    - Word Screen Refresh When I open a template I have created with a picture logo and macros in it, the screen refresh is really slow. Is there any way I can make this quicker? Thank you. Tag: Obtaining full name in VBA Tag: 74114
  - 8
    - Last Modified doc property? Is there a property like LastSaveTime that I could use but that it shows only the the date of the last save or last modified? I really dont need to show at what time was modified Thanks in advance. Tag: Obtaining full name in VBA Tag: 74113
  - 9
    - Dropdown List Values In a "protected" Word2000 form template using Tables: I have a drop down list in a Cell containing only 5 items: 1, 2, 3, 4 and 5 When someone clicks on the dropdown and selects one of the numbers, I want to place a numeric value represented by the number in the dropdown in another column. This value will ultimately be totaled in a column at the bottom of the form. This is replicated 25 times on the form, so would like to use cell references in the formula. Example: IFB1=1,0.00,0.00 IFB1=2,0.25,0.00 IF B1=3,0.50,0.00 IF B1=4,0.75,0. 00 IF B1=5,1.00,0.00 Basically: IF, THEN, ELSE - I understand the concept, just don't know where quotes, brackets and commas should go so Word interprets it correctly. Can this be written as a nested IF statement? I believe it falls under the 7 items rule. The cell reference in the formula would have to be changed for each of the 25 instances in the table. Help in constructing this so it works would be appreciated.... My thanks and Best regards -- Message posted via http://www.officekb.com Tag: Obtaining full name in VBA Tag: 74111
  - 10
    - Do you wish to discard changes to ... and load the latest version? Hello- We are experiencing a problem with Word 2003 involving word documents that either contain macros and/or merge documents when we open them from our software. Our software just calls word and opens the document and prior to using the combination of our newest release of our software and Word 2003 we have not had a problem. Nor do we have a problem with the document UNTIL we save it in word 2003. If the document was created in office 97 through 2002 the document initially opens fine, but once we save it in Word 2003, anytime there after when we open it from our software we get the message 'Do you wish to discard the changes to <file name of the document being opened> and load the latest version?. If we say no, the document loads but reverts to a normal document instead of a mail merge main document and the autoopen or document_open macros to not fire. If we say yes to revert, the standard (2003) security message comes up - 'Opening the document will run the following SQL command:' and it opens normally and macros behave normally. I have made sure to remove all personal information from the document, accepted all changes and turned of change tracking, turned off fast saving, and stopped storing a random number to improve merge accuracy to no effect. Our software works fine with these documents in prior versions of word (97, etc), even after being saved by Word 2003 and we have tried this on Windows 2000, Windows XP, and Windows 2003 Server. Any ideas anyone might have would be greatly appreciated. Thankx, -- Scott Lowden Tag: Obtaining full name in VBA Tag: 74109
  - 11
    - can i format a word cell like formatting an excell field. I would like to be able to format a word cell like formatting an excel field. example is by typing in excel Sep21, I can format it to show as Wed Sept 21. I am using office 2000 Tag: Obtaining full name in VBA Tag: 74108
  - 12
    - Insert rtf formatted text Hi Is ther any method to insert .rtf formatted text into a word document other than inserting an existing file (which I believe is quite slow) Thank you, Shmuel Shulman Tag: Obtaining full name in VBA Tag: 74107
  - 13
    - Footer Dates We have several dozen documents in one folder (G:\Specs)where the same footer information was inserted on each page. Among that information is a date (manually typed -- it is not a Date field), which is the same for each document in that folder. What we want to do is if the footer date in all of these documents needs to be changed, run a macro that opens each document, seeks out the date in the footer and replaces it with whatever date we want (provided by perhaps an Input Box). The format of the date is typically 09-21-05, but also may be 09/21/05. Can anyone give me some ideas? Thanks! Tag: Obtaining full name in VBA Tag: 74104
  - 14
    - VB or VBA code for permutations Could you please help with writing a VB or VBA code for permutations: Context: There are some sentences in Word that will be selected by a user. The result should be a permutation (only one, not all of them) of these sentences (i.e., sent4, sent2, sent1, sent3 instead of the initial sent1, sent2, sent3, sent4). Thank you in advance for every help. Tag: Obtaining full name in VBA Tag: 74103
  - 15
    - Problem with Printing Word Documents I have a VB.NET application I wrote to assist users in printing groups of Word 2000 documents multiple times. Let say that 1 group consists of 10 word documents and I need 10 copies of the group, 100 documents total. When these documents are printed, some of the pages within the documents do not print completely. Incomplete printing would be, a document with a header and footer but no data or a document with only part of the pages data. The page or pages that are incorrect are not always the same. I have tested with several different print drivers as well as a few different printers. I believe that it is a Word issue, due to my last application change. I modified the application to print to a file and the same thing is happening. I am using Word 2000 SP3. Any help would be appreciated. Thanks Tag: Obtaining full name in VBA Tag: 74102
  - 16
    - Getting AutoIncrement Number I want an auto increment number on my document exactly where the cursor stays. For example while typing a text I need a autoincrement number (using as a reference number of a document) sometime on the 1st line, sometime on 6th line of the text or some time in next paragraph. Therefore I am looking for a solution to get auto increment number exactly where my cursor stays (any where in the document). Please advise. Regards. Irshad. Tag: Obtaining full name in VBA Tag: 74099
  - 17
    - how to programmatically select a certificate to sign a word Docume Dear all, I would like to find the way to select programmatically the right certificate in my store before issuing the digital signature. It looks like it is quite challendging because the set signature=activedocument.signatures.add command does pop up a listbox to manually choose a certificate from . I would like to bypass this and be able to select programmatically the certificate to issue a digital signature from with some conditions on issuer and signer and has private key properties (for example). Must I use Capicom objects instead ? Is it the same if I make a signature from capicom versus from Word internally ? any code snippet to solve my issue or to show me the way is more than welcome Best regards Herve Cadieu Paris Tag: Obtaining full name in VBA Tag: 74096
  - 18
    - Paste a bitmap from VB.NET2005 to Word2000 I am trying to paste an image in a pictureBox in vb.NET to a Word document. When using the paste method, the image quality in Word is bad. If using pasteSpecial method, all the dataType, like wdPasteBitmap or wdPasteEnhancedMetafile, etc. are not available. The code is as follows: wdApp = CreateObject("Word.Application") wordD = wdApp.Documents.Add My.Computer.Clipboard.Clear() My.Computer.Clipboard.SetImage(bm) wordD.Sections.Item(1).Range.PasteSpecial(Link:=False, DataType:=Word.WdPasteDataType.wdPasteShape) Does Anyone know how? I also find that when using pasteSpecial to paste a picture to Word, the foramt of JPeg, Png, etc are not available until you cut the pasted picture and do the pastSpecial again. Thanks. -- I like Vb. Tag: Obtaining full name in VBA Tag: 74094
  - 19
    - What is the difference between the two different Save methods? When I save the modified document, I find the Save button on the General Toolbar is different from the Save command in VBA code. The document size is smaller when using the Save button to save. I wonder what is the difference? Any reply is appreciated. -- Tag: Obtaining full name in VBA Tag: 74093
  - 20
    - Calling MS Word Mail Merge with Database Password How do I call an MS Word Mail Merge document from VB.NET so it does not ask the user for the MS Access Database Password? (not user password) I am performing Word XP automation from a VB.NET program. The Word document is set up to mail merge against an Access XP database. The Database has a Database Password on it. Without the database password, the document comes up just fine and without any user interface intervention from MS Word. I have tried a couple of commands that still popup the enter password dialog: 1.) mWordDoc.MailMerge.OpenDataSource( Name:="C:\Develop\TestMSWord\TestMSWord\bin\Docs\mydb.mdb", LinkToSource:=True, PasswordDocument:="mypassword", SQLStatement:="TABLE SellerInfo") 2) mWordDoc.MailMerge.OpenDataSource( _ Name:="C:\Develop\TestMSWord\TestMSWord\bin\Docs\mydb.mdb", _ PasswordDocument:="mypassword", _ Connection:="Provider=Microsoft.Jet.OLEDB.4.0;Data Source & _ "C:\Develop\TestMSWord\TestMSWord\bin\Docs\mydb.mdb;" & _ "User Id=admin;Password=;Jet OLEDB:Database Password=mypassword;", _ SQLStatement:="Select * from `SellerInfo`") Thank you. Tag: Obtaining full name in VBA Tag: 74091
  - 21
    - Does the free Microsoft Word Viewer have an open API? I would like to use the viewer, but want to hide the menu and toolbars so factory personnel do not have acces to navigate on the network. The Word documents will be opened from a customized program, so all opening operations are dictated outside of the viewer itself. Tag: Obtaining full name in VBA Tag: 74079
  - 22
    - load form into word upon opening I have a form that I have created in word using VBA, how do I call it up automatically when MS Word opens? What is the code and where do I put it? Thank you, Tag: Obtaining full name in VBA Tag: 74078
  - 23
    - HOW DO I TRANSLATE A ENGLISH DOC. TO FOREGIN LANGUAGE Trying to convert same english text to forgein language - chinese, ukrainian, and spanish Tag: Obtaining full name in VBA Tag: 74077
  - 24
    - how do I create a database using the word 2003 toolbar I am using Word 2003. I want to create a database using the database toolbar that is in Word 2003. Once the database is made I cannot save it unless I close the dbase screen. The screen that is left open shows my dbase setup i.e name, address etc. How do I save the dbase so that when I call it up to use it all I have to do is fill in the Blanks? Tag: Obtaining full name in VBA Tag: 74070
  - 25
    - How to select programmatically the digital certificate for signing Hi all, I would like to know how to select programmatically (VBA) one specific certificate to issue a word doc signature , the certificate could be either in mystore or smartcard or LDAP I would like to parse the available certificates properties like issuer , common name, etc.. to select the precise certificate I would like to use for signing purposes. When using the (addsign macro) set sig=activedocument.signatures.add instruction it displays a listbox but I would like to avoid this listbox and select programmatically the certificate instead. Any suggestion with code snippet is very welcome Best regards Herve Cadieu Tag: Obtaining full name in VBA Tag: 74068
- Next
  - 1
    - Is it possible to call and use MSWORD in command line mode? Hello all, Actually I would like to use the "Compare and modify" function in Word and Excel, but instead of opening the word application to complete the task, is there anyone know how to do it in command line mode? like c:\..\MSWORD c:\test1.doc c:\test2.doc "Compare and modify" or I need to write a VB program to call the function in MS office? Any comment, suggestion? or any related document for reference? Thanx so mush for your help MK Tag: Obtaining full name in VBA Tag: 74064
  - 2
    - Apply formatting to XML Tag Hi, Could anyone help me with these please I have the following situation: The user has a blank word document with a schema attached and has to add text to that document and tag the text accordingly. Now, i want to show each tag he adds with a different style. For eg, if he tags text with the <title> tag, i would like these texts to be displayed in bold with green highlight. he tags text with the <subtitle> tag, i would like these texts to be displayed in italic. Is there a way to achieve this? Thanks Alicia Tag: Obtaining full name in VBA Tag: 74061
  - 3
    - Error whilst fields are updating I have designed a report template using ASK fields (the report cannot be protected and tables are not practical). A macro placed in the ThisDocument module prompts the ASK fields and it all works beautifully except that whilst the prompts for the ASK fields are on screen you can see the document behind and where the bookmark for the ASK fields are it displays "Error Bookmark not Defined" - however when they are all filled in the error disappears and the data that was typed in the boxes appears in the correct fields, but I can't have users seeing the error messages it would confuse them. I have tried all sorts of ways but cannot find how to hide the window whilst the fields are updating. I've tried Application.ScreenUpdating = False, but it didn't work. Anyone have an idea? The code is: Sub AutoNew() Dim oStory As Range For Each oStory In ActiveDocument.StoryRanges oStory.Fields.Update If oStory.StoryType <> wdMainTextStory Then While Not (oStory.NextStoryRange Is Nothing) Set oStory = oStory.NextStoryRange oStory.Fields.Update Wend End If Next oStory Set oStory = Nothing Selection.GoTo What:=wdGoToBookmark, Name:="StartDoc" End Sub Thanks for looking at this. Jeanmac Tag: Obtaining full name in VBA Tag: 74060
  - 4
    - refreshing image in ms word using vba I am dynamically changing the image property of a picture box in word with something along the lines of... LoadPictureToDocument ActiveDocument, "imgMenu", strImage This is working, however it won't 'refresh' the page so to speak. When you minimize word then restore it the image has changed, or if you scroll to the bottom of the page then back up it refreshes. Is there some sort of form.refresh type function using vba in word? Thanks Dan. Tag: Obtaining full name in VBA Tag: 74056
  - 5
    - My Normal template not working in a different computer Last week I copied my normal template from my computer (with Word 97 and Windows 98) to another computer at a friend's house where I was staying (with Word 97 and Windows XP). Many of my macros didn't work. When I ran them I got this error message: "Compile error. Can't find project or library" When this happens to a macro, the highlighted text in the macro always involves the character code symbol, like this: Chr(30), for example, Selection.MoveEndWhile cset:=",.!? """ & Chr(13) So I guess I needed some special reference to be checked which would allow this computer to handle the character code symbol. Also, with many macros, I got this error message: "Compile error, can't find project or library" With other macros, I get message "Can't open macro storage." Even though the templaste containing the macro I was trying to run would open to that macro. I'm no longer working at the XP computer, but to avoid this problem in the future, does anyone know what I was doing wrong? Thanks, Larry Tag: Obtaining full name in VBA Tag: 74054
  - 6
    - refreshing image in ms word using vba I am dynamically changing the image property of a picture box in word with something along the lines of... LoadPictureToDocument ActiveDocument, "imgMenu", strImage This is working, however it won't 'refresh' the page so to speak. When you minimize word then restore it the image has changed, or if you scroll to the bottom of the page then back up it refreshes. Is there some sort of form.refresh type function using vba in word? Thanks Dan. Tag: Obtaining full name in VBA Tag: 74053
  - 7
    - Load Fields on a Form with Button Click? I have fields in a word document template that I would like to allow the user to fill in. Then with a button click, I would like to copy the data from those fields that the user filled in to other areas (fields) on the same form to be used as prompts for additional input. I can read the user inputs from the initial bookmarked fields with the dim x as string ActiveDocument.Bookmarks("fred").select x=Selection.text I cannot see how to load another field with the x text Something like : ActiveDocument.Bookmarks("fred1").select Selection.text=x This removes the fred1 bookmark and the associated field. Tag: Obtaining full name in VBA Tag: 74051
  - 8
    - water marks on word document On a word document there are sample water marks available on the system. How do I make my on water mark (e.g. my name) and put it diagonally on the document? If I want to put my hand writing there how do I do that? Tag: Obtaining full name in VBA Tag: 74049
  - 9
    - Variables and scope ? !!!! I wonder if some one can clarify if it is possible I want to set a global or constant in word at the start of a document / module in vba is this possible I understand to set a variable i use the "public" and if i require a set value that i would use the "const" But how do set a variable to the whole document which refers to a table something like const tblEmployees As Tables = ActiveDocument.Tables(1) or this is poor coding or bad practice... ? if ppl have any tutorials or links which might help it all become clear many thanks Tag: Obtaining full name in VBA Tag: 74048
  - 10
    - msword 2003 chgs ' when text is programmably inserted into msword I am programmably populating a MSWORD html template which has tags inserted in the html. All is well and good except for apostrophe and perhaps a few other characters. Instead of converting to ' word changes the ' to Ã¢â?¬â?¢ . In the browser this is what you get. Anyone have explanation and fix? -- Thanks, StanD Tag: Obtaining full name in VBA Tag: 74045
  - 11
    - RTF images conversion Hi, I'm working with an application which automatically generates an RTF document using the JFOR library. The problem is with Word 2003: an image file (our company logo) appears at the top of the page, as designed, but is resized to 2% of it's original design. This means that the conversion ignores the width and height dimensions set in the RTF. Previous versions of Word work fine and the imaged are rendered correctly. Can anyone tell mw how to correct this? Or why this happens? Our users were very confused and thought that the image didn't get placed in the document at all. Of course, I didn't even know our image was there until I viewed the document at 500%. Please help. Tag: Obtaining full name in VBA Tag: 74042
  - 12
    - Built in Word dialog problem I'm trying to use on of Word's built in dialogs, namely the table auto-format dialog. Reading up on MSDN, this should work: Word.Dialog dlg = Application.Dialogs[Word.WdWordDialog.wdDialogTableAutoFormat]; However, doing this I get the following error: "Microsoft Word: This method or property is not available because some or all of the current selection is not in a table." What am I doing wrong? Tag: Obtaining full name in VBA Tag: 74035
  - 13
    - Accessing numbering from a macro Hello Is it possible to access the numbering of a heading from a VBA macro? I've already tried but the "Selection" object ignores the numbering. Cheers Jorge Tag: Obtaining full name in VBA Tag: 74026
  - 14
    - reading line from table cell into array Hi, I want to read a line from a table cell into an array. Just can not figure out how to read the lines into arrays. This is what I´ve got so far from http://mypage.bluewin.ch/reprobst/WordFAQ/Tabellen.htm#Tabellen05 Sub WordTabelleNachEindimensionalenArray1() Dim x() As String Dim oTable As Table, Zelle As Cell If ActiveDocument.Tables.Count = 0 Then MsgBox "Das Dokument enthält keine Tabelle.", vbInformation Exit Sub End If Set oTable = ActiveDocument.Tables(1) ReDim x(1 To oTable.Range.Cells.Count) i = 0 'Oder auch -1, wenn der Array bei "0" beginnen soll For Each Zelle In oTable.Range.Cells i = i + 1 strText = Zelle.Range.Text x(i) = Left(strText, Len(strText) - 2) Next Zelle End Sub I can save the whole cell into the array, but not just one line. How should this be changed? Thanks in advance for every help Rob Tag: Obtaining full name in VBA Tag: 74021
  - 15
    - Fonts could not be registered? Hi everybody, not a real problem, it's just that I am curious about it. When using Word XP after having used Word 97, a message box pops up, saying that "Some of the fonts could not be registered", or so. Which fonts? What registration? Not a VBA question for sure, forgive me. -- Greetings from Bavaria, Germany Helmut Weber, MVP WordVBA Win XP, Office 2003 "red.sys" & Chr$(64) & "t-online.de" Tag: Obtaining full name in VBA Tag: 74019
  - 16
    - Microsoft Word suggestion Microsoft Word should have an option similar to T9 and other cell phone predictive text software; one that showed possibilities to finish a word as it's being typed, so that if someone is typing "onomatopoeia", they can type "onom" and see a display suggesting several ways the word could be finished; it could be like the phones, where a highlighted possible end of the word appears after every unfinished word and one can simply press ctrl or something. Or it could be more like Microsoft, and have a little separate window open with the possible words appearing as one types. Either way, I think it would be a good tool for Word. ---------------- 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=c7450302-262e-4dea-8f1e-b0f4694e59a5&dg=microsoft.public.word.vba.general Tag: Obtaining full name in VBA Tag: 74017
  - 17
    - Continuous section break interfering with odd/even page header I have created a tempate that has a different first page header/footer and odd/even headers/footers for the rest of the document. I want to start the second page of the document as two even columns (the first page is not in columns). Users are not regular Word users, therefore I have a macro that does that for them (see below). However, when you run the macro the odd/even page header that has been set up changes and instead the header for the first page is inserted. The code finds the first character on the current page, inserts a continuous section break and sets up 2 even spaced columns. Does anyone know why it plays havoc withthe header? I'd be really interested to know and grateful for a solution. The code is: Sub ConvertToColumns() 'converts the contents of the current page to two equal columns ' moves to te left of the first character at the top of the current page Selection.Bookmarks("\Page").Select Selection.Collapse wdCollapseStart 'creates a continuous section break and two even columns With Selection.PageSetup.TextColumns .SetCount NumColumns:=2 .EvenlySpaced = True .LineBetween = False .Width = CentimetersToPoints(6.69) .Spacing = CentimetersToPoints(1.27) End With 'moves to the right of the last character on the page window (not to footer) Selection.Bookmarks("\Page").Select Selection.Collapse wdCollapseEnd End Sub Thanks for any help Aehan Tag: Obtaining full name in VBA Tag: 74012
  - 18
    - word and access data link Help!!! I am new with programming. Need to link access table on a template to be updated bidirectional each time the template is opened. Any detail help is greatly appreciated. Thanks Tag: Obtaining full name in VBA Tag: 74011
  - 19
    - Word & IE Quits unexpectedly My Microsoft Word 2005 & IE 6.0 unexpectedly quits while working...Even I am writing a letter in Word or Browsing on the Internet, both windows unexpectedly quits after sometime...Please help me....Thanks Tag: Obtaining full name in VBA Tag: 74010
  - 20
    - Mail merge I am creating a mail merge Word orientation handbook that is to be unit specific. The data to make it unit specific is in an Access database. The section layout is designed to go inline with the checklist used for orientation. I have gotten the basics working as I want it to. I have also created an IF statement to display material if the department is ICU it would display specific text that isn't otherwise displayed. Here are my issues: I have more skills than most users at the facility. If I was to leave the facility I want something that isn't going to be difficult for them to maintained and improve on with time. I am concerned that if I hide material in IF statements someone else will not know how to deal with them. I am planning to create a manual to go with the handbook so I am thinking IF statements may work. I will have sections that only apply to one or two units. I will not be able to just tack on the material to the end of the main document because it would mess up the flow. For example the ER has a sub section on Radios that needs to be included in the General Operation section of the handbook not at the end. My question is how to best bring in information like this. Is there a way to insert a file or show hidden text. For example { IF Department = Emergency Room, Bookmark unhidden, Bookmark hidden } Any ideas would be appreciated to keep this project usable for basic users and slightly above basic users (me)? Thank you Fay Tag: Obtaining full name in VBA Tag: 74006
  - 21
    - Finding Chrw Codes..... Hi, I am newbie to VBA programming. I want to find Greek Symbols through VBA. But i don't know Chrw codes..i.e., Chr(13).... Where i can find the list of chr codes. Or anyone can give me the list. Thanks in Advance. Tag: Obtaining full name in VBA Tag: 73993
  - 22
    - List all Bookmarks in a Protected Form Hello everyone. I have a protected form that is filled out by various users. I would like to be able to go to the end of each completed document where there is an unprotected continuous section and click a MACROBUTTON which will run a macro that will display the "text only" of each bookmark in the document. Each bookmark text would be listed in a separate paragraph in the order that they appear on the protected form. Thanks. Tag: Obtaining full name in VBA Tag: 73983
  - 23
    - Search Macro Hey, I'm trying to create a macro in word that finds the word Engineer and when it does copy the first 7 charators of that line and paste it either to another word document or and excel spreadsheet. I have done VB for excel macro's but this is confusing me. Any help would be appreciated. Thanks Andrew T Smith Tag: Obtaining full name in VBA Tag: 73978
  - 24
    - DefaultFilePath with Read Only files Word 2003; WinXP Personal I have several simple macros (with toolbar buttons) to change the default Save As directory. For example: ********************************** Sub HouseholdAsDefault Options.DefaultFilePath(Path:=wdDocumentsPath) = ("C:\Documents and Settings\<my name>\My Documents\Household") End Sub ********************************** This works fine with a newly created file. When I first save it, the Save As dialogue is in the "Household" folder. It doesn't work for boilerplate files that have been set as Read Only in the desktop. When I open such a file, I immediately get prompted to Save As in the folder in which the boilerplate is located. I press Esc and run the above macro, then attempt to Save As. The Save As dialogue still defaults to the boilerplate file's folder, not to Household. Is there any way to force a change in the default Save As folder in this situation? (Note: ChangeFileOpenDirectory doesn't work either.) Thanks. Tag: Obtaining full name in VBA Tag: 73977
  - 25
    - change my office word from arabic to the english version how can i change my office word from only arabic version to english version with out losing the arabic language in the program? Tag: Obtaining full name in VBA Tag: 73971

How can I obtain the first and last name of the logged in user from
within VBA. I know that Environ("Username") will give the username,
but there is no such entry for the users full name.

Thanks,
~ d

Top

Re: Obtaining full name in VBA by Dr

Dr
Thu Sep 22 10:59:04 CDT 2005

"reveriedax" <deanna.duclos@gmail.com> schrieb im Newsbeitrag
news:1127404176.826710.234720@g43g2000cwa.googlegroups.com...
> How can I obtain the first and last name of the logged in user from
> within VBA. I know that Environ("Username") will give the username,
> but there is no such entry for the users full name.
>
> Thanks,
> ~ d
>

http://www.mvps.org/access/api/api0066.htm (Get full name of the user
currently logged in to the system) should help you.

cheers,
Stephan

Top

Re: Obtaining full name in VBA by Jonathan

Jonathan
Thu Sep 22 12:34:03 CDT 2005

"reveriedax" <deanna.duclos@gmail.com> wrote in message
news:1127404176.826710.234720@g43g2000cwa.googlegroups.com...
> How can I obtain the first and last name of the logged in user from
> within VBA. I know that Environ("Username") will give the username,
> but there is no such entry for the users full name.
>
> Thanks,
> ~ d
>

How to get the username of the current user
http://www.word.mvps.org/FAQs/MacrosVBA/GetCurUserName.htm

--
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup
Keep your VBA code safe, sign the ClassicVB petition www.classicvb.org

Top