en word dotx fil stilles om til at blive gemt i skyen

Har du defineret at du vil gemme *.dotx (skabelon) lokalt ?
Ex : C:\WordTemplatesFromAccess\

Hej martens
tak for svaret
Venligst uddyb
Hvor lægger man  C:\WordTemplatesFromAccess\

Det nytter jo ikke at lægge det i modulet da fejlen allerede er når jeg skal save .dotx

Kunne det tænkes, at du lige kunne lægge koden op her.. ( eller noget af den ) ?

Jeg har lagt koden op nedenfor men det er ikke der mit problem ligger
Når jeg skal oprette/redigere Faktura.dotx tvinges jeg til at lægge Faktura.dotx
i skyen. Med stort besvær kan jeg omdiriger til lokal placering CurrentProject.Path
hvor jeg gemmer/saver den

Dim wd As Object
Dim Doc As Object
                   
Set wd = CreateObject("Word.Application")
wd.Visible = True
                   
  Set Doc = wd.Documents.Open(CurrentProject.Path + "\Word_Skabelon\Faktura.dotx")
 
Doc.Bookmarks("bmFirmaNavn").Range.text = Kunde

prøv at kigge lidt på det her :
Dim wd As Object
Dim Doc As Object
Dim rng As Object
Dim filsti As String

' Sti til skabelon
filsti = CurrentProject.Path & "\Word_Skabelon\Faktura.dotx"

' Start eller hent Word
On Error Resume Next
Set wd = GetObject(, "Word.Application")
If wd Is Nothing Then
    Set wd = CreateObject("Word.Application")
End If
On Error GoTo 0

' Gør Word synlig
wd.Visible = True

' ?? Tving Word frem i fokus
wd.WindowState = 1 ' 1 = wdWindowStateNormal
wd.Activate

' Opret nyt dokument baseret på skabelon
Set Doc = wd.Documents.Add(Template:=filsti)

' ?? Sørg også for dokumentet får fokus
Doc.Activate

' Tjek om bookmark findes
If Doc.Bookmarks.Exists("bmFirmaNavn") Then
   
    Set rng = Doc.Bookmarks("bmFirmaNavn").Range
   
    ' Indsæt værdi (håndter Null)
    If Not IsNull(Kunde) Then
        rng.Text = Kunde
    Else
        rng.Text = ""
    End If
   
    ' Genskab bookmark (VIGTIGT)
    Doc.Bookmarks.Add "bmFirmaNavn", rng

Else
    MsgBox "Bookmark 'bmFirmaNavn' findes ikke i skabelonen!"
End If

1000 tak for koderne der er mere udbygget end min løsning

Men men ..  jeg har stadig problemet med det er bøvlet jeg ikke bare kan kalde
word  .dotx for at oprette nye bogmærger og bagefter gemme / save  .dotx
uden jeg tvinges til at gå over skyen

Jeg har en baggrund / skygge liggende i .dotx
Kan det være årsagen?

Prøv at indsætte dit Vandmærke/baggrund som et billede og dine bogmærker i én tekstboks.
Tekstboksen/e lægges over billedet

Det rodede jeg med i går, da jeg sad og "fedtede" med koden og Word-dokumentet

Ellers ret interessant måde at gøre det på.- Jeg har faktisk aldrig benyttet mig af bogmærker i Word på den måde.
Men hurtigt og så bestemmer man jo 110 % over layout etc.

Jeg er gået et skridt videre og ønsker at overføre et logo som bogmærke men der virker ikke

I access har jeg:
Doc.Bookmarks("bmLogo").Range.text = Nz(DLookup("Firma_Logo", "Stamdata", "[ID] = 1"), "")
     
I Word har jeg i et modul:

Public Sub SetBookmarkValue(ByVal bmLogo As String)
    On Error GoTo ErrHandler

    If ActiveDocument.Bookmarks.Exists(bmLogo) Then
        Dim bmRange As Range
        Set bmRange = ActiveDocument.Bookmarks(bmLogo).Range

        ' Genskab bogmærket (Word sletter det når man indsætter tekst)
        ActiveDocument.Bookmarks.Add bmLogo, bmRange
    Else
        MsgBox "Bogmærket '" & bmLogo & "' findes ikke i dokumentet.", vbExclamation
    End If

    Exit Sub

ErrHandler:
    MsgBox "Fejl i SetBookmarkValue: " & Err.Description, vbCritical


Kan du hjælpe med denne

Jeg glemte at oplyse bmLogo sendes som  en streng  "FirmaLogo.jpg"