makro

kako naj nardim tako da bi v makroju spremenil naslov te html datoteke?

Sub StranTitle()
    Dim iFile As Integer
    Dim sData As String
    iFile = FreeFile

    Open "c:\test.html" For Input As iFile
        sData = Input(LOF(iFile), iFile)
    Close iFile
    
    sData = Replace$(sData, "<title>" & Format(Now, "yyyymmdd"), "<title>Danes je " & FormatDateTime(Now, vbShortDate))
    
    Open "c:\test.html" For Output As iFile
        Print #iFile, sData
    Close iFile
End Sub

Sub StranTitle()
    Dim obj As Object
    Set obj = ActiveDocument.BuiltInDocumentProperties
    obj(wdPropertyTitle) = "Danes je " & FormatDateTime(Now, vbShortDate)
End Sub