Posts by JoeBushfield

Hi guys,

I am more of an excel VBA guy and I am having an issue with below macro to attach templates to Word Documents in the same folder as an open file. The issue has arisen when testing the new office and finding out .FileSearch has been removed.
The code seems to work in excel (when I change .docx to .xls) but in word I'm having issues with the sPath Dim.
Any assistance would be greatly appreciated.

Joe

Sub AttachTemplate()
Dim i As Integer
Dim oTemplate As Template
Set oTemplate = ActiveDocument.AttachedTemplate
Dim sPath
Set sPath = ActiveDocument.Path
 
sDir = Dir$(sPath & "*.docx", vbNormal)
Do Until LenB(sDir) = 0
Set oWB = Workbooks.Open(sPath & sDir)
For i = 1 To Documents.Count
    If Not Documents(i).FullName = ActiveDocument.FullName Then
       Documents(i).AttachedTemplate = oTemplate
       Documents(i).UpdateStyles
    End If
Next i
 
oWB.Close
sDir = Dir$
Loop
End Sub

Re: Variable Hyperlink Code Issue

Thank you so much SMC! This has been making me pull my hair out all afternoon! You saved me alot of time mate, cheers!

Hi all,

I have been working on this macro that creates a Hyperlink to the cell, the file path is uniformed except for one variable ????? which is located to the left of the cell but I can't seem to get this to feed through. I have probably got some of the syntax wrong for what I want to accomplish and would very much appreciate some help on the issue.

Thanks in advance
Joe

Sub Hyperlink()
'
' Hyperlink Macro
' Macro recorded 04/06/2010 by Joe Bushfield
' Keyboard Shortcut: Ctrl+Shift+Y
'
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "C:\Documents and Settings\JBushfield\Desktop\PDF_Shortcuts\Shortcut to " & [COLOR=blue]?????[/COLOR] & ".pdf.lnk" _
        , TextToDisplay:= _
        "Go to ebook"
    ActiveCell.Offset(1, 0).Select
 
End Sub