gem som 03-09-04 09:18 : berpox 03-09-04 22:34 : emiliebech 04-09-04 01:35 : berpox 07-09-04 22:40 : berpox 13-09-04 09:22 : berpox 18-12-04 11:50 : emiliebech 18-12-04 11:51 : emiliebech

gem som Fra : emiliebech Vist : 249 gange 50 point Dato : 02-09-04 21:40

hej er der nogle der ved hvordan man laver en markro, der gemmer som (en del af Dokomentet)

Kommentar Fra : berpox Dato : 03-09-04 09:18

Ja - sikkert - du må bare lige beskrive lidt mere om hvad det er du vil have din makro til. Er det bare i stedet for at klikke sig frem til "Gem Som" eller hvad? Men du kan starte makrooptageren i Word og så gøre/optage det du vil - bagefter kan du så rette makroen til så du får dialogbokse m.v. til at skrive eksempelvis hvad filen skal hedde, og i hvilken folder m.m. mvh Berpox

Kommentar Fra : emiliebech Dato : 03-09-04 22:34

Undskyld Det er et Word Doc med en masse Felter hvor det er et eller flere af disse der skal danne titlen på Doc.et. Der må også gerne værer en forud bestemt sti til Doc.et Det er "nemt" nok i Excel men jeg ved ikke hvordan i Word

Kommentar Fra : berpox Dato : 04-09-04 01:35

Hej Emilie. Du skal finde feltværdierne istedet for celleværdierne i excel. I Word tæller man sig frem til feltet, og læser så værdien (kan ikke lige få det til at virke med at slå op efter et bogmærke og hente feltværdien lige efter....men det bør kunne lade sig gøre!) Nedenstående kode kan du jo prøve af på et simpelt dokument med to feltværdier. Kode Sub GemSom() Dim StringNo1, StringNo2 As String Dim SaveAsString As String StringNo1 = ActiveDocument.Fields(1).Result 'læser første feltværdi StringNo2 = ActiveDocument.Fields(2).Result 'læser anden feltværdi SaveAsString = InputBox("Gem under dette navn?", "Gem Som Dialogboks", Trim(StringNo1) & Trim(StringNo2)) 'sætter feltværdierne sammen ChangeFileOpenDirectory "C:\" 'her sætter du stien du vil gemme i ActiveDocument.SaveAs FileName:=SaveAsString & ".doc", FileFormat:= _ wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _ True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _ False, SaveNativePictureFormat:=False, SaveFormsData:=False, _ SaveAsAOCELetter:=False End Sub mvh Berpox

Kommentar Fra : berpox Dato : 07-09-04 22:40

Hvaaa, Emilie - kan du bruge svaret, eller skal der yderligere hjælp til? mvh Berpox.

Accepteret svar Fra : berpox Modtaget 50 point Dato : 13-09-04 09:22

(FGM træls at nogen ikke gider kommentere sine egne indlæg )

Kommentar Fra : emiliebech Dato : 18-12-04 11:50

Undskyld berpox Jeg har løst problemet selv så jeg hade helt glemt Kandu. Men tak for hjælpen. Dit forslag viker fint så du får lige point

Godkendelse af svar Fra : emiliebech Dato : 18-12-04 11:51

Tak for svaret berpox.

Du har følgende muligheder

Eftersom du ikke er logget ind i systemet, kan du ikke skrive et indlæg til dette spørgsmål. Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.