Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Closed Thread
 
Thread Tools Display Modes
  #1  
Old 02-04-2013, 03:16 PM
Hdr Hdr is offline Excel vba adding field in word table/shape in a header Windows 7 64bit Excel vba adding field in word table/shape in a header Office 2007
Novice
Excel vba adding field in word table/shape in a header
 
Join Date: Feb 2013
Posts: 5
Hdr is on a distinguished road
Default Excel vba adding field in word table/shape in a header

L.S.,I am trying to add fields in word with excel vba with late binding.This works for simple bookmarks, but i need to add a field to a bookmark in a table/shape in the header.I have the following code, in which you see that most works, accept the line that i need to have working. Could someone please help?Thanks in advance!Vance
Here is the code:
Code:Sub CreateWordDocFromExcel_BM() 'LATE BINDING METHOD - Reference to Word not required. Dim objWord As Object 'Note Object in lieu of Word.Application Dim objDoc As Object 'Note Object in lieu of Word.Document Dim strTemplatePathAndName As String 'Late binding requires constants to be declared with values Const wdPaneNone = 0 Const wdOutlineView = 2 Const wdPrintView = 3 Const wdNormalView = 1 Const wdSeekCurrentPageHeader = 9 Const wdSeekCurrentPageFooter = 10 Const wdFieldEmpty = -1 Const wdSeekMainDocument = 0 Const wdAlignParagraphCenter = 1 Const wdAlignParagraphRight = 2 'Try GetObject first in case Word Application is already open. Set objWord = Nothing On Error Resume Next Set objWord = GetObject(, "Word.Application") On Error Goto 0 If objWord Is Nothing Then 'Word not open so create object Set objWord = CreateObject("Word.Application") End If With objWord 'Create a new Word document .Visible = True 'Can be false Set objDoc = .Documents.Add 'If no template AppActivate (objDoc.Name) End With With objWord If .ActiveWindow.View.SplitSpecial <> wdPaneNone Then .ActiveWindow.Panes(2).Close End If If .ActiveWindow.ActivePane.View.Type = wdNormalView Or .ActiveWindow. _ ActivePane.View.Type = wdOutlineView Then .ActiveWindow.ActivePane.View.Type = wdPrintView End If 'Insert header (bookmark MySpot is in Header, Bookmark Myspots is in table in header, Bookmark MyReference is in normal text) .ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader 'Following text works: .Selection.Fields.Add Range:=.Selection.Range, Type:=wdFieldEmpty, Text:= _ "REF MyReference \*Charformat \*Mergeformat ", PreserveFormatting:=True 'Following text works: .bookmarks("MySpot").Select 'Following text works: objDoc.bookmarks("MySpot").Select Set MyBookmark = objDoc.bookmarks("MySpot").Range MyBookmark.Text = "" 'Following text works, in table a whole field is bookmarked as "Myspots" - so the bookmark does not dissappear Set MyBookmark = objDoc.bookmarks("MySpots").Range MyBookmark.Text = "" 'Next does NOT work and I need this to work (adding a field in a header in a table or shape) MyBookmark.Fields.Add Range:=MyBookmark, Type:=wdFieldEmpty, Text:= _ "REF MyReference \*Charformat \*Mergeformat ", PreserveFormatting:=True End With 'Clean up Set objDoc = Nothing Set objWord = Nothing
End Sub
  #2  
Old 02-04-2013, 04:40 PM
macropod's Avatar
macropod macropod is offline Excel vba adding field in word table/shape in a header Windows 7 64bit Excel vba adding field in word table/shape in a header Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,956
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

Hdr: please don't post the same quesion multiple times. Also, when posting code, please use the code tags (and validate the formatting before posting). The code tags are available via the 'Go Advanced' tab. See your original post (https://www.msofficeforums.com/offic...ble-excel.html) for a correctly formatted version.

Locking this thread.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Closed Thread

Thread Tools
Display Modes


Similar Threads
Thread Thread Starter Forum Replies Last Post
Adding field in word in header in a bookmark in table with Excel vba Late Binding Hdr Excel Programming 6 02-11-2013 02:58 AM
Excel vba adding field in word table/shape in a header can i format the shape of a table border? jeffk Word Tables 4 07-14-2012 06:29 AM
Excel Pivot Table Calculated Field BertLady Excel 0 05-21-2012 10:51 AM
Excel vba adding field in word table/shape in a header adding rows to word table hklein Word VBA 4 07-18-2011 12:21 AM
Excel vba adding field in word table/shape in a header Adding text to auto shape and rotating Hot Mumma Word 1 06-14-2011 05:15 PM

Other Forums: Access Forums

All times are GMT -7. The time now is 03:16 PM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft