Help with display text for URLs in template

noeyeddeer · #11 10-30-2014, 02:12 PM

Sorry to be a pain, but I'm getting two issues. The first is that the 'press clip' and 'text link' are not displaying the correct style - where can I insert something like:

PHP Code:


			
Selection.Style = ActiveDocument.Styles("DB_Link")

Into the code to make it format properly?

The second is that I can't seem to insert a paragraph break between the 'text link' and the 'header' of the next section:

Print Item / Text LinkMagnetite project expands on business' solid industry standing
######, Advertising feature 2, 29/10/14, page 10
Building on...operator for the Iron Bridge joint venture.
Print Item / Text Link'Welfare card key to stemming drug funds' as ice threat grows
######, General News, 29/10/14, page 4
THE drug ice is becoming...was not exempt.
Print Item / Text LinkNot joining China-led bank a mistake: Raby

When it should look like this:

Magnetite project expands on business' solid industry standing
######, Advertising feature 2, 29/10/14, page 10
Building on...operator for the Iron Bridge joint venture.
Print Item / Text Link

'Welfare card key to stemming drug funds' as ice threat grows
######, General News, 29/10/14, page 4
THE drug ice is becoming...was not exempt.
Print Item / Text Link

Here is the full code for this operation:

PHP Code:


			
Sub InsertMergeFields()
'
'   Inserts the mediaportal data source MergeFields into the document, with formatting
'
'
    
    On Error Resume Next
    
    ' HEADLINE
    Selection.Style = ActiveDocument.Styles("Heading 3")
    ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:="Headline"
    Selection.TypeParagraph
        
   
    ' META DATA
    Selection.Style = ActiveDocument.Styles("DB_metadata")
     Selection.Font.Bold = True ' turns bold on
     Selection.Font.Color = RGB(0, 0, 0) = True 'turns black on
    ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:="Media_Outlet"
    Selection.TypeText Text:=", "
    
    ' SECTION
    ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:="ProgramSection_Name"
    Selection.TypeText Text:=", "
    
    ' DATE
    ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:="Date Date \@ ""dd/MM/yy"""
    
    ' PAGE
       
    ActiveDocument.MailMerge.Fields.AddIf Range:=Selection.Range, MergeField:= _
        "Page_Number", Comparison:=wdMergeIfIsNotBlank, CompareTo:="", _
        TrueAutoText:="MailMergeInsertIf1", TrueText:=", page ", FalseAutoText:= _
        "MailMergeInsertIf2", FalseText:=""
        Selection.Font.Bold = True ' turns bold on
        Selection.Font.Color = RGB(0, 0, 0) = True 'turns black on
        ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:="Page_Number"
        Selection.Font.Bold = False ' turns bold off
    
    ' AUDIENCE FOR BROADCAST ITEMS
    Selection.TypeText Text:=", audience: "
    ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:="Broadcast_Audience_All_People \# ""#,###"""
    
    Selection.TypeText Text:=" (m:"
    ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:="Broadcast_Audience_Male \# ""#,###"""
    Selection.TypeText Text:=" / "
    Selection.TypeText Text:="f:"
    ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:="Broadcast_Audience_Female \# ""#,###"""
    Selection.TypeText Text:=")"
    
    Selection.TypeParagraph
    
    ' EXTRACT
    Selection.Style = ActiveDocument.Styles("DB_Content")
    ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:="Summary"
    Selection.TypeParagraph
    
    ' LINKS
    ActiveWindow.View.ShowFieldCodes = True
With Selection
  ' URL
  ActiveDocument.Hyperlinks.Add Anchor:=.Range, Address:="|", TextToDisplay:="Print Item"
  .Move Unit:=wdCharacter, Count:=-4
  .End = .End + 1
  ActiveDocument.MailMerge.Fields.Add Range:=.Range, Name:="Website_URL"
  .EndKey Unit:=wdLine
  .TypeText " / "
  .EndKey Unit:=wdLine
  ' TEXT LINK URL
  ActiveDocument.Hyperlinks.Add Anchor:=.Range, Address:="|", TextToDisplay:="Text Link"
  .Move Unit:=wdCharacter, Count:=-4
  .End = .End + 1
  ActiveDocument.MailMerge.Fields.Add Range:=.Range, Name:="Text_Link"

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Not press F9 to refresh URLs?	ASW122	Mail Merge	5	07-14-2014 09:35 PM
How do MS Office products link to URLs?	stegraham	Office	2	10-22-2013 04:52 AM
URLs in citations	acappella	Word	3	07-24-2012 03:28 PM
Template does not display in Installed Templates	JimH	Word	1	02-01-2012 11:59 AM
mailmerge with custom URLs?	guthrie	Mail Merge	0	03-06-2011 08:39 PM